Got the code working, here is what I end up using:

`ads_real xPrime;`

for( ; ; ) {

xPrime = (x * ((((x * y) - sin(x)) / ((x * cos(x)) - sin(x))) + 1));

if(fabs(x - xPrime) < 0.00001)

break;

x=xPrime;

}

//(setq r (/ larc (* 2 (abs x)))

// fle (- r (sqrt (- (expt r 2) (expt (/ lc 2) 2)))))

r = (larc / (2 * fabs(x)));

fle = r - sqrt((pow(r,2) - pow(lc/2,2)));

// print value - test only

//acdbRToS(fle, 2, 3, fmtval);

//acutPrintf("FLE value is %s\n", fmtval);

Also there was a mistake I was making on the following line:

`r = ((2 * fabs(x)) / larc);`

And should be like this:

`r = (larc / (2 * fabs(x)));`

A minor calculation's and was end up giving me the -1.#IND00000000000 values for the X and Y.... bad

Thank you Chuck, for the point to use for

Luis