Logo by Maya - 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: Check out the originating "3d Mandelbulb" thread here
 
*
Welcome, Guest. Please login or register. March 28, 2024, 05:10:22 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  
BasementFound this in my GardenCell
Found this in my Garden
Previous Image | Next Image
Description: Mandelbox with 6 times x folding and
x=Abs(x)


Stats:
Total Favorities: 0 View Who Favorited
Filesize: 236.66kB
Height: 675 Width: 1200
Keywords: mandelbox Gestaltlupe 
Posted by: trafassel August 08, 2011, 09:18:10 PM

Rating: ***** by 2 members.

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

Comments (2) rss
trafassel
Fractal Bachius
*
Posts: 531


View Profile
August 10, 2011, 11:29:17 PM
It is the regular Mandelbox, but with 6 times x folding (instead of 1) and an additional line
  if(x<0) {x=-x;}
after sphere folding.


public override void Init() { base.Init();if(GetString("intern.Formula.TempUpdateVal")!="6debe3adad009dccc72d7a6c07ca00c1"){
SetParameterBulk(@"
<Entry Key='Border.Max.x' Value='-123.51867674407' />
<Entry Key='Border.Max.y' Value='-39.9984268040029' />
<Entry Key='Border.Max.z' Value='0.33634456062192' />
<Entry Key='Border.Min.x' Value='-123.518680805278' />
<Entry Key='Border.Min.y' Value='-39.9984308652114' />
<Entry Key='Border.Min.z' Value='0.336342276192134' />
<Entry Key='Formula.Static.Cycles' Value='250' />
<Entry Key='Formula.Static.Formula' Value='-1' />
<Entry Key='Formula.Static.jx' Value='0' />
<Entry Key='Formula.Static.jy' Value='0' />
<Entry Key='Formula.Static.jz' Value='0' />
<Entry Key='Formula.Static.jzz' Value='0' />
<Entry Key='Formula.Static.MinCycle' Value='250' />
<Entry Key='Transformation.AngleX' Value='45' />
<Entry Key='Transformation.AngleY' Value='0' />
<Entry Key='Transformation.AngleZ' Value='-45' />
<Entry Key='Transformation.Camera.AngleX' Value='0' />
<Entry Key='Transformation.Camera.AngleY' Value='0' />
<Entry Key='Transformation.Camera.AngleZ' Value='270' />
<Entry Key='Transformation.Perspective.Cameraposition' Value='0.3' />
<Entry Key='View.Height' Value='720' />
<Entry Key='View.Perspective' Value='1' />
<Entry Key='View.Width' Value='1280' />
<Entry Key='intern.Formula.TempUpdateVal' Value='6debe3adad009dccc72d7a6c07ca00c1' />");}
additionalPointInfo=new AdditionalPointInfo();}

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=ar,y=ai,z=aj; double r_n = 0;
  xx = x * x; yy = y * y; zz = z * z; tw = 0;
  double r = Math.Sqrt(xx + yy + zz); double scale = 1.1;
  additionalPointInfo.red=0; additionalPointInfo.green=0; additionalPointInfo.blue=0;
  for (n = 1; n < zkl; n++) {
    if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x;
    if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x;
    if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x;
    if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x;
    if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x;
    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;

    double fixedRadius = 1; double minRadius = 0.00001;
    xx = x * x; yy = y * y; zz = z * z;
    double length= r = xx + yy + zz;
    if(r!=0) { additionalPointInfo.red+=xx/r; additionalPointInfo.green+=yy/r; additionalPointInfo.blue+=zz/r;}
    if (r > gr) { tw = n; break; }
    double mult=1;
    if (r>0 && r < fixedRadius) { mult=fixedRadius/(length); }
    mult*=scale; x*=mult; y*=mult; z*=mult;

    if(x<0) {x=-x;}

    x+=br; y+=bi; z+=bj;
  }

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

  return (tw);
}
Kali
Fractal Supremo
*****
Posts: 1138


View Profile
August 09, 2011, 12:47:19 AM
Very nice, Per... could you give some more details of the formula?

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