Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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)
  • Reply-to: hanlonr at cox.net
  • 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