Fractrace.Formulas.Dra C# (CSharp) Method

        long Dra(double ar, double ai, double br, double bi, long zkl)
        {
            double aar, aai, c, d;
            long tw;
            int n;

            aar = ar * ar; aai = ai * ai; tw = 0L;
            for (n = 1; n < zkl; n++)
            {
                c = ar - aar + aai;
                d = -ar * ai; d += d + ai;
                ar = br * c - bi * d;
                ai = bi * c + br * d;
                aar = ar * ar; aai = ai * ai;
                if ((aar + aai) > gr) { tw = n; break; }
            }
            return (tw);
        }