Mathc gnuplot/Application : Vecteur normal

Sommaire

Courbe de Hilbert

N'oubliez pas les fichiers h de la librairie.

	c00a.c

/* ------------------------------------ */
/* save as : c00a.c                     */
/* ------------------------------------ */
#include "v_a.h"
#include "y_o.h"
/* ------------------------------------ */
double **hilbert(double **U,double size,
            double level,double parity);
/* ------------------------------------ */
int main(void)
{
double **U = GINIT(-1.5, .5,-2.,1.2);   

  F_mR(hilbert(U,1.,2.,1.));
  printf("  * open the file main.plt with Gnuplot.\n\n\n");     
  
  return 0;
}
/* ------------------------------------ */
double **hilbert(
double **U,
double size,
double level,
double parity                  
)
{
 if(--level<0.)return(0); 
 
 TU(U,parity*(-140));
 hilbert(U,size,level,-parity);
 GO(U,size);TU(U,parity*140);
 hilbert(U,size,level,parity);
 GO(U,size);
 hilbert(U,size,level,parity);
 TU(U,parity*140);GO(U,size);
 hilbert(U,size,level,-parity);
 TU(U,parity*(-140)); 

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

Résultat dans gnuplot