Category : BASIC Source Code
Archive : UBAS830.ZIP
Filename : POLFACT1.UB
Output of file : POLFACT1.UB contained in archive : UBAS830.ZIP
¸ POLFACT1 VER 2.0
U " * Polynomial factorization modulo a prime *"
( " * gives only a decomposition type *"
¿ 2 " * use x or X for a variable *"
ö < " * example : x^3+2*x^2+3*x+4 *"À
ÿ F
K ®ÂÂð
P ±"f(x)="Á W
*Z U0Ñ""
Ad I Ѳ W Â"xX")
n &I U0ÝѼ W ÂI Þñ )Ý"_X"À W Ñ» W ÂI Ýñ Âå)Àñd
x U0Ñý U0Ý W )
³ À"f(X)="Á U0
à AutoswÑð
Ñ õModP
À"--------------------------------------------"
9ª ØAutoswP ÑÎAutosw)À AutoswÀñæ
M´ §"Mod P="ÁP
^¾ P Ñð¿
È À¯ °$P ÔðAutoswÑÞP Àñª
Ò ]P ÖÑP )
¾Ü À"not a prime"À¤ÀõModP
Øæ " modulo "ÁP À
ð X ѳõPolfact1Uô( U0ÂP )ÀMojiÑñA
ú I Ññ Â X )
4 W Ñþ X ÂI )
X"degree="Áìñ )Âþ W Âñ )Á
i" type= "Á
"J Ññ Â W )
, RamiÑþ W ÂJ )
´6 RamiÓMoji)Á
å@ ÀRamiÒñ "("Á»üRami)Âñ Âå)Á")"Á
òJ Moji
ùT
^
h
&rÅÂ X )Ñð" constant"
5|õModpp
>
G
P
m¤õPolfact1 ( U0ÂP )
®ºI ÂDeg U Ñð Ansѽ)
¢¸¤Z ²Û U0))
¯Â²ÑP
åÌI Ñð²Û U0)Àÿ U ÂI )Ñÿ U0ÂI )çP À
Ö²Û U )Õð( Ans)
'à U Ñ²Ý U )ÀýRemoveConstFactor
0ê
Uô get factors for each degree
^þ
põMakeZPZ:ô
DegÑñ
õ
DegreeLoop
°& X ѳõ
DegreeFactors¨ô
Ï0  X ) AnsÝѽ X )
:¶²Û U )Òñ åDegÝñ õRaiseZPZmí Deg
DÀõ
DegreeLoop"
@Nß²Û U ) AnsÝѽ½²Û U )Âñ ))
JX²Ñð
Xb( Ans)
al
v Get number of factors
¡³õ
DegreeFactors
˺DegMemÂDegG G  AnsÀRamiÑð
ñ G ÑÄ U  Z )ÀDegGÑ²Û G )
¨°DegGÑð Ansѽ)Àñ4
;² AnsѽDeg)ÀDegMemÑDegGèDeg
b¼ U èÑ G À£À system error
Æ G ÑÄ U  Z )ÀDegGÑ²Û G )
Ðê²Û G )
¥Ú Rami
ÚäI Ññ DegMemÞDegGèDegÀ AnsÝÑRamiÀ
õîDegMemÑDegGèDeg
ø U èÑ G À»£À system error
B G ÑÄ U  Z )ÀDegGÑ²Û G )
K .
X Rami
I Ññ DegMemÀ AnsÝÑRamiÀ
©*I Ññ ²Û U )ÀZ I )çÑ U À
·4( Ans)
À>
ÔH MAKE Z^P-Z
ÝR
î\õMakeZPZ
þfºI Â W
% p ²Û U )ÒP Z Ñ_XïP Àñ¶
D z W ÑûðÂñ )À Z Ñûñ )
] I ÑðÂP )Þñ
ÃI ÂP ) Z Ñ Z å W ç U
W Ñ W ïñ ç U
¥ ¢
¾ ¬ Z Ñ Z å W ç U
Û ¶ W Ñ Z ÀZ ñ )Ñ Z
ÀI Ññ ²Û U )À W Ñ W å Z ç U ÀZ I )Ñ W À
6
Ê Z Ñ( Z ÞûðÂñ ))ç U
=
Ô
F
Þ
`
è MAKE Z^(P^deg)-Z
i
ò
{
üõRaiseZPZ
ºI Â W
£
W Ñ Z ÝûðÂñ )
º
Z Ñûÿ W Âð))
ð
$I Ññ ²Û W )À Z ÝÑZ I )åÿ W ÂI )À
. Z Ñ( Z ÞûðÂñ ))ç U
8
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/