home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / lyaplib / lyap_go_proc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-21  |  739 b   |  31 lines
  1. /*
  2. ### procedure for computing lyaupunov exponents ###
  3. */
  4. #include <stdio.h>
  5.  
  6. void lyap_go_proc()
  7. {
  8.     void graph_proc(),lyap_compute();
  9.     extern FILE *fp_graph_tochild;
  10.     extern int graph_logx,graph_logy;
  11.     extern int tser_len;
  12.     extern char string2[],string[],source_dir[];
  13.  
  14.     all_reset();
  15.  
  16.     /* set log flags */
  17.         if(graph_logx ==1 && graph_logy ==1)
  18.                 sprintf(string,"-x l -y l");
  19.         else if(graph_logx ==1)
  20.                 sprintf(string,"-x l");
  21.         else if(graph_logy ==1)
  22.                 sprintf(string,"-y l");
  23.         else
  24.                 sprintf(string,"");
  25.         
  26.     sprintf(string2,"%s/bin/sgraph %s",source_dir,string);
  27.     graph_proc(string2);
  28.     lyap_compute(fp_graph_tochild);
  29.     fclose(fp_graph_tochild);
  30. }
  31.