Welcome to Fractal Forums

Fractal Math, Chaos Theory & Research => (new) Theories & Research => Topic started by: Alef on October 07, 2012, 06:07:30 PM




Title: A bitt modified my formula
Post by: Alef on October 07, 2012, 06:07:30 PM
Slightly modified my baguabox formula, so that unit vector is not reversed. Realy just used + instead of -.
Didn't explored much, but I got this 3D chessbord.   
(https://sites.google.com/site/3dfractals/baguabox/baguaboxvariations/Chessboard_of_Space2.jpg)
(https://sites.google.com/site/3dfractals/baguabox/baguaboxvariations/Chessboard_of_Space3.jpg)

Then switched to normal power 2 modulus function and got this. This is the same parameter with the same zoom ake wiewport and the same colour method. A bitt more chaotic:
(https://sites.google.com/site/3dfractals/baguabox/baguaboxvariations/Chessboard_of_Space5mod.jpg)

Here is Chaos Pro code:
Code:
Baguabox (quaternion) {

// Mandelbox alternative.
// Based on work of TGlad, Traffasel, Kali, M Benesi and LucaGen.
// By Edgar Malinovsky 25.07.2012.
// You may redistribute this algorithm, modify, derivate or use comercialy as you wish as long as you atribute proper credits.
// 10.08.2012 + smoother spherefold.
// 23.09.2012 + changeable factor for inversion addition.
// 04.10.2012 + fold using positive (non inverted) unit vector.
// 04.10.2012 + and fold using normal power 2 modulus.

parameter real bailout;
parameter quaternion julia;
quaternion C;
real zx, zy, zz, temp, modulus, radius;
parameter real add, Min_R, Scale, lenght;
parameter int settype;
parameter int baguafold, modulustype;

void init(void)
 {
     if (settype=="Julia Set")
    {
 z = pixel;
 C = julia;
    }
    else
    {
 z= 0;
 C= pixel;
    }



void loop(void)
{
zx=real(z);
zy=imag(z);
zz=part_j(z);

if (modulustype == 0)
{ //Folding by pow 8 modulus having unit circle shaped as octagon pillow.
modulus =((zx)^8 + (zy)^8+ (zz)^8)^0.125 ;
}
else if (modulustype == 1)
{//normal, are faster and less detailed.
modulus =sqrt(sqr(zx) + sqr(zy)+ sqr(zz));
}

if (baguafold == 0)
{
//more chaotic pattern.

if (modulus != 0)
//formula works even without this conditional.
{
 if (zx > lenght)
 {
 zx=-zx/modulus -add;
 }
 else if (zx < -lenght)
 {
 zx=-zx/modulus +add;
 }

 if (zy > lenght)
 {
 zy=-zy/modulus -add;
 }
 else if (zy < -lenght)
 {
 zy=-zy/modulus +add;
 }
 
 if (zz > lenght)
 {
 zz=-zz/modulus -add;
 }
 else if (zz < -lenght)
 {
 zz=-zz/modulus +add;
 }
}

}
else if (baguafold == 1)
{
//more solid shape

if (modulus != 0)
//formula works even without this conditional.
{
 if (zx > lenght)
 {
 zx=zx/modulus +add;
 }
 else if (zx < -lenght)
 {
 zx=zx/modulus -add;
 }

 if (zy > lenght)
 {
 zy=zy/modulus +add;
 }
 else if (zy < -lenght)
 {
 zy=zy/modulus -add;
 }
 
 if (zz > lenght)
 {
 zz=zz/modulus +add;
 }
 else if (zz < -lenght)
 {
 zz=zz/modulus -add;
 }
}

}
//spherefold. Similar to TGlads original, but allows to use a negative radius.

radius =sqr(zx) + sqr(zy) + sqr(zz) ;

if (radius < abs(Min_R)  )
{
temp = Scale/Min_R;
}
else
{
temp = Scale;
}

//scaling and generating z value.
z = quaternion(zx, zy, zz, 0)* temp + C;

}
bool bailout(void)
 {
 return(  |z| < bailout );
 }
void description(void)
 {
  this.title = "Baguabox";

  bailout.caption = "Bailout Value";
  bailout.default = 15.0;
  bailout.min = 0.5;
  bailout.hint = "Larger number increases fractal";

    settype.caption = "Set type";
    settype.enum = "Mandelbrot Set\nJulia Set";
    settype.default = 0;
 
separator.label1.caption  = "Shape depends on folding parameters and bailout."; 
  add.caption = "Add value";
 add.default = 0.1;
 
 lenght.caption = "Lenght";
 lenght.default = 2.0;
 
 Min_R.caption = "Radius";
 Min_R.default = 0.5;
 
 Scale.caption = "Scale";
 Scale.default = 1.5;

modulustype.caption = "Modulus for Folding";
modulustype.default=0;
modulustype.enum="Power 8 (detailed)\nPower 2 (faster)";

baguafold.caption = "Bagua Fold vector";
baguafold.default=0;
baguafold.enum="Negative\nPositive";

    julia.caption = "Julia Parameter";
    julia.default = (0.35,-0.35,2.0,0);
    julia.hint = "4th value is not used";
    julia.visible = (settype=="Julia Set");
 }
}

And here is Chaos pro parameter file of second fractal. Start a quaternion and past this in Chaos pro
Code:
Chessboard_of_Space3  {
  credits="Asdam1;10/5/2012/12/38"  commentTemplate="Saved on $month$\
  , $day$ $year$ at $hour$:$min$:$sec$\nDate: $date$\nTime: $time$\nR\
  esolution: $xdots$ x $ydots$\nCalculation time: $calctime$\nVersion\
  : $version$"
  CommentText="Saved on Oct, 7 2012 at 14:18:59\nDate: Oct 7, 2012\nT\
  ime: 14:18:59\nResolution: 480 x 360\nCalculation time: 00:07:44.20\
  8\nVersion: 4.0"
  creationTime=2012/10/5/12/38/48 saveTime=2012/10/7/14/18/59
  Creator="Asdam1" ModifiedBy="Asdam1" calcTime=464208 version=4.0
  Type=Quaternion Subtype=0 Width=480 Height=360 DisplayDepth=24
  roughness=+0.015 DOFEnabled=+1 DOFAperture=+1.25
  DOFFocalLength=+0.436665978603351
  DOFPlaneDistance=+0.873331957206702 FogEnabled=+1 FogRed=255
  FogGreen=255 FogBlue=255 FogFront=+0.766960983401948
  FogBack=+2.542169739843 FogDensity=+0.516159425503928
  FogLinear=+0.05 FogSquare=+0.05 FogExp=+0.2
formula:
  filename="Malinovsky3D.cfm" entry="Baguabox" p_bailout=15
  p_settype="Mandelbrot Set" p_add=0.09 p_lenght=2 p_Min_R=0.5
  p_Scale=1.5 p_modulustype="Power 8 (detailed)"
  p_baguafold="Positive" p_julia=0.35/-0.35/2/0 p_addw1=0
  p_addinverse=0 p_coefInv=0.125 p_coefInv2=0 p_coefInv3=0
  p_vectored="None" p_coefVector=0.1/0.4 maxiter=12 highresmult=15
  backtrace=4
inside:
  filename="NumberSeekerColouring.ccl" entry="LogTrichrome"
  p_pallete="Mixed Harmonic" p_posneg=0/0
  p_lgtype="2- Smoother Triple log" p_darkness=2.5 p_postfn="1- None"
  p_switchRB=0 p_baseR=1.35 p_baseG=1.55 p_baseB=1.65 solid=0
  background=16777215
dimensional:
  observer=0.48773243501017/-0.73956094850916/-0.49209625976303
  topview=0.52265166928109/0.67338495891164/-0.52286511617172
  viewpoint=-0.17697342729415/0.30453086102332/0.18812906173448
  backClippingPlane=1.412316522135
lighting:
  lightModel=0 light0Shadow=yes light1Enabled=yes light1Shadow=yes
  light2Shadow=yes light3Enabled=yes light3Shadow=yes
  light4Enabled=yes light4Shadow=yes
gradient:
  smooth=yes colormodel=CM_RGB knotmode=all dragknotmode=global
  Offset=0 knotrgb=(0,243,243,243) knotrgb=(32,0,90,220)
  knotrgb=(64,190,190,190) knotrgb=(96,220,60,0)
  knotrgb=(128,255,255,255) knotrgb=(160,0,34,160)
  knotrgb=(192,243,243,243) knotrgb=(224,240,34,0)
}

https://sites.google.com/site/3dfractals/baguabox/baguaboxvariations (https://sites.google.com/site/3dfractals/baguabox/baguaboxvariations)
p.s.
Still, a bitt chaotic. This fractal were a superb if it was bit more orderly. Maybe I should try to look for julia sets, they should be more orderly.


Title: Re: A bitt modified my formula
Post by: Alef on October 14, 2012, 04:28:41 PM
Julia sets, as expected, are more orderly. These are the most orderly of all so far generated, a walls made of checquered squeres. The smoothest have Radius=0, so that my spherefold effectively is turned off. Second have Radius=-0.5 so that my spherefold in the center continiusly mirrored smaller and smaller circles. Still Chaos Pro optimisation cuted out triangles in some wall panels, but this allows to see, what is beyond walls. Interesting would be to explore this in some more advanced raytracer;)
Alsou a bitt updated LogTrichrome colour formula, so that it have more control over the final result.

(https://sites.google.com/site/3dfractals/baguabox/baguaboxvariations/Chess_apartment_jul4.jpg)

Code:
Chess_apartment_jul4  {
  credits="Asdam1;10/9/2012/21/29"  commentTemplate="Saved on $month$\
  , $day$ $year$ at $hour$:$min$:$sec$\nDate: $date$\nTime: $time$\nR\
  esolution: $xdots$ x $ydots$\nCalculation time: $calctime$\nVersion\
  : $version$"
  CommentText="Saved on Oct, 12 2012 at 22:08:17\nDate: Oct 12, 2012\\
  nTime: 22:08:17\nResolution: 320 x 240\nCalculation time: 00:09:09.\
  279\nVersion: 4.0"
  creationTime=2012/10/9/21/29/22 saveTime=2012/10/12/22/8/17
  Creator="Asdam1" ModifiedBy="Asdam1" calcTime=549279 version=4.0
  Type=Quaternion Subtype=0 Width=320 Height=240 WinWidth=320
  WinHeight=240 DisplayDepth=24 roughness=+0.02 DOFAperture=+1
  DOFFocalLength=+1.49843490041196 DOFPlaneDistance=+2.99686980082393
  FogFront=+1.43841121435165 FogBack=+6.1111135840416
  FogDensity=+0.196094392362284
formula:
  filename="Malinovsky3D.cfm" entry="Baguabox" p_bailout=14
  p_settype="Julia Set" p_add=0 p_lenght=2 p_Min_R=0 p_Scale=1.5
  p_modulustype="Power 8 (detailed)" p_baguafold="Positive"
  p_julia=0.3/0.3/0/0 p_addw1=0 p_addinverse=0 p_coefInv=0
  p_coefInv2=0.125 p_coefInv3=0 p_vectored="None"
  p_coefVector=0.1/0.4 maxiter=17 highresmult=15 backtrace=4
inside:
  filename="NumberSeekerColouring.ccl" entry="LogTrichrome"
  p_pallete="Pallete by harmonic mean" p_posneg=0/0
  p_lgtype="1- Triple logarithm" p_darkness=3 p_postfn="1- None"
  p_switchRB=0 p_baseR=1.37 p_baseG=1.55 p_baseB=1.65 solid=0
  background=16777215
dimensional:
  topview=0.0011924770495299/0.99908630535026/-0.042721569026168
  viewpoint=-0.25065136016492/0.14516231067434/0.38776837912137
lighting:
  light0Shadow=yes light1Enabled=yes light1Shadow=yes
  light4Enabled=yes light4Shadow=yes
gradient:
  smooth=yes colormodel=CM_RGB knotmode=all dragknotmode=global
  Offset=0 knotrgb=(0,255,248,231) knotrgb=(43,128,0,64)
  knotrgb=(85,255,248,231) knotrgb=(127,255,120,70)
  knotrgb=(170,34,33,25) knotrgb=(214,165,217,0)
}

(https://sites.google.com/site/3dfractals/baguabox/baguaboxvariations/Chess_apartment_sept3.jpg)

Code:
Chess_apartment_sept3  {
  credits="Asdam1;7/29/2012/22/52"  commentTemplate="Saved on $month$\
  , $day$ $year$ at $hour$:$min$:$sec$\nDate: $date$\nTime: $time$\nR\
  esolution: $xdots$ x $ydots$\nCalculation time: $calctime$\nVersion\
  : $version$"
  CommentText="Saved on Oct, 12 2012 at 22:08:36\nDate: Oct 12, 2012\\
  nTime: 22:08:36\nResolution: 320 x 240\nCalculation time: 00:13:11.\
  538\nVersion: 4.0"
  creationTime=2012/7/29/22/52/47 saveTime=2012/10/12/22/8/36
  Creator="Asdam1" ModifiedBy="Asdam1" calcTime=791538 version=4.0
  Type=Quaternion Subtype=0 Width=320 Height=240 WinWidth=480
  WinHeight=360 DisplayDepth=24 roughness=+0.02 FogRed=255
  FogGreen=255 FogBlue=255 FogFront=+1.40803902864456
  FogBack=+5.8464755988121 FogDensity=+0.20644448048056
  FogLinear=+0.025 FogSquare=+0.025 FogExp=+0.1
formula:
  filename="Malinovsky3D.cfm" entry="Baguabox" p_bailout=15
  p_settype="Julia Set" p_add=0.1 p_lenght=1.9 p_Min_R=-0.5
  p_Scale=1.3 p_modulustype="Power 8 (detailed)"
  p_baguafold="Positive" p_julia=0.35/-0.35/0/0 p_addw1=0
  p_addinverse=0 p_coefInv=0 p_coefInv2=0.125 p_coefInv3=0
  p_vectored="None" p_coefVector=-0.1/0.5 maxiter=17 highresmult=15
  backtrace=4
inside:
  filename="NumberSeekerColouring.ccl" entry="LogTrichrome"
  p_pallete="Fractal Explorer like" p_posneg=0/0
  p_lgtype="1- Triple logarithm" p_darkness=3 p_postfn="1- None"
  p_switchRB=0 p_baseR=1.37 p_baseG=1.55 p_baseB=1.65 solid=0
  background=0
dimensional:
  topview=0.0061384573678085/0.99152447328558/-0.1297749521938
  viewpoint=-0.42443416197004/0.44037822567656/0.34456233590828
lighting:
  light0Shadow=yes light1Enabled=yes light1Shadow=yes
  light4Enabled=yes light4Shadow=yes
gradient:
  smooth=yes colormodel=CM_RGB knotmode=all dragknotmode=global
  Offset=0 knotrgb=(0,100,100,100) knotrgb=(50,220,50,132)
  knotrgb=(101,120,245,194) knotrgb=(151,149,160,34)
  knotrgb=(202,40,8,100)
}

 

These were the most "square" julia sets. Throught it allways generated angular sets, but not allways square.

 


Title: Re: A bitt modified my formula
Post by: kram1032 on October 14, 2012, 05:29:34 PM
wanna play a party? :D


Title: Re: A bitt modified my formula
Post by: Alef on October 14, 2012, 05:52:18 PM
Probably at the party one should eat the mushrooms :scared:


Title: Re: A bitt modified my formula
Post by: Alef on October 23, 2012, 06:13:40 PM
Animated this. Well, it would need a better PC to animate this.

http://www.youtube.com/watch?v=Ta0jYxZx5ao (http://www.youtube.com/watch?v=Ta0jYxZx5ao)


http://vimeo.com/user4157496/baguabox (http://vimeo.com/user4157496/baguabox)