home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / modellib / compquadmap_def.c < prev    next >
Encoding:
Text File  |  1990-01-16  |  984 b   |  60 lines
  1.  
  2. int compquadmap_init()
  3. {
  4.     title_label = "Complex Quadratic Map";
  5.  
  6.     mapping_on = 1;
  7.     inverse_on = 0;
  8.     fderiv_on = 0;
  9.     enable_polar = 0;
  10.     enable_period = 0;
  11.  
  12.     var_dim = 2;
  13.     param_dim = 2;
  14.     func_dim = 2;
  15.  
  16.     (void) malloc_init();
  17.  
  18.     var_label[0] = "x";
  19.     var_label[1] = "y";
  20.     param_label[0] = "cx";
  21.     param_label[1] = "cy";
  22.     func_label[0] = "Undefined";
  23.     func_label[1] = "Undefined";
  24.  
  25.     param[0] = 0.360284;
  26.     param[1] = .100376;
  27.  
  28.     var_i[0] = 0;
  29.     var_i[1] = 0;
  30.  
  31.     param_min[0]= -3; param_max[0]= 3;
  32.     param_min[1]= -3; param_max[1]= 3;
  33.  
  34.     var_min[0]= -3; var_max[0]= 3;
  35.     var_min[1]= -3; var_max[1]= 3;
  36.     func_min[0]= -3; func_max[0]= 3;
  37.     func_min[1]= -3; func_max[0]= 3;
  38.  
  39.     f_p = compquadmap_f;
  40.     func_p = compquadmap_func;
  41. }
  42.  
  43. int compquadmap_f(f,index,x,p,t,dim)
  44. int index,dim;
  45. double f[],x[],p[],t;
  46. {
  47.     double z2r,z2i;
  48.         cmul(&z2r,&z2i,x[0],x[1],x[0],x[1]);
  49.     if(index ==1) {
  50.         f[0] = z2r + p[0];
  51.         f[1] = z2i + p[1];
  52.     }
  53. }
  54.  
  55. int compquadmap_func(f,x,p,t,dim)
  56. double f[],x[],p[],t;
  57. int dim;
  58. {
  59. }
  60.