long Komp(double ar, double ai, double br, double bi, long zkl)
{
// formula: z=z*z-d
double aar, aai;
double dist;
long tw;
int n;
aar = ar * ar; aai = ai * ai; tw = 0L;
for (n = 1; n < zkl; n++)
{
ai = ar * ai; ai += ai + bi;
dist = (aar + aai);
//ai/=dist;
ar = aar - aai + br;
ar /= dist;
aar = ar * ar; aai = ai * ai;
if ((aar + aai) > gr) { tw = n; break; }
}
return (tw);
}