# Mathc initiation/a516

Sommaire
Installer ce fichier dans votre répertoire de travail.
Texte de la légende :
| fa.h /* --------------------------------- */ /* save as fa.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; /* --------------------------------- */ double F( double t) { return( (1.) ); } char Feq = "(1)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((1./s)); } char feq = "(1/s)"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(1) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ | fb.h /* --------------------------------- */ /* save as fb.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; /* --------------------------------- */ double F( double t) { return( (t) ); } char Feq = "(t)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((1./(s*s))); } char feq = "(1/s^2)"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(t) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ |
| fc.h /* --------------------------------- */ /* save as fc.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; /* --------------------------------- */ double F( double t) { return( (t*t) ); } char Feq = "(t**2)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((2./(s*s*s))); } char feq = "(2/s^3)"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(t**2) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ | fd.h /* --------------------------------- */ /* save as fd.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; /* --------------------------------- */ double F( double t) { return( (t*t*t) ); } char Feq = "(t**3)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((6./(s*s*s*s))); } char feq = "(6/s^4)"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(t**3) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ |
| fe.h /* --------------------------------- */ /* save as fe.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; /* --------------------------------- */ double F( double t) { return( (t*t*t*t) ); } char Feq = "(t**4)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((24./(s*s*s*s*s))); } char feq = "(24/s^5)"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(t**4) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ | ff.h /* --------------------------------- */ /* save as ff.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./3.; /* --------------------------------- */ double F( double t) { return( (sin(t)) ); } char Feq = "(sin(t))"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((1./(s*s+1.))); } char feq = "(1/(s^2+1))"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(sin(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ |
| fg.h /* --------------------------------- */ /* save as fg.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./5.; /* --------------------------------- */ double F( double t) { return( (cos(t)) ); } char Feq = "(cos(t))"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((s/(s*s+1.))); } char feq = "(s/(s^2+1))"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(cos(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ | fh.h /* --------------------------------- */ /* save as fh.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 2.; /* --------------------------------- */ double F( double t) { return( (sinh(t)) ); } char Feq = "(sinh(t))"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((1/(s*s-1.))); } char feq = "(1/(s^2-1))"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(sinh(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ |
| fi.h /* --------------------------------- */ /* save as fi.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 2.; /* --------------------------------- */ double F( double t) { return( (cosh(t)) ); } char Feq = "(cosh(t))"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((s/(s*s-1.))); } char feq = "(s/(s^2-1))"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(cosh(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ | fj.h /* --------------------------------- */ /* save as fj.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 2.; /* --------------------------------- */ double F( double t) { return( (exp(t)) ); } char Feq = "(exp(t))"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((1/(s-1.))); } char feq = "(1/(s-1))"; /* ---------------------------------- */ double b = 100.; char beq = "100"; double a = 0.; char aeq = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq = "integrate e**(-s*t)*(exp(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */ |