Mathc gnuplot/000c

Sommaire

Petits jeux sur les pentagones

N'oubliez pas les fichiers h de la librairie.

	c00a.c

/* ------------------------------------ */
/* save as : c00a.c                     */
/* ------------------------------------ */
#include "v_a.h"
#include "y_r.h" 
/* ------------------------------------ */ 
void duopoly(
double **U, 
double **Sides,
double **Angles,
double alpha,
int    n
)
{
int i=1;
int c;

   for(;i++<n;)
   
      for(c=C1;c<Angles[C_SIZE][OF];c++)
     
        vo(U,i*(Angles[R1][c])+alpha,Sides[R1][c]);      
}
/* ------------------------------------ */   
int main(void)
{    
double alpha  =-90;

double a[3]   ={ -18., 20.,-18.};
double s[3]   ={  25., 35., 45.}; /* 10., 20.,30. */

double **U = G_main(-1000.,1000.,-1000.,1000.);
double **A = c_a_A_mR(a,I_mR(R1,C3));
double **S = c_a_A_mR(s,I_mR(R1,C3));

   setup(U,-500,450.);   
   duopoly(U,S,A,alpha,50);

   setup(U, 500,450.);   
   duopoly(U,S,A,alpha,100);

   setup(U, -500,-600.);   
   duopoly(U,S,A,alpha,140);   

   setup(U,  500,-600.);   
   duopoly(U,S,A,alpha,200);  

   F_mR(U);

  printf("  ... load \"a_main.plt\" ... with gnuplot.\n");
  getchar();        

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

Résultat dans gnuplot