News: Support us via Flattr FLATTR Link  ## The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!

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();

// 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;

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 length=   r = Math.Pow(x*x + y*y + z*z,aj);
//  double length=   r = x*x + y*y + z*z;

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

double mult=1;

}   else
}
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.

 Comments (1) KRAFTWERK Global Moderator Fractal Senior      Posts: 1439 Virtual Surreality  September 27, 2010, 09:57:10 AMThis is soo beautiful Trafassel!!!!