Internal VB6 Sqr() function is very slow
Here is my FastSqr() function
N>=0
Here is my FastSqr() function
N>=0
Code:
Public Function FASTsqr(n As Double) As Double
Dim X As Double
Dim oldX As Double
If n Then
'EDIT:
'X = n * 0.25
X = n * 0.5
Do
oldX = X
X = (X + (n / X)) * 0.5
Loop While oldX <> X
FASTsqr = X
End If
End Function