Mathc initiation/a518

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 aa = 2.; /* --------------------------------- */ double F( double t) { return( (2.) ); } char Feq[] = "(a)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((2./s)); } char feq[] = "(a/s)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t)*(a) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */	fb.h /* --------------------------------- */ /* save as fb.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; double aa = 2.; /* --------------------------------- */ double F( double t) { return( (2*t) ); } char Feq[] = "(a*t)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((2./(s*s))); } char feq[] = "(a/s^2)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t)*(a*t) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */
fc.h /* --------------------------------- */ /* save as fc.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; double aa = 2.; /* --------------------------------- */ double F( double t) { return( (2.*t*t) ); } char Feq[] = "(a*t**2)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((2.*2/(s*s*s))); } char feq[] = "(2*a/s^3)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t)*(a*t**2) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */	fd.h /* --------------------------------- */ /* save as fd.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; double aa = 2.; /* --------------------------------- */ double F( double t) { return( (2.*t*t*t) ); } char Feq[] = "(a*t**3)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((6.*2/(s*s*s*s))); } char feq[] = "(6*a/s^4)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t)*(a*t**3) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */
fe.h /* --------------------------------- */ /* save as fe.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./2.; double aa = 2.; /* --------------------------------- */ double F( double t) { return( (2*t*t*t*t) ); } char Feq[] = "(a*t**4)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((24.*2./(s*s*s*s*s))); } char feq[] = "(24*a/s^5)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t)*(a*t**4) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */	ff.h /* --------------------------------- */ /* save as ff.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./3.; double aa = 2.; /* --------------------------------- */ double F( double t) { return( (2*sin(t)) ); } char Feq[] = "a*sin(t)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((2.*1./(s*s+1))); } char feq[] = "a/(s^2+1)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t) * (a*sin(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */
fg.h /* --------------------------------- */ /* save as fg.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 1./5.; double aa = 2.; /* --------------------------------- */ double F( double t) { return( (2.*cos(t)) ); } char Feq[] = "a*cos(t)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((2*s/(s*s+1))); } char feq[] = "a*s/(s^2+1)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t) * (a*cos(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */	fh.h /* --------------------------------- */ /* save as fh.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 2.; double aa = .5; /* --------------------------------- */ double F( double t) { return( (.5*sinh(t)) ); } char Feq[] = "a*sinh(t)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((.5*1./(s*s-1))); } char feq[] = "a/(s^2-1)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t)*(2.*sinh(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */
fi.h /* --------------------------------- */ /* save as fi.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 2.; double aa = .5; /* --------------------------------- */ double F( double t) { return( (.5*cosh(t)) ); } char Feq[] = "a*cosh(t)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((.5*s/(s*s-1.))); } char feq[] = "a*s/(s^2-1)"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t) * (a*cosh(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */	fj.h /* --------------------------------- */ /* save as fj.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ double s = 2.; double aa = .5; /* --------------------------------- */ double F( double t) { return( (.5*exp(t)) ); } char Feq[] = "a*exp(t)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((.5/(s-1.))); } char feq[] = "(a/(s-1))"; /* ---------------------------------- */ double b = 100.; char beq[] = "100"; double a = 0.; char aeq[] = "0"; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq[] = "integrate e**(-s*t) * (a*exp(t)) dt" " from t=0 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */

---