Mathc initiation/a533
Installer ce fichier dans votre répertoire de travail.
/* --------------------------------- */
/* save as fb.h */
/* --------------------------------- */
#define LOOP 2*300
/* --------------------------------- */
double s = 1./2.;
double aa = 2.;
/* --------------------------------- */
double F(
double t)
{
return( (t) );
}
char Feq[] = "t";
/* --------------------------------- */
double Fa(
double t)
{
return( (aa*t) );
}
char Faeq[] = "a*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./aa) * (1./(pow(s/aa,2))));
}
char f_seq[] = "1/a * (1/(s/a)^2)";
char f2seq[] = "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";
/* ---------------------------------- */
/* ---------------------------------- */
| |||||
/* --------------------------------- */
/* save as fc.h */
/* --------------------------------- */
#define LOOP 2*300
/* --------------------------------- */
double s = 1./2.;
double aa = 2.;
/* --------------------------------- */
double F(
double t)
{
return( pow(t,2) );
}
char Feq[] = "t**2";
/* --------------------------------- */
double Fa(
double t)
{
return( pow(aa*t,2) );
}
char Faeq[] = "(a*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( (1./aa) * 2./pow(s/aa,3));
}
char f_seq[] = "(1/a) * (2/(s/a)^3)";
char f2seq[] = "2*a^2/(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";
/* ---------------------------------- */
/* ---------------------------------- */
|
/* --------------------------------- */
/* save as fd.h */
/* --------------------------------- */
#define LOOP 2*300
/* --------------------------------- */
double s = 1./2.;
double aa = 2.;
/* --------------------------------- */
double F(
double t)
{
return( pow(t,3) );
}
char Feq[] = "t**3";
/* --------------------------------- */
double Fa(
double t)
{
return( pow(aa*t,3) );
}
char Faeq[] = "(a*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( (1./aa) * 6./pow(s/aa,4));
}
char f_seq[] = "(1/a) * (6/(s/a)^4)";
char f2seq[] = "6*a^3/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";
/* ---------------------------------- */
/* ---------------------------------- */
| ||||
/* --------------------------------- */
/* save as fe.h */
/* --------------------------------- */
#define LOOP 2*300
/* --------------------------------- */
double s = 5.;
double aa = 2.;
/* --------------------------------- */
double F(
double t)
{
return( (pow(t,4)) );
}
char Feq[] = "t**4";
/* --------------------------------- */
double Fa(
double t)
{
return( (pow(aa*t,4)) );
}
char Faeq[] = "(a*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( (1./aa) * (24./pow((s/aa),5)));
}
char f_seq[] = "1/a * (24/(s/a)^5)";
char f2seq[] = "24*a^4/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";
/* ---------------------------------- */
/* ---------------------------------- */
|
/* --------------------------------- */
/* save as ff.h */
/* --------------------------------- */
#define LOOP 2*300
/* --------------------------------- */
double s = 1./4.;
double aa = 2.;
/* --------------------------------- */
double F(
double t)
{
return( (sin(t)) );
}
char Feq[] = "sin(t)";
/* --------------------------------- */
double Fa(
double t)
{
return( (sin(aa*t)) );
}
char Faeq[] = "sin(a*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./aa) * (1./(pow(s/aa,2)+1.)) );
}
char f_seq[] = "1/a *(1./((s/a)^2+1)";
char f2seq[] = "a /(s^2+a^2)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 100.; char beq[] = "100";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =
"integrate e**(-s*t)*(sin(a*t)) dt"
" from t=0 to infinity";
/* ---------------------------------- */
/* ---------------------------------- */
| ||||
/* --------------------------------- */
/* save as fg.h */
/* --------------------------------- */
#define LOOP 2*300
/* --------------------------------- */
double s = 1./5.;
double aa = 2.;
/* --------------------------------- */
double F(
double t)
{
return( (cos(t)) );
}
char Feq[] = "cos(t)";
/* --------------------------------- */
double Fa(
double t)
{
return( (cos(aa*t)) );
}
char Faeq[] = "cos(at)";
/* --------------------------------- */
/* ---------------------------------
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( (1./aa) * ((s/aa)/(pow(s/aa,2)+1.)) );
}
char f_seq[] = "1/a *((s/a)/((s/a)^2+1))";
char f2seq[] = "s/(s^2+a^2)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 100.; char beq[] = "100";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =
"integrate e**(-s*t)*(cos(a*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 Fa(
double t)
{
return( (sinh(aa*t)) );
}
char Faeq[] = "sinh(a*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./aa) * (1/(pow(s/aa,2)-1.)) );
}
char f_seq[] = "1/a * (1/((s/a)^2-1))";
char f2seq[] = "(a/(s^2-a^2))";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 100.; char beq[] = "100";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =
"integrate e**(-s*t)*(sinh(.5*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 Fa(
double t)
{
return( (cosh(aa*t)) );
}
char Faeq[] = "cosh(a*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( (1./aa) * ((s/aa)/(pow(s/aa,2)-1.)) );
}
char f_seq[] = "((s/a)/((s/a)^2-1))";
char f2seq[] = "(s/(s^2-a^2))";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 100.; char beq[] = "100";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =
"integrate e**(-s*t)*(cosh(a*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 Fa(
double t)
{
return( (exp(aa*t)) );
}
char Faeq[] = "exp(a*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./aa) * (1/((s/aa)-1.)) );
}
char f_seq[] = "1/a *(1/((s/a)-1)) ";
char f2seq[] = "1/(s-a)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 100.; char beq[] = "100";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =
"integrate e**(-s*t)*(exp(a*t)) dt"
" from t=0 to infinity";
/* ---------------------------------- */
/* ---------------------------------- */
|
