SL> RB> I need an algorithm for calculating square roots to 3 or 4
SL> RB> decimal places.  It must be fast, I don't care about

There is an approximation method that I have used. I cannot find my
notes or the original reference. I am not going to attempt to give you
working code only the procedure which seems to work by hand.

let X = number to find square root of
let G = guess of root - start at X/2 to make it simple.
let D = delta
let A = accuracy desired

 R = X/G 
 D = (G - R)/2
 if D < A then return G as root
 else  G = G - D and then loop

___
 X  don.hawkinson{at}twsubbs.twsu.edu

--- Maximus/2 2.02