Mathc initiation/a535
Installer et compiler ces fichiers dans votre répertoire de travail.
c00b.c |
---|
/* --------------------------------- */
/* save as c00b.c */
/* --------------------------------- */
#include "x_afile.h"
#include "fb.h" /* Try fb.h, fc.h ... fj.h */
/* --------------------------------- */
int main(void)
{
double M = LT_dt( Fa, 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(" The change of scale property of the Laplace transform is : \n\n"
" L{F(a*t)} = 1/a f(s/a) \n\n");
stop();
clrscrn();
printf(" /+oo \n"
" | exp(-s t) [F(a*t)] dt = 1/a f(s/a) \twith s = %+.3f\n"
" /0 and a = %+.3f\n\n\n",
s, aa);
printf(" If F(t) : t-> %s "
" Then F(a*t) : t-> %s \n\n", Feq, Faeq);
printf(" /+oo \n"
" Then | exp(-s t) [%s] dt = (%+.3f) \n"
" /0 \n\n\n", Faeq, M);
printf(" And : L{F(a*t)} = 1/a f(s/a) \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
The change of scale property of the Laplace transform is :
L{F(a*t)} = 1/a f(s/a)
Press return to continue.
Exemple de sortie écran :
/+oo
| exp(-s t) [F(a*t)] dt = 1/a f(s/a) with s = +0.500
/0 and a = +2.000
If F(t) : t-> t Then F(a*t) : t-> a*t
/+oo
Then | exp(-s t) [a*t] dt = (+8.000)
/0
And : L{F(a*t)} = 1/a f(s/a)
= 1/a * (1/(s/a)^2)
= a/s^2
= (+8.000)
Mathematica Code
integrate e**(-s*t)*(a*t) dt from t=0 to infinity
Press return to continue. .