{VERSION 3 0 "IBM INTEL LINUX" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Diagnostic" 7 9 1 {CSTYLE "" -1 -1 "" 0 1 64 128 64 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 231 "xgcd:=proc(a,b) loc al q,r0,r1,r2,x0,x1,x2,y0,y1,y2; r0:=a; r1:=b; x0:=1; y0:=0; x1:=0; y1 :=1; while r1<>0 do q:=floor(r0/r1); r2:=r0-q*r1; x2:=x0-q*x1; y2:=y0- q*y1; r0:=r1; r1:=r2; x0:=x1; x1:=x2; y0:=y1; y1:=y2; od; r0,x0,y0; en d;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%xgcdGR6$%\"aG%\"bG6,%\"qG%#r0 G%#r1G%#r2G%#x0G%#x1G%#x2G%#y0G%#y1G%#y2G6\"F4C*>8%9$>8&9%>8(\"\"\">8+ \"\"!>8)FA>8,F>?(F4F>F>F40F:FAC,>8$-%&floorG6#*&F7\"\"\"F:!\"\">8',&F7 F>*&FJF>F:F>!\"\">8*,&F=F>*&FJFOFCF>FU>8-,&F@F>*&FJFOFEF>FU>F7F:>F:FR> F=FC>FCFW>F@FE>FEFen6%F7F=F@F4F4F4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "debug(xgcd);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%xgc dG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "xgcd(13,21);" }} {PARA 9 "" 1 "" {TEXT -1 30 "\{--> enter xgcd, args = 13, 21" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"#8" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#r1G\"#@" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G\"\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G\" \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G\"\"!" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#r0G\"#@" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G \"#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G\"\"!" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x1G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0 G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% #r2G\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G!\"\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#y2G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#r0G\"#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%#x1G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"\"&" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\" \")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"&" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G \"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %#y2G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#x0G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#y1G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G!\")" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\" \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G\"\"&" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x1G!\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G! \"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G\"\"&" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"qG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G \"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G\"#@" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#y2G!#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\" \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"!" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G!\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G \"#@" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"&" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#y1G!#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\"! \")\"\"&" }}{PARA 9 "" 1 "" {TEXT -1 44 "<-- exit xgcd (now at top lev el) = 1, -8, 5\}" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\"!\")\"\"&" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "xgcd(3*8,3*5);" }}{PARA 9 "" 1 "" {TEXT -1 30 "\{--> enter xgcd, args = 24, 15" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"#C" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G \"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1 G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% #r2G\"\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#r0G\"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#x1G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"\"'" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\" \"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"'" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1 G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"qG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#y2G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#x0G!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r2G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x2G!\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y2G\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r1G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G!\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y1G\" \")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"$\"\"#!\"$" }}{PARA 9 "" 1 "" {TEXT -1 44 "<-- exit xgcd (now at top level) = 3, 2, -3\}" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"$\"\"#!\"$" }}}}{MARK "4" 0 } {VIEWOPTS 1 1 0 1 1 1803 }