Mathc initiation/a531
Installer et compiler ces fichiers dans votre répertoire de travail.
|
c00b.c |
|---|
/* --------------------------------- */
/* save as c00b.c */
/* --------------------------------- */
#include "x_afile.h"
#include "fc.h" /* Try fb.h, fc.h ... fj.h */
/* --------------------------------- */
int main(void)
{
double M = LT_dt( d2F, a,b, LOOP, s);
clrscrn();
printf(" The Laplace transform of F(t) is f(s) \n\n"
" / oo \n"
" | \n"
" L{F(t)} = | exp(-s t) F(t) dt = f(s) \n"
" | \n"
" / 0 \n\n\n");
printf(" A property of the Laplace transform is : \n\n"
" L{F''(t)} = s**2 * f(s) - s * F(0) - F'(0)\n\n");
stop();
clrscrn();
printf(" /+oo \n"
" | exp(-s t) [F''(t)] dt = s**2 f(s)-s F(0)-F'(0)\twith s = %+.3f\n"
" /0 \n\n\n", s);
printf(" If F(t) : t-> %s "
" Then F''(t) : t-> %s \n\n", Feq, d2Feq);
printf(" /+oo \n"
" Then | exp(-s t) [%s] dt = (%+.3f) \n"
" /0 \n\n\n", d2Feq, M);
printf(" And : L{F''(t)} = s**2 * f(s) - s * F(0) - F'(0)\n"
" = %s \n"
" = %s \n"
" = (%+.3f) \n\n",
f_seq,f2seq, f_s(s));
printf(" Mathematica Code\n\n"
" %s \n\n", Mathematica_eq);
stop();
return 0;
}
/* --------------------------------- */
/* --------------------------------- */
Exemple de sortie écran :
The Laplace transform of F(t) is f(s)
/ oo
|
L{F(t)} = | exp(-s t) F(t) dt = f(s)
|
/ 0
A property of the Laplace transform is :
L{F''(t)} = s**2 * f(s) - s * F(0) - F'(0)
Press return to continue.
Exemple de sortie écran :
/+oo
| exp(-s t) [F''(t)] dt = s**2 f(s)-s F(0)-F'(0) with s = +0.500
/0
If F(t) : t-> t**2 Then F''(t) : t-> 2
/+oo
Then | exp(-s t) [2] dt = (+4.000)
/0
And : L{F''(t)} = s**2 * f(s) - s * F(0) - F'(0)
= s^2 * (2/(s^3)) - 0 - 0
= 2/(s)
= (+4.000)
Mathematica Code
integrate e**(-s*t)*(2) dt from t=0 to infinity
Press return to continue.