# Mathc initiation/a469

Sommaire
Installer ce fichier dans votre répertoire de travail.
Texte de la légende :
| fa.h /* ---------------------------------- */ /* save as fa.h */ /* --------------------------------- */ #define LOOP 2*50 /* ---------------------------------- */ double f( double x, double y, double z) { return( (x*y*z) ); } char feq = "(x*y*z)"; /* --------------------------------- */ /* --------------------------------- */ double vz( double x, double y) { return( (+sqrt(x*x+y*y))); } char veq = "+sqrt(x**2+y**2)"; /* --------------------------------- */ double uz( double x, double y) { return( 0.); } char ueq = "0"; /* --------------------------------- */ /* --------------------------------- */ double tx( double y) { return( (+sqrt(1-y*y))); } char teq = "+sqrt(1-y**2)"; /* --------------------------------- */ double sx( double y) { return( (0.)); } char seq = "0"; /* --------------------------------- */ /* --------------------------------- */ double by = +1.; char beq = "+1"; double ay = -0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ | |
| fb.h /* --------------------------------- */ /* save as f_b.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double r, double k, double z) { return( (r*cos(k) * r*sin(k) * z) ); } char feq = "(r*cos(k) * r*sin(k) * z)"; /* ---------- z b------------------- */ double v( double r, double k) { return( r); } char veq = "r"; /* ---------- z a------------------- */ double u( double r, double k) { return( 0.); } char ueq = "0"; /* ---------- k b------------------- */ double t( double k) { return( 1.); } char teq = "1"; /* ---------- k a------------------- */ double s( double k) { return( 0); } char seq = "0"; /* ------------ r ------------------ */ double b = +PI/2.; char beq = "+PI/2"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ . . . . . . . . . . . . . . . | fb2.h /* --------------------------------- */ /* save as f_b2.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double x, double y, double z) { return( (x*y*z) ); } char feq = "(x*y*z)"; /* --------------------------------- */ /* --------------------------------- */ double X( double r, double k, double z) { return( (r*cos(k))); } char Xeq = "(r*cos(k))"; /* --------------------------------- */ double Y( double r, double k, double z) { return( (r*sin(k))); } char Yeq = "(r*sin(k))"; /* --------------------------------- */ double Z( double r, double k, double z) { return( (z)); } char Zeq = "(z)"; /* --------------------------------- */ /* ---------- z b------------------- */ double v( double r, double k) { return( r); } char veq = "r"; /* ---------- z a------------------- */ double u( double r, double k) { return( 0.); } char ueq = "0"; /* ---------- k b------------------- */ double t( double k) { return( 1.); } char teq = "1"; /* ---------- k a------------------- */ double s( double k) { return( 0); } char seq = "0"; /* ------------ r ------------------ */ double b = +PI/2.; char beq = "+PI/2"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ |
| fc.h /* --------------------------------- */ /* save as f_c.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double r, double k, double z) { return( (r*cos(k) * r*sin(k) * z) ); } char feq = "(r*cos(k) * r*sin(k) * z)"; /* ---------- z b------------------- */ double v( double r, double k) { return( r); } char veq = "r"; /* ---------- z a------------------- */ double u( double r, double k) { return( 0.); } char ueq = "0"; /* ---------- r b------------------- */ double t( double k) { return( +PI/2.); } char teq = "+PI/2"; /* ---------- r a------------------- */ double s( double k) { return( 0); } char seq = "0"; /* ------------ k ------------------ */ double b = +1.; char beq = "1"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ . . . . . . . . . . . . . . . | fc2.h /* --------------------------------- */ /* save as f_c2.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double x, double y, double z) { return( (x*y*z) ); } char feq = "(x*y*z)"; /* --------------------------------- */ /* --------------------------------- */ double X( double r, double k, double z) { return( (r*cos(k))); } char Xeq = "(r*cos(k))"; /* --------------------------------- */ double Y( double r, double k, double z) { return( (r*sin(k))); } char Yeq = "(r*sin(k))"; /* --------------------------------- */ double Z( double r, double k, double z) { return( (z)); } char Zeq = "(z)"; /* --------------------------------- */ /* ---------- z b------------------- */ double v( double r, double k) { return( r); } char veq = "r"; /* ---------- z a------------------- */ double u( double r, double k) { return( 0.); } char ueq = "0"; /* ---------- r b------------------- */ double t( double r) { return( +PI/2.); } char teq = "+PI/2"; /* ---------- r a------------------- */ double s( double r) { return( 0); } char seq = "0"; /* ------------ k ------------------ */ double b = +1.; char beq = "1"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ |
| fd.h /* --------------------------------- */ /* save as f_d.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double r, double k, double z) { return( (z) ); } char feq = "z"; /* ---------- k b------------------- */ double v( double k, double z) { return( 2*PI); } char veq = "2*PI"; /* ---------- k a------------------- */ double u( double k, double z) { return( 0); } char ueq = "0"; /* ----------- r b------------------- */ double t( double z) { return( 2); } char teq = "2"; /* ----------- r a------------------- */ double s( double z) { return( 0); } char seq = "0"; /* ------------- z ----------------- */ double b = 1.; char beq = "1"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ . . . . . . . . . . . . . . . | fd2.h /* --------------------------------- */ /* save as f_d2.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double x, double y, double z) { return( (z) ); } char feq = "z"; /* --------------------------------- */ /* --------------------------------- */ double X( double r, double k, double z) { return( (r*cos(k))); } char Xeq = "(r*cos(k))"; /* --------------------------------- */ double Y( double r, double k, double z) { return( (r*sin(k))); } char Yeq = "(r*sin(k))"; /* --------------------------------- */ double Z( double r, double k, double z) { return( (z)); } char Zeq = "(z)"; /* --------------------------------- */ /* ---------- k b------------------- */ double v( double k, double z) { return( 2*PI); } char veq = "2*PI"; /* ---------- k a------------------- */ double u( double k, double z) { return( 0); } char ueq = "0"; /* ----------- r b------------------- */ double t( double z) { return( 2); } char teq = "2"; /* ----------- r a------------------- */ double s( double z) { return( 0); } char seq = "0"; /* ------------- z ----------------- */ double b = 1.; char beq = "1"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ |
| fe.h /* --------------------------------- */ /* save as f_e.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double r, double k, double z) { return( (z) ); } char feq = "z"; /* ---------- k b------------------- */ double v( double k, double z) { return( 2*PI); } char veq = "2*PI"; /* ---------- k a------------------- */ double u( double k, double z) { return( 0); } char ueq = "0"; /* ----------- z b------------------- */ double t( double z) { return( 1); } char teq = "1"; /* ----------- z a------------------- */ double s( double z) { return( 0); } char seq = "0"; /* ------------- r ----------------- */ double b = 2.; char beq = "2"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ . . . . . . . . . . . . . . . | fe2.h /* --------------------------------- */ /* save as f_e2.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double x, double y, double z) { return( (z) ); } char feq = "z"; /* --------------------------------- */ /* --------------------------------- */ double X( double r, double k, double z) { return( (r*cos(k))); } char Xeq = "(r*cos(k))"; /* --------------------------------- */ double Y( double r, double k, double z) { return( (r*sin(k))); } char Yeq = "(r*sin(k))"; /* --------------------------------- */ double Z( double r, double k, double z) { return( (z)); } char Zeq = "(z)"; /* --------------------------------- */ /* ---------- k b------------------- */ double v( double k, double z) { return( 2*PI); } char veq = "2*PI"; /* ---------- k a------------------- */ double u( double k, double z) { return( 0); } char ueq = "0"; /* ----------- z b------------------- */ double t( double z) { return( 1); } char teq = "1"; /* ----------- z a------------------- */ double s( double z) { return( 0); } char seq = "0"; /* ------------- r ----------------- */ double b = 2.; char beq = "2"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ |
| ff.h /* --------------------------------- */ /* save as f_f.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double r, double k, double z) { return( (z) ); } char feq = "z"; /* ---------- r b------------------- */ double v( double k, double z) { return( sqrt(4-z)); } char veq = "sqrt(4-z)"; /* ---------- r a------------------- */ double u( double k, double z) { return( 0); } char ueq = "0"; /* ----------- k b------------------- */ double t( double z) { return( 2*PI); } char teq = "2*PI"; /* ----------- k a------------------- */ double s( double z) { return( 0); } char seq = "0"; /* ------------- z ----------------- */ double b = 2.; char beq = "2"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ . . . . . . . . . . . . . . . | ff2.h /* --------------------------------- */ /* save as f_f2.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double x, double y, double z) { return( (z) ); } char feq = "z"; /* --------------------------------- */ /* --------------------------------- */ double X( double r, double k, double z) { return( (r*cos(k))); } char Xeq = "(r*cos(k))"; /* --------------------------------- */ double Y( double r, double k, double z) { return( (r*sin(k))); } char Yeq = "(r*sin(k))"; /* --------------------------------- */ double Z( double r, double k, double z) { return( (z)); } char Zeq = "(z)"; /* --------------------------------- */ /* ---------- r b------------------- */ double v( double k, double z) { return( sqrt(4-z)); } char veq = "sqrt(4-z)"; /* ---------- r a------------------- */ double u( double k, double z) { return( 0); } char ueq = "0"; /* ----------- k b------------------- */ double t( double z) { return( 2*PI); } char teq = "2*PI"; /* ----------- k a------------------- */ double s( double z) { return( 0); } char seq = "0"; /* ------------- z ----------------- */ double b = 2.; char beq = "2"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ |
| fg.h /* --------------------------------- */ /* save as f_g.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double r, double k, double z) { return( (z) ); } char feq = "z"; /* ---------- r b------------------- */ double v( double k, double z) { return(sqrt(4-z)); } char veq = "sqrt(4-z)"; /* ---------- r a------------------- */ double u( double k, double z) { return(0); } char ueq = "0"; /* ---------- z b------------------- */ double t( double k) { return( 2); } char teq = "2"; /* ---------- z a------------------- */ double s( double k) { return( 1); } char seq = "1"; /* -------------- k ---------------- */ double b = 2.*PI; char beq = "2*PI"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ . . . . . . . . . . . . . . . | fg2.h /* --------------------------------- */ /* save as f_g2.h */ /* --------------------------------- */ #define LOOP 2*50 /* --------------------------------- */ double f( double x, double y, double z) { return( (z) ); } char feq = "z"; /* --------------------------------- */ /* --------------------------------- */ double X( double r, double k, double z) { return( (r*cos(k))); } char Xeq = "(r*cos(k))"; /* --------------------------------- */ double Y( double r, double k, double z) { return( (r*sin(k))); } char Yeq = "(r*sin(k))"; /* --------------------------------- */ double Z( double r, double k, double z) { return( (z)); } char Zeq = "(z)"; /* --------------------------------- */ /* ---------- r b------------------- */ double v( double k, double z) { return(sqrt(4-z)); } char veq = "sqrt(4-z)"; /* ---------- r a------------------- */ double u( double k, double z) { return(0); } char ueq = "0"; /* ---------- z b------------------- */ double t( double k) { return( 2); } char teq = "2"; /* ---------- z a------------------- */ double s( double k) { return( 1); } char seq = "1"; /* -------------- k ---------------- */ double b = 2.*PI; char beq = "2*PI"; double a = 0.; char aeq = "0"; /* --------------------------------- */ /* --------------------------------- */ |