square root factorizations (reducing radicals, etc)

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

square root factorizations (reducing radicals, etc)

I have seen the recently posted programs that reduce radicals, and would
like to add a version of mine.  I kept the same input and output formats,
however I changed the variable names -- I adatpted this program from
several other programs I have written previously.  This program is for the
85, I don't know if it is easily converted to 82/83 format, but if it
isn't, please let me know where there's a problem, and I'll fix it.  I
haven't tested the program to find the largest working number, but it
did work with the square root of a 10 digit number.  The algorithm is very
different from the other posted programs.  This program factors the
square of the input number (the integer inside the square root sign), and
takes out the square root of the largest square factor of the original
integer.  This method can be one to two orders of magnitude faster than
the other methods for really large numbers.  For smaller numbers the
difference not as large.  For example, that 10 digit number memtioned
above took less than 0.05 minutes using this algorithm,  I stopped the
other algorithm after 4 minutes.  This program uses four variables:
A, B, C, and D. The output variables are C and D:  "C /sqrt/ D"


I am sending this program in .uue format.  As several messages to this
list have indicated recently: if you don't have a link cable, d/l the
link software (for free) from the TI site.  Convert the file to .85p,
and open it up to view it in "text" format.  Again, a link cable is
not required!


begin 664 SQRTFCTR.85P
M*BI423@U*BH:#`!0<F]G<F%M(&amp;9I;&amp;4@9&amp;%T960@,#DO,3@O.38L(#$V.C,W
M`$+7'H";UQXU`0P`)0$2"%-14E1&amp;0U12)0$C`59OI1`2$#P#06YS2B]$-0`+
M,T)O,T(+,T1OJD(+P#-!;T0R``LS0V_;,T-3H#-";]NJ0E`5$#-"<3-#+[9"
M;S-"<3-#"S-";S-#"S-!$,`S06"V0F_>;]@S0U!$,@!OV6\S0V"V0@LS0V_:
M;S-#8$0R``LS0V_>;]YOV#-"5;9";S-""S-!$,`S06"V0F\.$#-!$+9"$2^V
M0@LS0F_=$#-#+T0R`"_`,T%OV,DS0A#`,T(14#-!$#-#;]EOH*&amp;V0F`S0A#`
M,T(+,T(0P#-";]IO$#-!$#-#$2^V0@LS0A#`,T)@MD)OWF_>;\(D$!#),T(0
M,T$1$?"E$$0N-0#*,T(0,T$1$2\S02^V0B_`,T(OMD(+,T-OZ3-#;S-$<3-#
&amp;2@LS1(E?


end




__________________________
John Logan
n9342326@henson.cc.wwu.edu