(*^ ::[paletteColors = 128; fontset = title, "New York", 24, L3, center, bold, nohscroll; fontset = subtitle, "New York", 18, L2, center, bold, nohscroll; fontset = subsubtitle, "New York", 14, L2, center, bold, nohscroll; fontset = section, "New York", 14, L2, bold, nohscroll, grayBox; fontset = subsection, "New York", 12, L2, bold, nohscroll, blackBox; fontset = subsubsection, "New York", 10, L2, bold, nohscroll, whiteBox; fontset = text, "New York", 12, L2; fontset = smalltext, "New York", 10, L2; fontset = input, "Courier", 12, L2, bold, nowordwrap; fontset = output, "Courier", 12, L2, nowordwrap; fontset = message, "Courier", 12, L2, R65535, nowordwrap; fontset = print, "Courier", 12, L2, nowordwrap; fontset = info, "Courier", 12, L2, nowordwrap; fontset = postscript, "Courier", 12, L2, nowordwrap; fontset = name, "Geneva", 10, L2, italic, B65535, nohscroll; fontset = header, "New York", 10, L2; fontset = footer, "New York", 12, L2, center; fontset = help, "Geneva", 10, L2; fontset = clipboard, "New York", 12, L2; fontset = completions, "New York", 12, L2; fontset = network, "Courier", 10, L2, nowordwrap; fontset = graphlabel, "Courier", 12, L2; fontset = special1, "New York", 12, L2; fontset = special2, "New York", 12, L2, center; fontset = special3, "New York", 12, L2, right; fontset = special4, "New York", 12, L2; fontset = special5, "New York", 12, L2;] :[startGroup; font = input; ] PadicArithmetic.m :[inactive; output; endGroup; font = output; ] PadicArithmetic . m ;[o] PadicArithmetic . m :[startGroup; font = input; ] PadicOrder[144,3] :[inactive; output; endGroup; font = output; ] 2 ;[o] 2 :[startGroup; font = input; ] PadicValue[216,3] :[inactive; output; endGroup; font = output; ] 1/27 ;[o] 1 -- 27 :[startGroup; font = input; ] PadicN[10240,2,5] :[inactive; output; endGroup; font = output; ] PadicRational[5, 5, 11, 2] ;[o] 11 <2> 1 . 0 1 0 0 2 :[startGroup; font = input; ] PadicN[10240,3,10] :[inactive; output; endGroup; font = output; ] PadicRational[10240, 10, 0, 3] ;[o] <3> 1 . 2 0 1 0 0 2 1 1 0 :[startGroup; font = input; ] PadicN[10240,4,10] :[inactive; output; endGroup; font = output; ] PadicRational[10, 10, 5, 4] ;[o] <4> 0 . 0 0 0 0 2 2 0 0 0 0 0 0 0 0 :[startGroup; font = input; ] PadicN[10240,5,10] :[inactive; output; endGroup; font = output; ] PadicRational[2048, 10, 1, 5] ;[o] <5> 0 . 3 4 1 1 3 0 0 0 0 0 :[startGroup; font = input; ] PadicN[10240,20,10] :[inactive; output; endGroup; font = output; ] PadicRational[512, 10, 1, 20] ;[o] <20> 0 . 12 5 1 0 0 0 0 0 0 0 :[startGroup; font = input; ] PadicN[1/3,2,5] :[inactive; output; endGroup; font = output; ] PadicRational[11, 5, 0, 2] ;[o] <2> 1 . 1 0 1 0 :[startGroup; font = input; ] PadicN[14/15,2] :[inactive; output; endGroup; font = output; ] PadicRational[18, 8, 0, 2] ;[o] <2> 0 . 1 0 0 1 0 0 0 :[startGroup; font = input; ] PadicN[14/15,2,20] :[inactive; output; endGroup; font = output; ] PadicRational[69906, 20, 0, 2] ;[o] <2> 0 . 1 0 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 :[startGroup; font = input; ] PadicN[3/16,2,3] :[inactive; output; endGroup; font = output; ] PadicRational[3, 3, -4, 2] ;[o] -4 <2> 1 . 1 0 2 :[startGroup; font = input; ] PadicN[3/16,2,5] :[inactive; output; endGroup; font = output; ] PadicRational[3, 5, -4, 2] ;[o] <2> 1 1 0 0 0 . :[startGroup; font = input; ] PadicN[3/2,2,5] :[inactive; output; endGroup; font = output; ] PadicRational[3, 5, -1, 2] ;[o] <2> 1 1 . 0 0 0 :[startGroup; font = input; ] SumDigits[17,3] :[inactive; output; endGroup; font = output; ] 5 ;[o] 5 :[startGroup; font = input; ] SumDigits[10240,5] :[inactive; output; endGroup; font = output; ] 12 ;[o] 12 :[startGroup; font = input; ] PadicN[10,2,3] :[inactive; output; endGroup; font = output; ] PadicRational[5, 3, 1, 2] ;[o] <2> 0 . 1 0 1 :[startGroup; font = input; ] %+% :[inactive; output; endGroup; font = output; ] PadicRational[10, 4, 1, 2] ;[o] <2> 0 . 0 1 0 1 :[startGroup; font = input; ] PadicN[5,2,8] :[inactive; output; endGroup; font = output; ] PadicRational[5, 8, 0, 2] ;[o] <2> 1 . 0 1 0 0 0 0 0 :[startGroup; font = input; ] PadicN[4,2,3] :[inactive; output; endGroup; font = output; ] PadicRational[1, 3, 2, 2] ;[o] <2> 0 . 0 1 0 0 :[startGroup; font = input; ] %+%% :[inactive; output; endGroup; font = output; ] PadicRational[9, 5, 0, 2] ;[o] <2> 1 . 0 0 1 0 :[startGroup; font = input; ] PadicToRational[%] :[inactive; output; endGroup; font = output; ] 9 ;[o] 9 :[startGroup; font = input; ] 9 + PadicN[17,2,6] :[inactive; output; endGroup; font = output; ] PadicRational[26, 7, 0, 2] ;[o] <2> 0 . 1 0 1 1 0 0 :[startGroup; font = input; ] PadicN[20,2,5] :[inactive; output; endGroup; font = output; ] PadicRational[5, 5, 2, 2] ;[o] <2> 0 . 0 1 0 1 0 0 :[startGroup; font = input; ] PadicN[10,2,5] :[inactive; output; endGroup; font = output; ] PadicRational[5, 5, 1, 2] ;[o] <2> 0 . 1 0 1 0 0 :[startGroup; font = input; ] %*%% :[inactive; output; endGroup; font = output; ] PadicRational[25, 5, 3, 2] ;[o] <2> 0 . 0 0 1 0 0 1 1 :[startGroup; font = input; ] PadicN[200,2,10] :[inactive; output; endGroup; font = output; ] PadicRational[25, 10, 3, 2] ;[o] <2> 0 . 0 0 1 0 0 1 1 0 0 0 0 0 :[startGroup; font = input; ] PadicN[7,2,20] :[inactive; output; endGroup; font = output; ] PadicRational[7, 20, 0, 2] ;[o] <2> 1 . 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 :[startGroup; font = input; ] %^3 :[inactive; output; endGroup; font = output; ] PadicRational[343, 20, 0, 2] ;[o] <2> 1 . 1 1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 :[startGroup; font = input; ] PadicN[343,2,20] :[inactive; output; endGroup; font = output; ] PadicRational[343, 20, 0, 2] ;[o] <2> 1 . 1 1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 :[startGroup; font = input; ] %%^2 :[inactive; output; endGroup; font = output; ] PadicRational[117649, 20, 0, 2] ;[o] <2> 1 . 0 0 0 1 0 0 1 1 1 0 1 0 0 1 1 1 0 0 0 :[startGroup; font = input; ] PadicN[117649,2,20] :[inactive; output; endGroup; font = output; ] PadicRational[117649, 20, 0, 2] ;[o] <2> 1 . 0 0 0 1 0 0 1 1 1 0 1 0 0 1 1 1 0 0 0 :[startGroup; font = input; ] Mahler[x^2,x,5] :[inactive; endGroup; font = print; ] 0 : 0 1 : 1 2 : 2 3 : 0 4 : 0 5 : 0 :[startGroup; font = input; ] Vanderput[x^2,x,10,3] :[inactive; endGroup; font = print; ] 0 : 0 1 : 1 2 : 4 3 : 9 4 : 15 5 : 21 6 : 36 7 : 48 8 : 60 9 : 81 10 : 99 :[startGroup; font = input; ] Mahler[x^7-9x^5+x^3-x^2+3x-1,x,10] :[inactive; endGroup; font = print; ] 0 : -1 1 : -5 2 : -140 3 : 462 4 : 6240 5 : 15720 6 : 15120 7 : 5040 8 : 0 9 : 0 10 : 0 :[startGroup; font = input; ] Vanderput[x^7-9x^5+x^3-x^2+3x-1,x,10,3] :[inactive; endGroup; font = print; ] 0 : -1 1 : -5 2 : -150 3 : 27 4 : 7233 5 : 50265 6 : 210150 7 : 672600 8 : 1802862 9 : 4252203 10 : 9100935 :[startGroup; font = input; ] PadicN[7,3,5] :[inactive; output; endGroup; font = output; ] PadicRational[7, 5, 0, 3] ;[o] <3> 1 . 2 0 0 0 :[startGroup; font = input; ] Log[%] :[inactive; output; endGroup; font = output; ] PadicRational[1194, 7, 0, 3] ;[o] <3> 0 . 2 0 2 2 1 1 :[startGroup; font = input; ] PadicN[7,3,10] :[inactive; output; endGroup; font = output; ] PadicRational[7, 10, 0, 3] ;[o] <3> 1 . 2 0 0 0 0 0 0 0 0 :[startGroup; font = input; ] Log[%] :[inactive; output; endGroup; font = output; ] PadicRational[263391, 12, 0, 3] ;[o] <3> 0 . 2 0 2 2 0 1 0 1 1 1 1 :[startGroup; font = input; ] PadicN[Log[7],3,20] :[inactive; output; endGroup; font = output; ] PadicRational[30090157566, 22, 0, 3] ;[o] <3> 0 . 2 0 2 2 0 1 0 1 1 2 2 0 0 0 0 0 2 2 1 2 2 :[startGroup; font = input; ] PadicN[6,3,10] :[inactive; output; endGroup; font = output; ] PadicRational[2, 10, 1, 3] ;[o] <3> 0 . 2 0 0 0 0 0 0 0 0 0 :[startGroup; font = input; ] Exp[%] :[inactive; output; endGroup; font = output; ] PadicRational[123883, 11, 0, 3] ;[o] <3> 1 . 2 0 1 2 2 1 2 0 0 2 :[startGroup; font = input; ] Sin[%%] :[inactive; output; endGroup; font = output; ] PadicRational[126978, 11, 0, 3] ;[o] <3> 0 . 2 2 1 1 0 0 1 1 0 2 :[startGroup; font = input; ] PadicN[7,3,10] :[inactive; output; endGroup; font = output; ] PadicRational[7, 10, 0, 3] ;[o] <3> 1 . 2 0 0 0 0 0 0 0 0 :[startGroup; font = input; ] Exp[%] :[inactive; endGroup; font = message; ] Exp::overflow: Number not in the region of convergence :[startGroup; font = input; ] Sin[%%] :[inactive; endGroup; font = message; ] Sin::overflow: Number not in the region of convergence :[startGroup; font = input; ] PadicGamma[2,5] :[inactive; output; endGroup; font = output; ] 1 ;[o] 1 :[startGroup; font = input; ] PadicGamma[5,5] :[inactive; output; endGroup; font = output; ] -24 ;[o] -24 :[startGroup; font = input; ] PadicGamma[-2,5] :[inactive; output; endGroup; font = output; ] 1/2 ;[o] 1 - 2 :[startGroup; font = input; ] PadicNewton[x^2-1,x,2,0.0001,3] :[inactive; output; endGroup; font = output; ] PadicRational[19682, 9, 0, 3] ;[o] <3> 2 . 2 2 2 2 2 2 2 2 ^*)