Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: a[n],b[n]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104898] Re: a[n],b[n]
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Fri, 13 Nov 2009 05:51:02 -0500 (EST)
  • References: <hdgr4b$jc5$1@smc.vnet.net>

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]

Cheers -- Sjoerd

On Nov 12, 1:21 pm, ynb <wkfkh... at yahoo.co.jp> 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]=



  • Prev by Date: Re: Importing Excel File into mathematica
  • Next by Date: Re: Mathematica 7 under Wine
  • Previous by thread: RE: a[n],b[n]
  • Next by thread: Re: a[n],b[n]