MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: a[n],b[n]



ynb wrote:

> a[n + 1] = 1/4*(1 + Sqrt[5])*a[n] - 1/2*Sqrt[1/2*(5 - Sqrt[5])]*b[n],

> b[n + 1] = 1/2*Sqrt[1/2*(5 - Sqrt[5])]*a[n] + 1/4*(1 + Sqrt[5])*b[n],

> a[1] = 4, b[1] = 9.

> 

> 

> a[n]=

> b[n]=

> 

RSolve[{a[n + 1] ==

    1/4*(1 + Sqrt[5])*a[n] - 1/2*Sqrt[1/2*(5 - Sqrt[5])]*b[n],

   b[n + 1] ==

    1/2*Sqrt[1/2*(5 - Sqrt[5])]*a[n] + 1/4*(1 + Sqrt[5])*b[n],

   a[1] == 4, b[1] == 9}, {a[n], b[n]}, n]




  • Prev by Date: 3d crash
  • Next by Date: Re: a[n],b[n]
  • Previous by thread: Re: a[n],b[n]
  • Next by thread: Re: a[n],b[n]