END OF AN ERA, FRACTALFORUMS.COM IS CONTINUED ON FRACTALFORUMS.ORG

JC4(x,y,z,alpha,beta){
   t=beta-1;
   scl=(alpha+t);
   scl1=scl/alpha;
   a=1/scl1;
   r=x*x+y*y+z*z;dd=1;
   for(i=0;i<MI && r<100;i++){
      x=abs(x);y=abs(y);z=abs(z);
      if(x<y){t=x;x=y;y=t;}
      if(z<x){t=z;z=x;x=t;}
      if(x<y){t=x;x=y;y=t;}

      if(y<a && x>1-beta*a+y){
         x-=1;z-=1;
         x*=scl1;y*=scl1;z*=scl1;dd*=scl1;
         x+=1;z+=1;
      }else{
         x-=1;y-=1;z-=1;
         x*=scl;y*=scl;z*=scl;dd*=scl;
         x+=1;y+=1;z+=1;
      }
      r=x*x+y*y+z*z;
   }
   (sqrt(r)-1.75)/dd
}