Mathc gnuplot/000s

Sommaire

Arbre

N'oubliez pas les fichiers h de la librairie.

	c00a.c

/* ------------------------------------ */
/* save as : c00a.c                     */
/* ------------------------------------ */
#include "v_a.h"
#include "y_o.h"
/* ------------------------------------ */  
double **tree(double **U,double size,double limit);
/* ------------------------------------ */
int main(void)
{
double **U = GINIT(-250.,250.,-50.,250.);

  F_mR(tree(U,100.,2.));

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

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */   
double **tree(
double **U,
double size,
double limit                           
)
{
if(size<limit)return(0);

TU(U,-45.);GO(U,size);

tree(U,size*0.61803,limit);

GO(U,-size);TU(U,90.);GO(U,size);

tree(U,size*0.61803,limit);

GO(U,-size);TU(U,-45.);

return(U); 
}
/* ------------------------------------ */
/* ------------------------------------ */

Résultat dans gnuplot