Mathc initiation/c34a3

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 h( double r, double k) { return( (4 - r*r) ); } char heq[] = "4 - r**2"; /* ---------------------------------- */ /* ---------------------------------- */ double t( double k) { return( (2) ); } char teq[] = "2"; /* ---------------------------------- */ double s( double k) { return( (0) ); } char seq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double bk = PI/2.; char bkeq[] = "PI/2"; double ak = 0.; char akeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */	fb.h /* ---------------------------------- */ /* save as fb.h */ /* ---------------------------------- */ #define LOOP 2*100 /* ---------------------------------- */ double h( double r, double k) { return( (7. - 7./25. * r*r) ); } char heq[] = "7 - 7./25 * r**2"; /* ---------------------------------- */ /* ---------------------------------- */ double t( double k) { return( (5) ); } char teq[] = "5"; /* ---------------------------------- */ double s( double k) { return( (0) ); } char seq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double bk = 2*PI; char bkeq[] = "2*PI"; double ak = 0.; char akeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */
fc.h /* ---------------------------------- */ /* save as fc.h */ /* ---------------------------------- */ #define LOOP 2*100 /* ---------------------------------- */ double h( double r, double k) { return( (4 - r*r) ); } char heq[] = "4 - r**2"; /* ---------------------------------- */ /* ---------------------------------- */ double t( double r) { return( (PI/2) ); } char teq[] = "Pi/2"; /* ---------------------------------- */ double s( double r) { return( (0) ); } char seq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double br = 2.; char breq[] = "2"; double ar = 0.; char areq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */	fd.h /* ---------------------------------- */ /* save as fd.h */ /* ---------------------------------- */ #define LOOP 2*100 /* ---------------------------------- */ double h( double r, double k) { return( (7. - 7./25. * r*r) ); } char heq[] = "7 - 7./25 * r**2"; /* ---------------------------------- */ /* ---------------------------------- */ double t( double r) { return( (2*PI) ); } char teq[] = "2*Pi"; /* ---------------------------------- */ double s( double r) { return( (0) ); } char seq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ double br = 5.; char breq[] = "5"; double ar = 0.; char areq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */

---