Aller au contenu

Mathc initiation/a518

Un livre de Wikilivres.


Sommaire


Installer ce fichier dans votre répertoire de travail.

Texte de la légende
fa.h
 
/* --------------------------------- */
/* save as fa.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double  s  =  1./2.;
double  aa =  2.;
/* --------------------------------- */
double F(
double t)
{
        return( (2.) );
}
char  Feq[] =  "(a)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((2./s));
}
char  feq[] =  "(a/s)";
/* ---------------------------------- */
double b = 100.;    char beq[] = "100";
double a =   0.;    char aeq[] =   "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =  
     "integrate e**(-s*t)*(a) dt"
     " from t=0 to infinity";  
/* ---------------------------------- */
/* ---------------------------------- */
fb.h
/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double  s  =  1./2.;
double  aa =  2.;
/* --------------------------------- */
double F(
double t)
{
        return( (2*t) );
}
char  Feq[] =  "(a*t)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((2./(s*s)));
}
char  feq[] =  "(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";  
/* ---------------------------------- */
/* ---------------------------------- */
fc.h
/* --------------------------------- */
/* save as fc.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double  s  =  1./2.;
double  aa =  2.;
/* --------------------------------- */
double F(
double t)
{
        return( (2.*t*t) );
}
char  Feq[] =  "(a*t**2)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((2.*2/(s*s*s)));
}
char  feq[] =  "(2*a/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";  
/* ---------------------------------- */
/* ---------------------------------- */
fd.h
/* --------------------------------- */
/* save as fd.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double  s  =  1./2.;
double  aa =  2.;
/* --------------------------------- */
double F(
double t)
{
        return( (2.*t*t*t) );
}
char  Feq[] =  "(a*t**3)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((6.*2/(s*s*s*s)));
}
char  feq[] =  "(6*a/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";  
/* ---------------------------------- */
/* ---------------------------------- */
fe.h
/* --------------------------------- */
/* save as fe.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double  s  =  1./2.;
double  aa =  2.;
/* --------------------------------- */
double F(
double t)
{
        return( (2*t*t*t*t) );
}
char  Feq[] =  "(a*t**4)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((24.*2./(s*s*s*s*s)));
}
char  feq[] =  "(24*a/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";  
/* ---------------------------------- */
/* ---------------------------------- */
ff.h
/* --------------------------------- */
/* save as ff.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double  s  =  1./3.;
double  aa =  2.;
/* --------------------------------- */
double F(
double t)
{
        return( (2*sin(t)) );
}
char  Feq[] =  "a*sin(t)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((2.*1./(s*s+1)));
}
char  feq[] =  "a/(s^2+1)";
/* ---------------------------------- */
double b = 100.;    char beq[] = "100";
double a =   0.;    char aeq[] =   "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =  
     "integrate e**(-s*t) * (a*sin(t)) dt"
     " from t=0 to infinity";  
/* ---------------------------------- */
/* ---------------------------------- */
fg.h
/* --------------------------------- */
/* save as fg.h                      */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double  s  =  1./5.;
double  aa =  2.;
/* --------------------------------- */
double F(
double t)
{
        return( (2.*cos(t)) );
}
char  Feq[] =  "a*cos(t)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((2*s/(s*s+1)));
}
char  feq[] =  "a*s/(s^2+1)";
/* ---------------------------------- */
double b = 100.;    char beq[] = "100";
double a =   0.;    char aeq[] =   "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =  
     "integrate e**(-s*t) * (a*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( (.5*sinh(t)) );
}
char  Feq[] =  "a*sinh(t)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((.5*1./(s*s-1)));
}
char  feq[] =  "a/(s^2-1)";
/* ---------------------------------- */
double b = 100.;    char beq[] = "100";
double a =   0.;    char aeq[] =   "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =  
     "integrate e**(-s*t)*(2.*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( (.5*cosh(t)) );
}
char  Feq[] =  "a*cosh(t)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
       return((.5*s/(s*s-1.)));
}
char  feq[] =  "a*s/(s^2-1)";
/* ---------------------------------- */
double b = 100.;    char beq[] = "100";
double a =   0.;    char aeq[] =   "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =  
     "integrate e**(-s*t) * (a*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( (.5*exp(t)) );
}
char  Feq[] =  "a*exp(t)";
/* --------------------------------- */
/* ---------------------------------
   Laplace transform of F(t)
   --------------------------------- */
double f(
double s)
{
         return((.5/(s-1.)));
}
char  feq[] =  "(a/(s-1))";
/* ---------------------------------- */
double b = 100.;    char beq[] = "100";
double a =   0.;    char aeq[] =   "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =  
     "integrate e**(-s*t) * (a*exp(t)) dt"
     " from t=0 to infinity";  
/* ---------------------------------- */
/* ---------------------------------- */