Mathc initiation/Fichiers h : c51

Sommaire

Installer ce fichier dans votre répertoire de travail.

Texte de la légende

f_krz.h /* --------------------------------- */ /* save as f_krz.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ 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"; /* --------------------------------- */ /* --------------------------------- */	f_kzr.h /* --------------------------------- */ /* save as f_kzr.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ 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"; /* --------------------------------- */ /* --------------------------------- */
f_rkz.h /* --------------------------------- */ /* save as f_rkz.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ 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"; /* --------------------------------- */ /* --------------------------------- */	f_rzk.h /* --------------------------------- */ /* save as f_rzk.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ 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"; /* --------------------------------- */ /* --------------------------------- */
f_zkr.h /* --------------------------------- */ /* save as f_zkr.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double r, double k, double z) { return( (z) ); } char feq[] = "z"; /* ---------- z b------------------- */ double v( double r, double k) { return(2.); } char veq[] = "2."; /* ---------- z a------------------- */ double u( double r, double k) { return(0); } char ueq[] = "0"; /* ---------- k b------------------- */ double t( double k) { return( PI/2.); } char teq[] = "PI/2."; /* ---------- k a------------------- */ double s( double k) { return( 0); } char seq[] = "0"; /* ------------ r ------------------ */ double b = 3.; char beq[] = "3"; double a = 0.; char aeq[] = "0"; /* --------------------------------- */ /* --------------------------------- */	f_zrk.h /* --------------------------------- */ /* save as f_zrk.h */ /* --------------------------------- */ #define LOOP 2*100 /* --------------------------------- */ double f( double r, double k, double z) { return( (z) ); } char feq[] = "z"; /* ---------- z b------------------- */ double v( double r, double k) { return(sqrt(4-r*r)); } char veq[] = "sqrt(4-r**2)"; /* ---------- z a------------------- */ double u( double r, double k) { return(0); } char ueq[] = "0"; /* ---------- r b------------------- */ double t( double k) { return( 1); } char teq[] = "1"; /* ---------- r a------------------- */ double s( double k) { return( 0); } char seq[] = "0"; /* ------------ k ------------------ */ double b = PI/2.; char beq[] = "PI/2"; double a = 0.; char aeq[] = "0"; /* --------------------------------- */ /* --------------------------------- */