Re: a[n],b[n]
- To: mathgroup at smc.vnet.net
- Subject: [mg104939] Re: a[n],b[n]
- From: dh <dh at metrohm.com>
- Date: Fri, 13 Nov 2009 05:58:51 -0500 (EST)
- References: <hdgr4b$jc5$1@smc.vnet.net>
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]