POVRAY produced images and simulation regarding paper by R. Gilmore, Two-parameter families of strange attractors, Chaos 17, 013104 (2007). van der Pol

Simulation and images by Timothy Jones


k = -2


k = -1


k = 0


k = 1


k = 2



all.ini

Output_File_Type=N
Width=600
Height=400
Quality=11
Antialias=on
Antialias_Threshold=0.001
Initial_Frame=1
Final_Frame=500
Initial_Clock=0
Final_Clock=1


temp.pov

// camera-----------------------------------------------------------

#declare Cam1 =camera {location  < 4.5*(1-clock) , 0 ,2+clock*10 >
                       look_at   < 0 , 0.0 , 2 >
                       }

camera{Cam1}                                             
light_source{< 1000, 100, -200 > color White*0.5}


background {
   color rgb <1,1,1>
}

#macro SP(x0,y0,z0,r0)
    sphere { < y0,x0,z0 >  , r0
               pigment {  rgb < 0.5-0.5*y0/0.4,0.6,0 >}
               finish { reflection .5 phong .7 }} 
#end


run.pl

#!/usr/bin/perl
#for($num=0; $num<=1000; $num+=100){
#system("./torus $num");
#$number=$num+1000;
$file="new".".pov";
system("cat temp.pov > $file");
#system("cat $num >> $file"); 
system("cat donut.dat >> $file");
system("povray all.ini $file ");#Display=False");}


quant2.c

#include 
#include 
#include  
#include 
#include 

//Adaptation of a Bob Gilmore program
//written in f

int main(int argc, char *argv[]){
  nn=350000;
  double pi,r1,r2;
  double phi,alpha,beta,theta;
  double u,v,z,r,x,xx,y,yy,angle,oldang,origx,origy,origz;
  double uu,zz,aa,bb;
  double delu,delv,rat;

  ///////////////////////////////////PART ONE//////////////

  pi = 3.1415926535;
  alpha = 1.0/12.52;//  !!! 1.0/25.1
  aa = 0.45;   //!!!  0.85
  bb = sqrt(1.0-aa*aa);
  r1 = 1.0;
 
  double X,Y,t;
  double DX,DY;
  double PI=3.14159265;
  double A,b,c,d,w,T,dt;
  int k=-2;
  A = 0.25;
  b = 0.7;
  c=1.0;
  d=10.0;
  T=4.0;
  w=2*PI/T;
  int FLAG=0;
  X=0;
  Y=-1;
  dt=0.001;
  t=0;

  FILE * fp;
  fp  = fopen ("donut.dat","w");
 for(i=1; i<=nn;i++){    //    !!!  nn/1000= numbor of wraps in long. dir.
    DX=b*Y + (c-d*Y*Y)*X;
    DY=-X+A*sin(w*t);
    X += DX * dt;
    Y += DY * dt;
    t += dt;
    if(t>T){t=0;}

    xx=  ((cos(k*w*t)*X-sin(k*w*t)*Y));//  
    yy=  ((sin(k*w*t)*X+cos(k*w*t)*Y));//v;

    origx=  cos(w*t)*(3 + (cos(k*w*t)*X-sin(k*w*t)*Y));// 
    origy=   sin(w*t)*(3+(cos(k*w*t)*X-sin(k*w*t)*Y));//v;
    origz= sin(k*w*t)*X+cos(k*w*t)*Y;// z; 
    fprintf(fp, "SP((1-clock)*%f + clock*%f,(1-clock)*%f + clock*%f , (1-clock)*%f + clock*(%f), 0.02) \n",xx,origx,yy,origy,t,origz);}

  fclose(fp);
}


compile comands

 mencoder "mf://*.png" -mf fps=25 -o test.flv -of lavf -ovc lavc -lavcopts vcodec=flv:vbitrate=14400:vhq -lavfopts i_certify_that_my_video_stream_does_not_use_b
_frames

flvtool2 -U [flvfile]

mencoder "mf://*.png" -mf fps=25 -o test.avi -ovc lavc -lavcopts vcodec=msmpeg4:vbitrate=14400:vhq