Another boring Mandelbulb flight

[trafassel]

A flight over the Mandelbulb set with low and high iterations.

<a href="http://www.youtube.com/v/vq1b5p50d5k&rel=1&fs=1&hd=1" target="_blank">http://www.youtube.com/v/vq1b5p50d5k&rel=1&fs=1&hd=1</a>

[KRAFTWERK]

How can a Mandelbulb fligt ever be boring? 

Very nice Trafassel, iterations from 0 to ...how many?

AND I really would like to know wich mandelbulb formula you use for this rendering?

[trafassel]

The iteration range is from 2 to 30.

I use the following implementation of the Daniel White formula for the power 8 Mandelbulb:


        public override void Init() {
           base.Init();
           gr1=GetDouble("Formula.Static.Cycles");
           int tempGr=(int)gr1;
           gr1=gr1- tempGr;
           gr1=1-gr1;
           gr1*=2.4;
        }

        double gr1=0;

        public override long InSet(double ar, double ai, double aj,  double br, double bi, double bj, double bk, long zkl, bool invers) {
            double aar, aai, aaj;
            long tw;
            int n;
            int pow = 8;
            double gr =Math.Pow(10,gr1)+1.0;  // bailout value
            double theta, phi;
            double r_n = 0;
            aar = ar * ar; aai = ai * ai; aaj = aj * aj;
            tw = 0L;
            double r = Math.Sqrt(aar + aai + aaj);

            double phi_pow;
            double theta_pow;
            double sin_theta_pow;
            double rn_sin_theta_pow;

            for (n = 1; n < zkl; n++) {

                theta = Math.Atan2(Math.Sqrt(aar + aai), aj);
                phi = Math.Atan2(ai, ar);
                r_n = Math.Pow(r, pow);

                phi_pow=phi*pow;
                theta_pow=theta*pow;
                sin_theta_pow=Math.Sin(theta_pow);
                rn_sin_theta_pow=r_n* sin_theta_pow;

                ar =  rn_sin_theta_pow * Math.Cos(phi_pow)+br;
                ai = rn_sin_theta_pow * Math.Sin(phi_pow)+bi;
                aj = r_n * Math.Cos(theta_pow)+bj;

                aar = ar * ar; aai = ai * ai; aaj = aj * aj;
                r = Math.Sqrt(aar + aai + aaj);

                if (r > gr) { tw = n; break; }

            }

            if (invers) {
                if (tw == 0)
                    tw = 1;
                else
                    tw = 0;
            }
            return (tw);

        }

[KRAFTWERK]

Thanks for the formula clearification T!

[trafassel]

<a href="http://www.youtube.com/v/nw-B9TVAYvo&rel=1&fs=1&hd=1" target="_blank">http://www.youtube.com/v/nw-B9TVAYvo&rel=1&fs=1&hd=1</a>