Mathc gnuplot/000o

Petit jeux sur les carrés

N'oubliez pas les fichiers h de la librairie.

	`c00a.c`

/* ------------------------------------ */
/* save as : c00a.c                     */
/* ------------------------------------ */
#include "v_a.h"
#include "y_o.h"
/* ------------------------------------ */  
double **sqr(double **U,double size);
/* ------------------------------------ */
int main(void)
{
double **U = GINIT(-900.,1700.,-850.,1700.);    

  F_mR(sqr(U,800.));

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

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
double **sqr(
double **U,
double size                  
)
{
int i=4;

 if(size<100.) return(0); 
 
 for(;i--;)
  {
   GO(U,size/2.);TU(U,-144.);
   
   sqr(U,size/2.);
   
   TU(U,144.);GO(U,size/2.);TU(U,90.);
 } 
 return(U); 
}
/* ------------------------------------ */
/* ------------------------------------ */

Résultat dans gnuplot