       Re: Recursion loop help needed tia sal

• To: mathgroup at smc.vnet.net
• Subject: [mg52392] Re: [mg52363] Recursion loop help needed tia sal
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Thu, 25 Nov 2004 05:50:40 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Clear[c,f];

k=1/50;

f[x_?VectorQ] :=
Rest[FoldList[(#1+#2)*k&,First[x],Rest[x]]];

entries={15,17,8,12};

b=f[entries]

{16/25, 108/625, 3804/15625}

ci=f[b]

{254/15625, 2029/390625}

n=Length[entries];

Clear[c];

c[m_Integer /; 0<m<n-1] := ci[[m]];

c[m_Integer/; m>n-2] := c[m] = (c[m-1]+c[m-2])*k ;

Table[c[m],{m,6}]

{254/15625, 2029/390625, 8379/19531250, 109829/976562500,
528779/48828125000, 6020229/2441406250000}

Bob Hanlon

>
> From: sal <sal at spp.net>
To: mathgroup at smc.vnet.net
> Date: 2004/11/24 Wed AM 02:32:38 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg52392] [mg52363] Recursion loop help needed tia sal
>
> Greets All,
>
> I'm having a little trouble in creating this example in mathematica, I'm
> not sure how to make the array dynamic enough in mathematica to include
> Cn.....Xn in example 1.  Does anybody have any idea
>
> Example 1:
> User Input for four numbers 15,17,8,12... (Note: user can input any amount
> of numbers)
>
> (15+17) /25/2 ->b1
> (b1+8) /25/2 ->b2
> (b2+12) /25/2 ->b3
> (b1+b2) /25/2 ->c1
> (c1 +b3)/25/2 ->c2
> (c1 +c2) /25/2 ->c3
>
> Tia
>
>

```

• Prev by Date: Re: Integral: Exp[-(x-m)^2/(2 s^2)] x^3 (1+x^2)^-1
• Next by Date: Re: Mathematica&SuSe 9.2: Inputformulars disabled
• Previous by thread: Recursion loop help needed tia sal
• Next by thread: Integral: Exp[-(x-m)^2/(2 s^2)] x^3 (1+x^2)^-1