Mathc initiation/a537
Installer ce fichier dans votre répertoire de travail.
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
| |||||
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
|
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
| ||||
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
|
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
| ||||
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
|
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
| ||||
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
|
/* --------------------------------- */
/* 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";
/* ---------------------------------- */
/* ---------------------------------- */
|
