{VERSION 3 0 "DEC ALPHA UNIX" "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 0 }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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "syracuse:=proc(u::po sint)\n if (u mod 2)=0 then iquo(u,2)\n else 3*u+1\n fi\nend:\nsyra cuse(1):=1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "stoppingtim e:=proc(n::posint)\n local u,counter;\n u:=n;\n for counter from 0 \+ while u<>1 do \n u:=syracuse(u)\n od;\n counter\nend:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "stoppingtime(10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "trace(syracuse):\nstoppingtime(10);" }}{PARA 9 "" 1 "" {TEXT -1 30 "\{--> enter syracuse, args = 10" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"&" }}{PARA 9 "" 1 "" {TEXT -1 44 "<-- exit syracuse (now in \+ stoppingtime) = 5\}" }}{PARA 9 "" 1 "" {TEXT -1 29 "\{--> enter syracu se, args = 5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#;" }}{PARA 9 "" 1 " " {TEXT -1 45 "<-- exit syracuse (now in stoppingtime) = 16\}" }} {PARA 9 "" 1 "" {TEXT -1 30 "\{--> enter syracuse, args = 16" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\")" }}{PARA 9 "" 1 "" {TEXT -1 44 "<-- ex it syracuse (now in stoppingtime) = 8\}" }}{PARA 9 "" 1 "" {TEXT -1 29 "\{--> enter syracuse, args = 8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# \"\"%" }}{PARA 9 "" 1 "" {TEXT -1 44 "<-- exit syracuse (now in stoppi ngtime) = 4\}" }}{PARA 9 "" 1 "" {TEXT -1 29 "\{--> enter syracuse, ar gs = 4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}{PARA 9 "" 1 "" {TEXT -1 44 "<-- exit syracuse (now in stoppingtime) = 2\}" }}{PARA 9 "" 1 "" {TEXT -1 29 "\{--> enter syracuse, args = 2" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#\"\"\"" }}{PARA 9 "" 1 "" {TEXT -1 44 "<-- exit syrac use (now in stoppingtime) = 1\}" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\" \"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "untrace(syracuse):\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "setstoppingtime:=proc( N::set(posint))\n local U,counter;\n U:=N;\n for counter from 0 whi le U<>\{1\} do \n U:=map(syracuse,U)\n od;\n counter\nend:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "setstoppingtime(\{10\});" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "setstoppingtime(\{10,11,12\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "seq( stoppingtime(i),i=[10,11,12]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\" '\"#9\"\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "trace(setstop pingtime):\nsetstoppingtime(\{10,11,12\});" }}{PARA 9 "" 1 "" {TEXT -1 47 "\{--> enter setstoppingtime, args = \{10, 11, 12\}" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"#5\"#6\"#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"\"&\"\"'\"#M" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"\"$\"#;\"#<" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\" \")\"#5\"#_" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"\"%\"\"&\"#E " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"\"#\"#8\"#;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"\"\"\"\")\"#S" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"\"\"\"\"%\"#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<%\"\"\"\"\"#\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"U G<$\"\"\"\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<$\"\"\"\"#;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<$\"\"\"\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<$\"\"\"\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<$\"\"\"\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG<# \"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#9" }}{PARA 9 "" 1 "" {TEXT -1 49 "<-- exit setstoppingtime (now at top level) = 14\}" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"#9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "untrace(setstoppingtime):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }