Logo by AGUS - Contribute your own Logo!

END OF AN ERA, FRACTALFORUMS.COM IS CONTINUED ON FRACTALFORUMS.ORG

it was a great time but no longer maintainable by c.Kleinhuis contact him for any data retrieval,
thanks and see you perhaps in 10 years again

this forum will stay online for reference
News: Did you know ? you can use LaTex inside Postings on fractalforums.com!
 
*
Welcome, Guest. Please login or register. November 21, 2019, 03:54:44 AM


Login with username, password and session length


The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!



 
  Search  

  Slideshow  
IFS Blob no.1Mandelbulb VariantFuzzyWuzzy
Mandelbulb Variant
Previous Image | Next Image
Description: A modified Mandelbulb 8 Formula

Formula in Gestaltlupe (ar=8):

 public override void Init() {
            base.Init();
            // Hier kann z.B. pow oder gr aus den Einstellungen gelesen werden.
 }


 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;

            double pow = ar; // Mandelbrot, version n=8 entspricht dem Mandelbulb,
            double gr = 2; // Ab diesem Wert liegt mit Sicherheit Nichtzugehörigkeit zur Menge vor.
            double theta, phi;

ar=0;
ai=0;
aj=0;
            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;


                aj =  rn_sin_theta_pow * Math.Cos(phi_pow)+br;
                ai = rn_sin_theta_pow * Math.Sin(phi_pow)+bi;
                ar = 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);

        }

Stats:
Total Favorities: 0 View Who Favorited
Filesize: 38.7kB
Height: 720 Width: 960
Posted by: trafassel February 05, 2010, 08:10:25 PM

Rating: Has not been rated yet.

Image Linking Codes
BB Code
Direct Link
Html Link
0 Members and 1 Guest are viewing this picture.
Related Images
Mandelbulb 18


Rating: ****
Filesize: 615.36kB
Date: November 18, 2009, 11:28:01 PM
Comments (0)
By: bib
Mandelbrot set of 4yyzz variant


Rating: ****
Filesize: 79.75kB
Date: March 16, 2010, 02:49:38 PM
Comments (0)
By: msltoe
16-fold symmetric M-set variant


Rating: ***
Filesize: 534.4kB
Date: March 20, 2010, 03:36:55 AM
Comments (2)
By: msltoe
Mandelbulb Color Variant 2 2


Rating: *
Filesize: 104.93kB
Date: May 03, 2010, 12:12:16 PM
Comments (0)
By: trafassel
Riemann bulb (variant II)


Rating: *****
Filesize: 1.45MB
Date: February 22, 2016, 11:44:11 PM
Comments (0)
By: msltoe
  Slideshow  

Comments (0) rss

Return to Gallery

Powered by SMF Gallery Pro

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines

Valid XHTML 1.0! Valid CSS! Dilber MC Theme by HarzeM
Page created in 0.131 seconds with 30 queries. (Pretty URLs adds 0.009s, 1q)