Re: Rekursion

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

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