Aller au contenu

Mathc gnuplot/0001

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     =   1.;
double     i     =   7.;

double **U = G_main(-4.,11.,-1.,10.);

   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(i<1.) return(0);
 
 angle+=-20; 
 vo(U,angle,2*side);
 
 fun(U,angle,side,--i);
 
 vo(U,angle,-2*side);
 
 angle+=40;
  vo(U,angle, side);
  
 fun(U,angle,side,--i);
 
 vo(U,angle,-side);
 angle+=-20; 
 
 return(U);  
}
/* ------------------------------------ */
/* ------------------------------------ */
Résultat dans gnuplot