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";
/* ---------------------------------- */
/* ---------------------------------- */
|
