# Mathc initiation/a537

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