{VERSION 3 0 "SUN SPARC SOLARIS" "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 "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 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "lastdigit:=n-> n mod 10;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*lastdigitGR6#%\"nG6\"6$%)op eratorG%&arrowGF(-%$modG6$9$\"#5F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "lastdigit(945);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\" \"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "L:=[seq(lastdigit(2^ n),n=1..1000)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"LG7din\"\"#\"\" %\"\")\"\"'F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F 'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F &F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F )F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F (F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F 'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F &F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F )F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F (F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F 'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F &F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F )F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F (F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F 'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F &F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F )F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F (F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F 'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F &F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F )F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F (F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F 'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F &F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F )F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F (F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F 'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F &F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F )F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F (F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)F&F'F(F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 138 "frequency:=proc(L,S)\n local i,C;\n C:=0;\n fo r i from 1 to nops(L) do\n if member(L[i],S) then C:=C+1 fi;\n od; \nRETURN(C/nops(L));\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*frequ encyGR6$%\"LG%\"SG6$%\"iG%\"CG6\"F,C%>8%\"\"!?(8$\"\"\"F3-%%nopsG6#9$% %trueG@$-%'memberG6$&F76#F29%>F/,&F/F3F3F3-%'RETURNG6#*&F/\"\"\"F4!\" \"F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "frequency([1,2, 3,4,5,6],\{1,2,5,9\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"\"\"\"\"# " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "frequency(L,\{1,2,3,4\} );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "frequency(L,\{6,7,8,9\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "numofdigits:=n->evalf(floor(log10(n)))+1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,numofdigitsGR6#%\"nG6\"6$%)operatorG%&arrowGF(,&-%&e valfG6#-%&floorG6#-%&log10G6#9$\"\"\"F7F7F(F(F(" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 18 "numofdigits(1000);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"\"%\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "firstdigit:=proc(n::nonnegint)\n local i,a;\n i:=1;\n a:=evalf (frac(log10(n)));\n while (evalf(log10(i))<=a) do i:=i+1 od;\n RETUR N(i-1);\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+firstdigitGR6#'%\" nG%*nonnegintG6$%\"iG%\"aG6\"F-C&>8$\"\"\">8%-%&evalfG6#-%%fracG6#-%&l og10G6#9$?(F-F1F1F-1-F56#-F;6#F0F3>F0,&F0F1F1F1-%'RETURNG6#,&F0F1!\"\" F1F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "firstdigit(801) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\")" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 36 "L:=[seq(firstdigit(2^n),n=1..1000)];" }}{PARA 12 " " 1 "" {XPPMATH 20 "6#>%\"LG7din\"\"#\"\"%\"\")\"\"\"\"\"$\"\"'F)F&\" \"&F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F (F)F*\"\"(F)F&F,F)F&F'\"\"*F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F *F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F,F)F&F'F(F)F*F+F )F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F 'F(F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F )F*F+F)F&F'F.F)F*F-F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F ,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F-F)F&F,F)F&F'F.F )F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F +F)F&F'F.F)F*F-F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F &F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F-F)F&F,F)F&F'F.F)F*F -F)F&F,F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F &F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F (F)F*F+F)F&F,F)F&F'F(F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F &F,F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F,F )F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F *F-F)F&F,F)F&F'F(F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F*F+F )F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F 'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F-F )F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F*F+F)F&F 'F.F)F*F-F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F )F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F ,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F'F.F )F*F-F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F +F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F &F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F,F)F&F'F (F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)F&F'F(F)F*F+F)F &F,F)F&F'F(F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F.F)F*F-F)F&F,F)F&F'F .F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F'F.F)F*F-F)F*F+F)F&F,F)F&F'F(F)F *F+F)F&F,F)F&F'F(F)F*F+F)F&F,F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "evalf(frequency(L,\{1,2,3,4\}));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"++++!*p!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "eval f(frequency(L,\{6,7,8,9\}));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+++ +?A!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "plot([seq([[i,0], [i,frequency(L,\{i\})]],i=1..9)]);" }}{PARA 13 "" 1 "" {INLPLOT "6--%' CURVESG6$7$7$$\"\"\"\"\"!F*7$F($\"1++++++5I!#;-%'COLOURG6&%$RGBG$\"#5! \"\"F*F*-F$6$7$7$$\"\"#F*F*7$F:$\"1++++++g " 0 "" {MPLTEXT 1 0 66 "plot([seq([cos(0.1+Pi/7*n ),sin(0.1+Pi/7*n)],n=1..100)],axes=none);" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6$7`q7$$\"1w7X-o^J&)!#;$\"1z\\V!GHm@&F*7$$\"1G(4 sT?KU&F*$\"1Z>l()pq,%)F*7$$\"1!>1pr)yS7F*$\"1e-z&eBF#**F*7$$!1'fbgS'R( =$F*$\"1l()pq,%)F*7$$!1!>1pr)yS7F*$!1e-z&eBF#**F*7 $$\"1'fbgS'R(=$F*$!1 " 0 "" {MPLTEXT 1 0 106 "isolve(\{(1000*a+100 *b+10*c+d)*4-(1000*d+100*c+10*b+a),a>-1,b>-1,c>-1,d>-1,a<10,b<10,c<10, d<10\},\{a,b,c,d\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 223 "al pha:=proc()\nfor a from 1 to 9 do\n for b from 0 to 9 do\n for c f rom 0 to 9 do\n for d from 0 to 9 do\n if (1000*a+100*b+10 *c+d)*4-(1000*d+100*c+10*b+a)=0 then RETURN(1000*a+100*b+10*c+d) fi;\n od od od od;\nend;" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `a` is imp licitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `b` is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `c ` is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning , `d` is implicitly declared local" }}{PARA 12 "" 1 "" {XPPMATH 20 "6# >%&alphaGR6\"6&%\"aG%\"bG%\"cG%\"dGF&F&?(8$\"\"\"F.\"\"*%%trueG?(8%\" \"!F.F/F0?(8&F3F.F/F0?(8'F3F.F/F0@$/,*F-\"%**RF2\"$!RF5!#gF7!$'**F3-%' RETURNG6#,*F-\"%+5F2\"$+\"F5\"#5F7F.F&F&F&" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 11 "L:=alpha();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\" LG\"%y@" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "L*4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%7()" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "16 0 0" 4 }{VIEWOPTS 1 1 0 2 1 1805 }