News: Did you know ? you can use LaTex inside Postings on fractalforums.com!  ## The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!

 Pages:    Go Down       Author Topic: Kleinian Group 112.10302  (Read 741 times) Description: 0 Members and 1 Guest are viewing this topic.
trafassel
Fractal Bachius Posts: 531  « on: December 28, 2016, 03:49:00 AM »

Kleinian Group 112.10302 http://www.fractalforums.com/index.php?action=gallery;sa=view;id=19888

// Escape time algorithm for Kleinian group limit sets from JosLeys and Knighty.
// http://www.fractalforums.com/index.php?topic=24728.0
// Small modification in line of separation compared to Kleinian_test15-bis.frag:
// Change scale from 0.2 to 0.1 and remove x-translation.
public override void Init()
{
base.Init();
if(GetString("intern.Formula.TempUpdateVal")!="51532b7a12e09959693210c0e512ffbf")
{
SetParameterBulk("Formula.Parameters: bailout=9 box_size_x=0.5 box_size_y=0 box_size_z=0.5 KleinI=-0.033 KleinR=1.94 losScale=0.1 minBailout=0.25 useLineOfSeparation=1 Formula.Static: Cycles=44 Julia=1 jx=0 jy=0 jz=0 Scene: CenterX=4.65261700975822 CenterY=1.21069676611542 CenterZ=0.95446213517343 Radius=0.00783400456513604 Transformation.Camera: AngleX=65.0528340203052 AngleY=-4.02927136476102 AngleZ=-163.761451217425 IsometricProjection=0 Position=1 intern.Formula: TempUpdateVal=51532b7a12e09959693210c0e512ffbf");
}
}
public double KleinR;
public double KleinI;
public double box_size_x;
public double box_size_y;
public double box_size_z;
public double bailout;
public double minBailout;
public bool useLineOfSeparation;
public double losScale;
public override bool GetBool(double x,double y,double z)
{
double f=KleinI<0 ?-1:1 ;
for (int i=0;i < _cycles;  i++)
{
double vxx=x+box_size_x;
double vxz=z+box_size_z;
double vax=2.0 * box_size_x ;
double vaz=2.0 * box_size_z;
x=vxx-vax*Math.Floor(vxx/vax)-box_size_x;
y-=KleinR*Math.Floor(y/KleinR);
z=vxz-vaz*Math.Floor(vxz/vaz)-box_size_z ;
if(useLineOfSeparation)
{
if (y >=KleinR * (0.5+losScale* Math.Sin(f * Math.PI * x / box_size_x)))
{
x=-KleinI-x;
y=KleinR-y;
z=-z;
}
}
double xx=x*x;
double yy=y*y;
double zz=z*z;
double r=xx+yy+zz;
if(r>0)
{
x /=-r;
y /=-r;
z /=-r;
if(r>0.00000000001 && i>2)
{
Red+=xx/r;
Green+=yy/r;
Blue+=zz/r;
}
if(r<minBailout)return false;
if(r>bailout)return false;
}
x=-KleinI-x;
y=KleinR+y;
}
return true;
} Logged
 Pages:    Go Down
 Related Topics Subject Started by Replies Views Last post  Kleinian Group Holiday Design Images Showcase (Rate My Fractal) Ross Hilbert 0 1514 December 22, 2008, 02:15:20 PM by Ross Hilbert  3d mobius kleinian group Mandelbulb3D Gallery ericr 0 487 October 30, 2012, 02:28:14 PM by ericr  A 3D Kleinian group 3D Fractal Generation « 1 2 » JosLeys 26 7041 February 23, 2013, 10:05:28 AM by ericr  kleinian group ? Mandelbulb3D Gallery ericr 0 619 March 08, 2013, 07:44:46 PM by ericr  Kleinian-group in black pen Images Showcase (Rate My Fractal) alij 2 741 September 24, 2013, 08:45:42 PM by alij