TI-92 number theorhy programs - ntheory.zip [01/01]


[Prev][Next][Index][Thread]

TI-92 number theorhy programs - ntheory.zip [01/01]



Well, I converted a couple of programs from the 85 to the 92 and
am attaching the ZIP file for version 0.5. All of these programs
should work with integers up to about 300 digits long.


psprime: Outputs true or false depending on whether a number passes 2^p=2 (mod
p) -- this doesn't prove primality, but if a number fails it, it's composite.


mprime: Tests to see if the number is a strong a-SPRP for all primes a such
that 1 < a < upto. Upto is determined either internally (if input < 3e14, then
upto is chosen as to assure primality) or by a second user parameter (ignored
if input < 3e14). If a number passes this test, even just for a=2, it's VERY
likely to be prime.


hprime: Front end for psprime and mprime.


pollard: Attempts to factor a number by Pollard-Rho; this program needs
improvements desperately, which I'll hopefully add by the next version.


modpwr: Evaluates a^b (mod n), where a^b is too big for the 92's integer math
routines.


There are also a couple of other miscellaneous things included in here; more
information can be found in the documentation. BE SURE TO STORE THE FILES IN
THE ntheory DIRECTORY!


The latest version of this program group will soon be posted at
<URL: http://www.geocities.com/Hollywood/2979/archive.html>.


-- Paul
paulp@televault.com
BEGIN -- Cut Here -- cut here
begin 644 ntheory.zip
M4$L#!!0````(`&amp;"']B!ZHL#J)P4``,(+```+````3E1(14]262XY,D>=5EU,
M'%44/L."NYL%1:#9<;&amp;9:XQ)^5GIHF"!X$\:?TA$":4^&amp;%]FV:$[Z>S,=&amp;8V
M@$D38J$;,$U#XI-OZOI@8HSZIB^F?=%7&amp;_M00C1&amp;)L*++TW?C'K.O7-G%]S:
M6M+MWC/W^\X]]SL_.X.#"S,3HX.#"LB_5SVGZK(ETS)820^,$COYW,CHZ,C$
M^#`KC$^.G0(PDT].'"NDX#JB[:!L.-XJ:)#D=MGUS(H!T(/KVPF`BE-RESV`
M7K3_;$<[VB=[(@W@.I:E>R6.[\F@C=N6Z0<(A7-D^X)`^`_1]JN5JA4(_G6T
M/WV;8DX,'/3LP7XW?KKP$\(;U4K1\-B2;EH^PQ!98/C!"7_@"<@7.6`.O>J6
M&amp;:RR!=QA\X9/;O-OX68*/YFCGES=]XT'<C4,GGA2FT(+2B;>R("34;AAAZ*!
M7:T48BG?B23:D;PUV&amp;]#4,4(RDY)>.',(S2I5#-/:<&amp;3$8QP'U77-3`]]XP@
M`B9_BQ9K0A_)/TM?S#(K)M[\-/<LY0D<EW%_+'#88ME8/,]TG^DVT_-GYN;G
M)"S2^?EGGBVPP#,MRW3L*6;8`;J/(+.(GYE]F?E&amp;$)CV.;^A<;,^UW[X>OZ3
M<249R;JYSF7G:XR>?\O@(THHJS(?EUO^%LR*S?SKA(P<1%$>O2+G/"VMY3(R
M\2J.QVPG8#JSQ=5,GYUP/:>H%ZW5`0D^2U45G4J,2BQ5R<"K5TS;N$N=O698
M;D.!4%Y&amp;YNQ09B\BXK$]#/C%W1O#U#"*<O!(%#K,TP7=`N10EL_@&amp;%HYU'.;
M3!6<:@!U[-)E$BU4TZFX2*).W.&amp;0-?@]E<;_.#*U)BHMA^5WY9`;3WBA!4?>
MU1G?%0X][@\TC"E7W^+)U'*;T]2D,BXJ<^$[1Q>A,[@C<08_K`#I%*F0W0O5
M7(:$>&amp;F!A&amp;@?XT(@8XATZ**^%,M.OARFY:\*J=*+Q[S?B\XSM--%_4,'%VUC
M&amp;;8FT=KFXHD'4%RL\HCZB-6'BTXBJ"2)V-N*R;5U8HN(^0,A-:RL_(=`W$<Z
M7A$8:8F^#>Z6'[`^S<6BPS-QM+13X^>1+C+*+P[GO:'>_832R!7)+0(YE/_(
MG?<_O<6W:I7\SG\G/TMGA;V-B1C]EL#-3C'!`@=:;E^>%NI0<AE7(DM*9$E0
M2E]"QI"MUX2F](3GDC#@![[CV'RF@VZY91W$89$.<I]R\"A&amp;*_=^?OQ4<B#Q
MD*9NQC-+W5B/YW03JZN)-?G'"]H=A5B_2'YK4J:)]/<WQV]T="!G2K);<Y)-
MG"\OO*>T(P6^%=S6C(XFQD]W^A)(^$H06^,33?B_DFT(O\E9K=%MS7<@](:8
MYD=3:,F9(WJWH6?M^XL??8?!U'C^U'KMTB7R$/91S70FFINU4?0YJKMT;S8E
MSH[F1I1:E8;'Y0M\BO[(7SMX9_>+$E)Y;ZG=VRK58O>[9/1_W"VG!J%"E9X>
MP,/1?65O(HZ/$7R76BR?Q]>L4:B+=P8*C.H05BP20DVEK];C?L%GZ>@[M?;@
MX*46X*4(O-0`][=R28@K!.TG7(@.]Q-M&amp;C4FWB&amp;X]PU:G'._05&amp;!"!@R*#@Q
MMN$5?3%P/'\2\B1V.W]&amp;D?(<8U3X0X:T?OG#2(+SQ'[^`7\)G@UU13O#_[VI
M:#.*]JJBG5:T:46;4K0Q11M1M"%%&amp;U"TIQ1-4[3C.!IP?"@:MC?V*G8>-A)V
M!A8[!GAK)LV=#AV@@66$XP$_%'G\PB7>DG=J8A?F=F]W<0H[`-OF<"@6X6H]
MY"8N!0YVKZ7^`5!+`P04````"`#:D/8@/N.3(&amp;P$``!U"0``"P```$Y42$5/
M4EDN1$]#K59-;]M&amp;$+T3X'^8GBP7DB(Y<5&amp;[3M`$:`"A2&amp;HX;H!<`BS)(;GP
M<H?=#ZDL^N,[LZ0DQW)NY4&amp;6N#MOWKSY\L?8%>C@OD5R`]PZ:ISJ/-3D(+0(
M]YO%U46>?4;G-5E8+2_S;'%\\BS/-F=;A)*,P3)@!0IJW$%_`'+4):2?+\'H
MPBGVHFR59QU5NM9LP(=\@V!'[@'8AUR^NE@LP&amp;M;XO03?.Q[<L&amp;#(=ODF;8!
M&amp;^;=J=#";->B0^7W?K0'Q^_YV.A.,ZGS>3K:D\HSY1"Z6+80/=;1@-@O)1C6
M@6,WAG;:-@>#%W6T96`!/(@E\S*QPNI:+*#WO=,=SNSY-?!SAR$ZOAA<1&amp;`5
M:V4\0H4]VDHP.4*FF]CQJ:7`$$^>BZ_V]07,6"&amp;PY[^`KD$'Z)7WZ,=`[)@T
MCI,9%JHP`R0.(!EYBC::5X3>GH6G]B5U/7G6:`DI=.U\.+X\!>,\"1$Q??EJ
MS9)!-T4_!R4";&amp;JP<JKX<\K1#=]D.;0QK.`<*(8^<B)WFE-7H@N*+PZGKM1$
M\\RGX)3184AB6'CS^EO(LL7RP0LYCRA7OH^6N($/CC@7GV[O;E.I*V-&amp;!=D7
M_`MKN.&amp;_-Z"6\/89K,^_W7W90P1DP1:+;Y+$&amp;CN*30OKJU%OJBK_C):M"C!0
M=,=`#\JG.L._@U/D*FT5ASJ`9Q',\A3H(P4<T<29QY)LQ52<ZH*T2&amp;2&amp;!7(X
MZ]4J98RJ?N=F:E[,I6;W!:N^%ON:FT/JJ/1J1]'P.W+B?`#:HJL-[4Y9L(SL
MY5'>WZSQI_4K\=B.-3(V",![5BX`VNI%BZ9/"9B:2$;#5%%BUY,QRE7[XGH;
M`G9]2(FN51FD?Z`8X':\QOK=M00=AI:C8!8T"?L][3LU"&amp;OY8REI-'J&amp;#^J!
MJ0"#-F.;)N6E>.I3*`N-HYT_O3T'A[[',N@MFF$)[VF?:1DC%&amp;4*/@6[6JQ7
M4.E&amp;!\\Q0T,D$U5JMJ`8.(-I2OV1QD>M#?K'PPBD5GWLH@FGV?WQD%V1K'`Q
MR*1S)8>[21+HKC?8(6=&amp;04?NF>9'@XV2<].0TZ'MV'DJN3JR$YQ#$:4$M1^;
MK,"@EG!]+HED78WV82J`MR`_@.K1.@V=B\M]!\[&amp;69V^,\8.T<)Z7!I/&amp;:U7
MJ_,E?*$(I;+2+VC30AGQI;<\FEKZ4^V'.00ZQ:D(/"45I(2W2AM5&amp;-R'9QD8
MMN,*7,*[87(DTYR/3]'$^5R\)U;1/ZJEQ\V)TIWLXE#O>7;L9+'^\.>G>^B-
M2EN0)6T<Q?Z@.9F*[6T8-[<TD0[[/9IG)3F'99"Z$^#?+>TLO(N-3TMKS6%0
M:(]KVJ%L5[@`]6@(I>UNI^SN!?!SV$!+/8JO5FUQS+3$,O:DR'*LD-G4PWFF
M9?^,P34.^=/II@W`Q,Y3VWOJ$*@/NM/_8,4LJFDIL6*3[SP[V(S+C_T.X`WU
M_9#TV]1)N)&amp;6'>"OB#Z,I&amp;M$`[7#Q'OG9,;*O`EYUJMH^E\#&amp;MSRM[#D^*?_
M!91]\#_(U\7_^>39?U!+`0(4`!0````(`&amp;"']B!ZHL#J)P4``,(+```+````
M````````(`````````!.5$A%3U)9+CDR1U!+`0(4`!0````(`-J0]B`^XY,@
M;`0``'4)```+``````````$`(````%`%``!.5$A%3U)9+D1/0U!+!08`````
`@`"`'(```#E"0````! !
`
end
END -- Cut Here -- cut here