Mathc initiation/a517

Un livre de Wikilivres.


Sommaire


Installer et compiler ces fichiers dans votre répertoire de travail.

c00a.c
/* --------------------------------- */
/* save as c00a.c                    */
/* --------------------------------- */
#include "x_afile.h"
#include      "fa.h"                 /* Try fa.h, fb.h, fc.h ... fj.h */
/* --------------------------------- */
int main(void)
{
double  M = LT_dt(   F, a,b, LOOP, s);

 clrscrn();  
 printf(" Laplace transform of F(t)\n\n\n");
 printf("     / oo\n");
 printf("    |\n");
 printf("    |    exp(-s t) F(t) dt = f(s)\n");
 printf("    |\n");
 printf("   /  0\n\n\n");
 
 printf(" If  F(t) : t-> %s  then f(s) = %s\n\n\n", Feq, feq);
 
  printf(" Mathematica Code\n\n"
        " %s \n\n\n\n", Mathematica_eq); 
 stop();
 
 clrscrn();  
 printf(" Laplace transform of F(t)\n\n");
 printf("     / oo\n");
 printf("    |\n");
 printf("    |    exp(-s t) F(t) dt = f(s)\n");
 printf("    |\n");
 printf("   /  0\n\n\n");
 printf(" If  F(t) : t-> %s  then  f(s) = %s\n\n", Feq, feq);  
 printf(" and with  s = (%+.3f)\n\n", s);
 printf("     / oo\n");
 printf("    |\n");
 printf("    | exp(-(%+.3f) t) %s dt = %.3f = f(s) = %.3f\n", 
                             s, Feq, M, f(s));
 printf("    |\n");
 printf("   /  0\n\n");
 
 printf(" Then f(s) s-> %s   is Laplace transform of F(t) : t-> %s\n\n",
          feq, Feq);
 stop();
 
 return 0;
}
/* --------------------------------- */
/* --------------------------------- */


Exemple de sortie écran :

 Laplace transform of F(t)


     / oo
    |
    |    exp(-s t) F(t) dt = f(s)
    |
   /  0


 If  F(t) : t-> (1)  then f(s) = (1/s)


 Mathematica Code

 integrate e**(-s*t)*(1) dt from t=0 to infinity 



 Press return to continue.


Exemple de sortie écran :

 Laplace transform of F(t)

     / oo
    |
    |    exp(-s t) F(t) dt = f(s)
    |
   /  0


 If  F(t) : t-> (1)  then  f(s) = (1/s)

 and with  s = (+0.500)

     / oo
    |
    | exp(-(+0.500) t) (1) dt = 2.000 = f(s) = 2.000
    |
   /  0

 Then f(s) s-> (1/s)   is Laplace transform of F(t) : t-> (1)

 Press return to continue.