Mathc initiation/a548

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 /* --------------------------------- */ #define A .3 /* --------------------------------- */ double s = .6; double aa = A; /* --------------------------------- */ double F( double t) { return( (t) ); } char Feq[] = "t"; /* --------------------------------- */ double F_mns_a( double t) { return( (t-aa) ); } char F_mns_aeq[] = "t-a"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((1./(s*s))); } char feq[] = "(1/s^2)"; /* --------------------------------- */ double f_s( double s) { return( exp(-aa*s)*(1./(s*s)) ); } char f_seq[] = "exp(-a s) (1/s^2)"; char f2seq[] = "exp(-a s)/s^2"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 300.; char beq[] = "300"; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * (t- a) dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-.6*t) * (t-.3) dt" " from t=.3 to 300"; /* ---------------------------------- */ /* ---------------------------------- */
fc.h /* --------------------------------- */ /* save as fc.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ #define A .3 /* --------------------------------- */ double s = .6; double aa = A; /* --------------------------------- */ double F( double t) { return( pow(t,2) ); } char Feq[] = "t**2"; /* --------------------------------- */ double F_mns_a( double t) { return( pow((t-aa),2) ); } char F_mns_aeq[] = "(t-a)**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( exp(-aa*s)* 2./pow(s,3)); } char f_seq[] = "exp(-a s) (2/s^3)"; char f2seq[] = "2 exp(-a s)/s^3"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 300.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * (t- a)**2 dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-.6*t) * (t-.3)**2 dt" " from t=.03 to 300"; /* ---------------------------------- */ /* ---------------------------------- */	fd.h /* --------------------------------- */ /* save as fd.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ #define A .3 /* --------------------------------- */ double s = .6; double aa = A; /* --------------------------------- */ double F( double t) { return( pow(t,3) ); } char Feq[] = "t**3"; /* --------------------------------- */ double F_mns_a( double t) { return( pow((t-aa),3) ); } char F_mns_aeq[] = "(t-a)**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( exp(-aa*s) * 6./pow(s,4)); } char f_seq[] = "exp(-a s) 6/s^4"; char f2seq[] = "6 exp(-a s)/s^4"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 500.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * (t- a)**3 dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-.6*t) * (t-.3)**3 dt" " from t=.3 to 500"; /* ---------------------------------- */ /* ---------------------------------- */
fe.h /* --------------------------------- */ /* save as fe.h */ /* --------------------------------- */ #define LOOP 4*300 /* --------------------------------- */ #define A .3 /* --------------------------------- */ double s = .6; double aa = A; /* --------------------------------- */ double F( double t) { return( (pow(t,4)) ); } char Feq[] = "t**4"; /* --------------------------------- */ double F_mns_a( double t) { return( pow((t-aa),4) ); } char F_mns_aeq[] = "(t-aa)**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( exp(-aa*s) * 24./pow(s,5) ); } char f_seq[] = "exp(-a s) 24/s^5"; char f2seq[] = "24 exp(-a s)/s^5"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 500.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * (t- a)**4 dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-.6*t) * (t-.3)**4 dt" " from t=.3 to 500"; /* ---------------------------------- */ /* ---------------------------------- */	ff.h /* --------------------------------- */ /* save as ff.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ #define A .3 /* --------------------------------- */ double s = .6; double aa = A; /* --------------------------------- */ double F( double t) { return( sin(t) ); } char Feq[] = "sin(t)"; /* --------------------------------- */ double F_mns_a( double t) { return( sin(t-aa) ); } char F_mns_aeq[] = "sin(t-a)"; /* --------------------------------- */ /* --------------------------------- 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(exp(-aa*s) * (1./(pow(s,2)+1.)) ); } char f_seq[] = "exp(-a s) (1/(s^2+1))"; char f2seq[] = "exp(-a s)/(s^2+1)"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 400.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * sin(t- a) dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-.6*t) * sin(t-.3) dt" " from t=.3 to infinity"; /* ---------------------------------- */ /* ---------------------------------- */
fg.h /* --------------------------------- */ /* save as fg.h */ /* --------------------------------- */ #define LOOP 4*300 /* --------------------------------- */ #define A .3 /* --------------------------------- */ double s = .6; double aa = A; /* --------------------------------- */ double F( double t) { return( (cos(t)) ); } char Feq[] = "cos(t)"; /* --------------------------------- */ double F_mns_a( double t) { return( cos(t-aa) ); } char F_mns_aeq[] = "cos(t-a)"; /* --------------------------------- */ /* --------------------------------- 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( exp(-aa*s) * s/(pow(s,2)+1.) ); } char f_seq[] = "exp(-a s) s/(s^2+1)"; char f2seq[] = "exp(-a s) s/(s^2+1)"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 500.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * cos(t- a) dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-.6*t) * cos(t-.3) dt" " from t=.3 to 500"; /* ---------------------------------- */ /* ---------------------------------- */	fh.h /* --------------------------------- */ /* save as fh.h */ /* --------------------------------- */ #define LOOP 4*300 /* --------------------------------- */ #define A .5 /* --------------------------------- */ double s = 3.; double aa = A; /* --------------------------------- */ double F( double t) { return( (sinh(t)) ); } char Feq[] = "sinh(t)"; /* --------------------------------- */ double F_mns_a( double t) { return( sinh(t-aa) ); } char F_mns_aeq[] = "sinh(t-a)"; /* --------------------------------- */ /* --------------------------------- 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( exp(-aa*s) * (1/(pow(s,2)-1.)) ); } char f_seq[] = "exp(-a s) 1/(s^2-1)"; char f2seq[] = "exp(-a s)/(s^2-1)"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 500.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * sinh(t- a) dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-3.*t) * sinh(t-.5) dt" " from t=.5 to 500"; /* ---------------------------------- */ /* ---------------------------------- */
fi.h /* --------------------------------- */ /* save as fi.h */ /* --------------------------------- */ #define LOOP 4*300 /* --------------------------------- */ #define A .5 /* --------------------------------- */ double s = 2.; double aa = A; /* --------------------------------- */ double F( double t) { return( (cosh(t)) ); } char Feq[] = "cosh(t)"; /* --------------------------------- */ double F_mns_a( double t) { return( cosh(t-aa) ); } char F_mns_aeq[] = "cosh(t-a)"; /* --------------------------------- */ /* --------------------------------- 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( exp(-aa*s) * (s)/(pow(s,2)-1.) ); } char f_seq[] = "exp(-a s) s/(s^2-1)"; char f2seq[] = "exp(-a s) s/(s^2-1)"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 500.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * cosh(t- a) dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-2.*t) * cosh(t-.5) dt" " from t=.5 to 500"; /* ---------------------------------- */ /* ---------------------------------- */	fj.h /* --------------------------------- */ /* save as fj.h */ /* --------------------------------- */ #define LOOP 2*300 /* --------------------------------- */ #define A .3 /* --------------------------------- */ double s = 3.; double aa = A; /* --------------------------------- */ double F( double t) { return( (exp(t)) ); } char Feq[] = "exp(t)"; /* --------------------------------- */ double F_mns_a( double t) { return( exp(t-aa) ); } char F_mns_aeq[] = "exp(t-a)"; /* --------------------------------- */ /* --------------------------------- Laplace transform of F(t) --------------------------------- */ double f( double s) { return((1/(s-1.))); } char feq[] = "(1/(s-1))"; /* ---------------------------------- */ double f_s( double s) { return( exp(-aa*s) * (1/(s-1.)) ); } char f_seq[] = "exp(-a s) 1/(s-1)"; char f2seq[] = "exp(-a s)/(s-1)"; /* ---------------------------------- */ /* ---------------------------------- */ double b = 200.; double a = A; /* ---------------------------------- */ /* ---------------------------------- */ char Mathematica_eq_1[] = "integrate exp(-s *t) * exp(t- a) dt" " from t=a to infinity"; /* --------------------------------- */ char Mathematica_eq_2[] = "integrate exp(-3.*t) * exp(t-.3) dt" " from t=.3 to 200"; /* ---------------------------------- */ /* ---------------------------------- */

---