Mathc gnuplot/Animation : Vecteur unitaire

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(-6., 0.5,-1.5,5.0);   

  F_mR(hilbert(U,1.,3.,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*(-100));
 hilbert(U,size,level,-parity);
 GO(U,size);TU(U,parity*100);
 hilbert(U,size,level,parity);
 GO(U,size);
 hilbert(U,size,level,parity);
 TU(U,parity*100);GO(U,size);
 hilbert(U,size,level,-parity);
 TU(U,parity*(-100)); 

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

Résultat dans gnuplot