Aller au contenu

Mathc gnuplot/0000

Un livre de Wikilivres.


Sommaire


N'oubliez pas les fichiers h de la librairie.

c00a.c
/* ------------------------------------ */
/* save as : c00a.c                     */
/* ------------------------------------ */
#include "v_a.h"
#include "y_r.h"
/* ------------------------------------ */
double **fun(
double **U,
double side,
double angle,
double i
);
/* ------------------------------------ */   
int main(void)
{
double angle     =  90.;
double  side     =  100;
double     i     =   1.;

double **U = G_main(-250.,250.,-100.,400.);

   F_mR(fun(U,angle,side,i));
   
  printf("  ... load \"a_main.plt\" ... with gnuplot.\n");
  getchar(); 

  return 0;
}
/* ------------------------------------ */   
double **fun(
double **U,
double angle,
double side,
double i
)
{
 if(side<i) return(0);
 
 angle+=-45; 
 vo(U,angle, side);
 
 fun(U,angle,side * 0.61803,i);
 
 vo(U,angle,-side); 
 angle+=90;
 vo(U,angle, side);
  
 fun(U,angle,side * 0.61803,i);
 
 vo(U,angle,-side);
 angle+=-45; 
 
 return(U);   
}
/* ------------------------------------ */
/* ------------------------------------ */
Résultat dans gnuplot