Hallo,
ich hätte jetzt gedacht, das
Clear[y]
y[0, t_] = (Exp[ -t] + Exp[-3 t])/2
y[k_Integer, t_] /; k > 0 := y[k, t] =
Module[{zeta},
Integrate[ Exp[ -t - zeta] y[k - 1, zeta] ,
{zeta, 0, t}] + (Exp[-t] + Exp[-3 t])/2
]
Problem lößt ...
Gruß
Jens
----- Original Message -----
From: <Hans.Dolhaine@XXXXXXX.com>
To: <demug@XXXXXXX.ch>
Sent: Monday, April 04, 2005 12:42 PM
Subject: Rekursion
Liebe Liste,
ich habe die Lösung des Rekursionsproblems
gefunden. Man muss die
Integrationsvariable durch Indizierung
"lokalisieren" bzw. der
Rekursionsstufe zuordnen. Dann läuft die
Rekursion ohne Probleme:
y[0,t]= (Exp[ -t]+Exp[-3 t])/2
y[k,t] = Integrate[ Exp[ -t -z[k]] y[k-1,z[k]]
,{z[k],0,t}] + (Exp[
-t]+Exp[-3 t])/2 .
Grüsse
Hans Dolhaine
_________________________________
VTR-TS
Phone: +49-211-797-4809
Fax: +49-211-798-1853
Mobile: 0171 97 17 049
E-Mail: Hans.Dolhaine@XXXXXXX.com
|