{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 248 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 256 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{PSTYLE "Nor mal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 13 1 105 0 0 0 0 0 0 0 0 0 0 1 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Out put" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 164 0 0 0 0 0 0 0 0 0 0 1 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT 256 63 "P-adischer Modellcomput er zur Berechnung der harmonischen Reihe" }{MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 160 "Digits:=3; # dezimale Rechnung mit Digits Stellen\ns:=0;\nfor i from 1 while s<>s+1./i do\n s:=s+1 ./i; \n# print(i,1./i,s);\n od:\nprint(i,1./i,s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%\"sG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"$,#$\"$)\\!\"&$\"$;' !\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 482 "p_adisch := proc (a, p, n)\n loc al i, j, k, b, w, z;\nif (p>10) then RETURN(-1); fi;\nif (a<=0) then R ETURN(0); fi;\nif (a=1) then RETURN(1); fi;\nw:=0; b:=trunc(a);j:=0;\n if (a>1) then\nfor j from 0 while (b>0) and (j%)p_adischGf*6%%\"aG%\"pG%\"nG6(%\"iG%\"jG%\"kG%\"bG %\"wG%\"zG6\"F1C-@$2\"#59%-%'RETURNG6#!\"\"@$19$\"\"!-F86#F>@$/F=\"\" \"-F86#FC>8(F>>8'-%&truncG6#F=>8%F>@$2FCF=?(FNF>FCF132F>FI2FN,&9&FCFCF :C%>8)-%$modG6$FIF6>FI-%%iquoGFfn>FG,&*&FYFC)F5FNFCFCFGFC>FI-%%fracGFL >8&F>?(8$,&FNFCFCF:FCF11Fdo,(FVFCFboFC\"\"#F:C'>FI*&FIFCF6FC>FY-FK6#FI >FI-F`oF^p>FG,&*&F5FCFGFCFCFYFC@$/FGF>>Fbo,&FboFCFCFC-F86#-%&evalfG6#* &FGFC)F5,(FVFCFboFCFNF:F:F1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 214 "p:=3:n:=5:\ns:=0:\nfor i from 1 while p_adisch(s,p,n)<>p_adis ch(s+1/i,p,n) do\n s:=s+1/i;\n print(printf(`%3.0f %17.14f %17.14f %17.14f %17.14f \\n`,\n i,1/i,s, p_adisch(1/i, p,n), p_adisc h(s, p,n)));\n od:" }}{PARA 6 "" 1 "" {TEXT -1 76 " 1 1.0000000000 0000 1.00000000000000 1.00000000000000 1.00000000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 2 .50000000000000 1.50000000000000 .1111 1000000000 1.11110000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 3 .3 3333333330000 1.83333333300000 .10000000000000 1.21110000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 4 .25000000000000 2.08333333300000 .02020200000000 2.00200000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 5 .20000000000000 2.28333333300000 .01210100000000 2.021100000 00000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 6 .16666666670000 2.450000 00000000 .01111100000000 2.11000000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 7 .14285714290000 2.59285714300000 .01021200000000 2.12100000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 8 .12500000000 000 2.71785714300000 .01010100000000 2.20110000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 9 .11111111110000 2.82896825400000 .010000 00000000 2.21110000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 10 .100 00000000000 2.92896825400000 .00220020000000 2.22100000000000 " }} {PARA 6 "" 1 "" {TEXT -1 76 " 11 .09090909091000 3.01987734500000 \+ .00211000000000 10.00000000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 1 2 .08333333333000 3.10321067800000 .00202020000000 10.00200000000 000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 13 .07692307692000 3.18013375 500000 .00200200000000 10.01100000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 14 .07142857143000 3.25156232700000 .00122100000000 10.02 000000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 15 .06666666667000 3 .31822899300000 .00121010000000 10.02200000000000 " }}{PARA 6 "" 1 " " {TEXT -1 76 " 16 .06250000000000 3.38072899300000 .001200100000 00 10.10100000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 17 .058823529 41000 3.43955252300000 .00112020000000 10.10200000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 18 .05555555556000 3.49510807800000 .0011 1110000000 10.11100000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 19 .0 5263157895000 3.54773965700000 .00110210000000 10.11200000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 20 .05000000000000 3.59773965700000 .00110010000000 10.12100000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 21 .04761904762000 3.64535870500000 .00102120000000 10.122000000 00000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 22 .04545454545000 3.690813 25000000 .00102000000000 10.20000000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 23 .04347826087000 3.73429151100000 .00101120000000 10.20100000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 24 .04166666667 000 3.77595817800000 .00101010000000 10.20200000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 25 .04000000000000 3.81595817800000 .001002 00000000 10.21100000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 26 .038 46153846000 3.85441971600000 .00100100000000 10.21200000000000 " }} {PARA 6 "" 1 "" {TEXT -1 76 " 27 .03703703704000 3.89145675300000 \+ .00100000000000 10.22000000000000 " }}{PARA 6 "" 1 "" {TEXT -1 76 " 2 8 .03571428571000 3.92717103900000 .00022200000000 10.22100000000 000 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }