Hi. Try this version instead. It's a little better.

Function Find_x(a, b, f, p)
Dim x As Double
Dim t As Double
x = 0 'Start Guess
Do
t = x
x = x + (a + (b - f) * Tan(x) - p * Cos(x)) / _
(f - b + a * Tan(x) - 2 * p * Sin(x))
Loop Until Round(x - t, 16) = 0
Find_x = x
End Function

If you want, send me your email address, and I'll send you my working copy.
Good luck. Post/write back if you still have problems.
--
:)
Dana DeLouis
Windows XP, Office 2003


"nobbyknownowt" wrote in message
...

<snip
I have corrected this by changing to
do(space)while(space)x(space)symbolgreaterthan(spa ce)symbollessthan(space)t

Hmmm. That should work...??