Logo by Fractal Ken - 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. March 31, 2020, 07:18:07 PM


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  
-1.1 MandelboxData459pic10333Mandelbox Bulb
Data459pic10333
Previous Image | Next Image
Description: Cycles: 170
Mandebrot type formula (Formua=-1)
jx=-1.1   (ar)
jy=0.013 (ai)
jz=0        (aj)



Formula:

/// <summary>
        /// Initialisierung
        /// </summary>
        public override void Init() {
            base.Init();

additionalPointInfo=new AdditionalPointInfo();
            // Hier kann z.B. pow oder gr aus den Einstellungen gelesen werden.
        }


// Mandelbox
        public override long InSet(double ar, double ai, double aj,  double br, double bi, double bj, double bk, long zkl, bool invers) {

double gr=50000;
double xx, yy, zz;
          long tw;
          int n;
          double x=0,y=0,z=0;
          double r_n = 0;

          xx = x * x; yy = y * y; zz = z * z;
          tw = 0L;
          double r = Math.Sqrt(xx + yy + zz);
  double scale = ar;
additionalPointInfo.red=0;
additionalPointInfo.green=0;
additionalPointInfo.blue=0;

          for (n = 1; n < zkl; n++) {
if(scale<-1)
scale=scale-ai*(scale+1);

//              ; fold box onto itself  
              if (x > 1)
                x = 2.0 - x;
              else if (x < -1)
                x = -2.0 - x;
             
              if (y > 1)
                y = 2.0 - y;
              else if (y < -1)
                y = -2.0 - y;
             
              if (z > 1)
                z = 2.0 - z;
              else if (z < -1)
                z = -2.0 - z;
             
            //  ; fold sphere onto itself
              double fixedRadius = 1;
              double minRadius = 0.00001;
      double length=   r = Math.Pow(x*x + y*y + z*z,aj);
 //  double length=   r = x*x + y*y + z*z;

            if (length > gr) {
additionalPointInfo.red=x*x/r;
additionalPointInfo.green=y*y/r;
additionalPointInfo.blue=z*z/r;
              tw = n; break;
            }

   double mult=1;

    if (length < minRadius) {
      //  mult=Math.Sqrt(fixedRadius)/(minRadius);
    }   else
 if (length < fixedRadius) {
        mult=Math.Sqrt(fixedRadius)/(length);
  }
   mult*=scale;
   x*=mult;
   y*=mult;
   z*=mult;
   x+=br;
   y+=bi;
   z+=bj;
          }


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

        }


Stats:
Total Favorities: 0 View Who Favorited
Filesize: 232.86kB
Height: 1200 Width: 1200
Keywords: Mandelbox Gestaltlupe 
Posted by: trafassel September 25, 2010, 12:57:39 AM

Rating: Has not been rated yet.

Image Linking Codes
BB Code
Direct Link
Html Link
0 Members and 1 Guest are viewing this picture.
  Slideshow  

Comments (1) rss
KRAFTWERK
Global Moderator
Fractal Senior
******
Posts: 1439


Virtual Surreality


View Profile WWW
September 27, 2010, 09:57:10 AM
This is soo beautiful Trafassel!!!!

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.151 seconds with 28 queries. (Pretty URLs adds 0.005s, 1q)