home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / fixptlib / draw_record_other_pwf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  638 b   |  27 lines
  1. /*
  2. ### show other members of a periodic orbit by forward iteration of r-1 times ###
  3. */
  4.  
  5. void draw_record_other_pwf(x,r,color,s_type,s_size,pix_type,record_on)
  6. int r,color,s_type,s_size,pix_type,record_on;
  7. double x[];
  8. {
  9.     int i,j;
  10.     extern int stop,var_dim,mapping_on;
  11.     extern double *t_v,*param,time;
  12.     extern int (*f_p)();
  13.  
  14.  
  15.     if(mapping_on){
  16.         for(i=1;i<r;i++){
  17.             (int) f_p(t_v,1,x,param,time,var_dim);
  18.             for(j=0;j<var_dim;j++)x[j]=t_v[j];
  19.             (void) draw_record_pwf(x,color,s_type,s_size,pix_type,record_on);
  20.         }
  21.     }
  22.     else {
  23.         system_mess_proc(1,"draw_record_other_pwf: Not a mapping! ODE version need to be installed!");
  24.         stop = 1;
  25.     }
  26. }
  27.