Mathc initiation/a446

Sommaire

Installer ce fichier dans votre répertoire de travail.

Texte de la légende

fa.h /* ---------------------------------- */ /* save as fa.h */ /* ---------------------------------- */ #define LOOP 2*100 /* ---------------------------------- */ double Rx( double s, double t) { return( (sin(s)*cos(t)) ); } char Rxeq[] = "+(sin(s)*cos(t))"; /* ---------------------------------- */ double Ry( double s, double t) { return( (sin(s)*sin(t)) ); } char Ryeq[] = "+(sin(s)*sin(t))"; /* ---------------------------------- */ double Rz( double s, double t) { return( (cos(s)) ); } char Rzeq[] = "+cos(s)"; /* ---------------------------------- */ /* ---------------------------------- */ double f( double x, double y, double z) { return( x*x ); } char feq[] = "x**2"; /* ---------------------------------- */ /* ---------------------------------- */ double v( double s) { return( (PI) ); } char veq[] = "PI"; /* ---------------------------------- */ double u( double s) { return( (0) ); } char ueq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double bs = 2.*PI; char bseq[] = "2*PI"; double as = 0. ; char aseq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */

fb.h /* ---------------------------------- */ /* save as fb.h */ /* ---------------------------------- */ #define LOOP 2*100 /* ---------------------------------- */ double Rx( double s, double t) { return( (sin(s)*cos(t)) ); } char Rxeq[] = "+(sin(s)*cos(t))"; /* ---------------------------------- */ double Ry( double s, double t) { return( (sin(s)*sin(t)) ); } char Ryeq[] = "+(sin(s)*sin(t))"; /* ---------------------------------- */ double Rz( double s, double t) { return( (cos(s)) ); } char Rzeq[] = "+cos(s)"; /* ---------------------------------- */ /* ---------------------------------- */ double f( double x, double y, double z) { return( x*x ); } char feq[] = "x**2"; /* ---------------------------------- */ /* ---------------------------------- */ double v( double t) { return( (2.*PI) ); } char veq[] = "2*PI"; /* ---------------------------------- */ double u( double t) { return( (0) ); } char ueq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double bt = PI; char bteq[] = "PI"; double at = 0.; char ateq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */