Från: Anders Tiberg <anders.tiberg@telia.com>
Till: <filearchive@ticalc.org>
Ämne: Radred 
Datum:  den 7 januari 2001 17:17

     
         Program Radred v2.10 written by Anders Tiberg.


This program is next of kin to the primefactorprogram.Because of the
limitation in the information it gives,it can be made much faster,for
most integers,than its relative.This version has no subroutene,as op-
posed to the earliest one,is in spite of that shorter and sometimes fa-
ster,now also has the ability to handle negative numbers.


 Radred v2.10 
:ClrHome
:Disp "REDUCES A SQUARE","ROOT OF AN INTE-","GER N."
:Prompt N
:abs(N->M
:1->E
:2->F
:1->G
:While not(fPart(M/2
:Lbl 1
:If fPart(M/F^2           (use the built in squarefunction)
:Then
:EF->E
:M/F->M
:Else
:FG->G
:M/F^2->M
:End
:End
:For(F,F+(F>2)+1,3\/(M+1),2         (the third root of M+1)
:While not(fPart(M/F
:Goto 1
:End
:End
:If fPart(\/(M                 (the squareroot of M)
:Then
:EM->M
:Else
:G\/(M->G
:E->M
:End
:Disp "","\/("                     (the squarerootsign)
:Output(6,2,N
:3+(N<0)+iPart(log(abs(N->Q
:Output(6,Q,"="
:Output(7,1,G
:2+iPart(log(G->Q
:Output(7,Q,"\/("
:Output(7,Q+1,MN/abs(N
:""


             Questions and/or input mailto: anders.tiberg@telia.com


 