Algorithme

choose xc, yc xn = .25 yn = 0 FOR N = 0 TO 30000 skip first 100 iterations a = xn - xc B = yn - yc SELECT CASE a CASE IS > 0 xn = SQR((SQR(a * a + B * B) + a) / 2) yn = B / (2 * xn) CASE IS < 0 yn = SQR((SQR(a * a + B * B) - a) / 2) IF B < 0 THEN yn = -yn xn = B / (2 * yn) CASE ELSE xn = SQR(ABS(B) / 2) IF xn > 0 THEN yn = B / (2 * xn) ELSE yn = 0 END SELECT IF N = 0 THEN xn = xn + .5 choice = RND SELECT CASE choice CASE IS > .5 xn = -xn yn = -yn CASE ELSE END SELECT NEXT