Mathc initiation/a168

Sommaire

Installer et compiler ces fichiers dans votre répertoire de travail.

	c00d.c

/* ------------------------------------ */
/*  Save as :   c00d.c                  */
/* ------------------------------------ */
#include "x_hfile.h"
#include      "fa.h"
/* ------------------------------------ */
int main(void)
{
Circlevalue c1;
     strcpy(c1.name, "a_c01");
            c1.radius =   1.;
            c1.cx     =   0;
            c1.cy     =   0;
            c1.step   =  .1;
     circle(c1); 

Circlevalue c2;
     strcpy(c2.name, "a_c02");	
            c2.radius =  1./4;
            c2.step   =    .1;
        
CTRL_splot w;

  w.xmin = -2;
  w.xmax =  2;            
  w.ymin = -1;
  w.ymax =  1;
  	
tvalue t; 
	
  t.value =       0.;
  t.min   =       0.; 
  t.max   =  2.01*PI;  
  t.step  =       .1; 

 clrscrn();
 
 printf(" Let C be the curve consisting of all ordered \n\n" 
        " pairs (f(t),g(t)) \n\n\n\n" 
        " X : t-> %s\n\n" 
        " Y : t-> %s\n\n\n\n", feq, geq);
 
 printf(" Open the file \"a_main.plt\" with Gnuplot.\n\n");
 
 for(t.value=t.min;t.value<t.max;t.value+=t.step)
    {  
            c2.cx =  cX(t.value);  
            c2.cy =  cY(t.value);    
     circle(c2); 
     
     radius(f,g,t.value); 
     
     G_C_2d_r(w,f,g,t); 
     
     pause(9.E7);
    }

 return 0;
}
/* --------------------------------- */
/* --------------------------------- */

Exemple de sortie écran :

 Let C be the curve consisting of all ordered 

 pairs (f(t),g(t)) 



 X : t-> cos(t)**3

 Y : t-> sin(t)**3



 Open the file "a_main.plt" with Gnuplot.

 Press return to continue.