Mathc initiation/003s

Sommaire

Installer ce fichier dans votre répertoire de travail.

Texte de la légende

fb0.h /* --------------------------------- */ /* save as fb0.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double x, double y, double z) { return( (z*cos(y))); } char feq[] = "(z cos(y))"; /* ---------------------------------- */ double g( double a, double b, double r) { return( (r*cos(b))*(r*r*sin(b))); } char geq[] = "(r cos(b)) [r**2 sin(b)]"; /* ---------------------------------- */ /* --------------------------------- */ double r1( double a, double b) { return( 1); } char r1eq[] = "1"; /* ---------------------------------- */ double r0( double a, double b) { return( 0.); } char r0eq[] = "0"; /* ---------------------------------- */ /* --------------------------------- */ double b1( double a) { return( PI/2.); } char b1eq[] = "PI/2"; /* ---------------------------------- */ double b0( double a) { return( 0.); } char b0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double a1 = 2*PI; char a1eq[] = "2*Pi"; double a0 = 0.; char a0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */	fc0.h /* --------------------------------- */ /* save as fc0.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double x, double y, double z) { return( (z*cos(y))); } char feq[] = "(z cos(y))"; /* ---------------------------------- */ double g( double a, double b, double r) { return( (r*cos(b))*(r*r*sin(b))); } char geq[] = "(r cos(b)) [r**2 sin(b)]"; /* ---------------------------------- */ /* --------------------------------- */ double r1( double a, double b) { return( 1); } char r1eq[] = "1"; /* ---------------------------------- */ double r0( double a, double b) { return( 0.); } char r0eq[] = "0"; /* ---------------------------------- */ /* --------------------------------- */ double a1( double b) { return( 2*PI); } char a1eq[] = "2 PI"; /* ---------------------------------- */ double a0( double b) { return( 0.); } char a0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double b1 = PI/2.; char b1eq[] = "PI/2"; double b0 = 0.; char b0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */
fd0.h /* --------------------------------- */ /* save as fd0.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double x, double y, double z) { return( (z*cos(y))); } char feq[] = "(z cos(y))"; /* ---------------------------------- */ double g( double a, double b, double r) { return( (r*cos(b))*(r*r*sin(b))); } char geq[] = "(r cos(b)) [r**2 sin(b)]"; /* ---------------------------------- */ /* --------------------------------- */ double b1( double a, double r) { return( PI/2.); } char b1eq[] = "PI/2"; /* ---------------------------------- */ double b0( double a, double r) { return( 0.); } char b0eq[] = "0"; /* ---------------------------------- */ /* --------------------------------- */ double r1( double a) { return( 1); } char r1eq[] = "1"; /* ---------------------------------- */ double r0( double a) { return( 0.); } char r0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double a1 = 2*PI; char a1eq[] = "2*Pi"; double a0 = 0.; char a0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */	fe0.h /* --------------------------------- */ /* save as fe0.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double x, double y, double z) { return( (z*cos(y))); } char feq[] = "(z cos(y))"; /* ---------------------------------- */ double g( double a, double b, double r) { return( (r*cos(b))*(r*r*sin(b))); } char geq[] = "(r cos(b)) [r**2 sin(b)]"; /* ---------------------------------- */ /* --------------------------------- */ double b1( double a, double r) { return( PI/2.); } char b1eq[] = "PI/2"; /* ---------------------------------- */ double b0( double a, double r) { return( 0.); } char b0eq[] = "0"; /* ---------------------------------- */ /* --------------------------------- */ double a1( double r) { return( 2*PI); } char a1eq[] = "2PI"; /* ---------------------------------- */ double a0( double r) { return( 0.); } char a0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double r1 = 1; char r1eq[] = "1"; double r0 = 0; char r0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */
ff0.h /* --------------------------------- */ /* save as ff0.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double x, double y, double z) { return( (z*cos(y))); } char feq[] = "(z cos(y))"; /* ---------------------------------- */ double g( double a, double b, double r) { return( (r*cos(b))*(r*r*sin(b))); } char geq[] = "(r cos(b)) [r**2 sin(b)]"; /* ---------------------------------- */ /* --------------------------------- */ double a1( double b, double r) { return( 2*PI); } char a1eq[] = "2PI"; /* ---------------------------------- */ double a0( double b, double r) { return( 0.); } char a0eq[] = "0"; /* ---------------------------------- */ /* --------------------------------- */ double b1( double r) { return( PI/2.); } char b1eq[] = "PI/2"; /* ---------------------------------- */ double b0( double r) { return( 0.); } char b0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double r1 = 1; char r1eq[] = "1"; double r0 = 0; char r0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */	fg0.h /* --------------------------------- */ /* save as fg0.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double x, double y, double z) { return( (z*cos(y))); } char feq[] = "(z cos(y))"; /* ---------------------------------- */ double g( double a, double b, double r) { return( (r*cos(b))*(r*r*sin(b))); } char geq[] = "(r cos(b)) [r**2 sin(b)]"; /* ---------------------------------- */ /* --------------------------------- */ double a1( double b, double r) { return( 2*PI); } char a1eq[] = "2PI"; /* ---------------------------------- */ double a0( double b, double r) { return( 0.); } char a0eq[] = "0"; /* ---------------------------------- */ /* --------------------------------- */ double r1( double b) { return( 1); } char r1eq[] = "1"; /* ---------------------------------- */ double r0( double b) { return( 0.); } char r0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double b1 = PI/2.; char b1eq[] = "PI/2"; double b0 = 0; char b0eq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */	}