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

Re: Complicated Rotation

• To: mathgroup at smc.vnet.net
• Subject: [mg27257] Re: [mg27237] Complicated Rotation
• From: Matthias Hertel <wir95cgu at studserv.uni-leipzig.de>
• Date: Wed, 14 Feb 2001 03:41:25 -0500 (EST)
• References: <200102130835.DAA06532@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Yas <yast at optushome.com.au> writes:
> So at t = 0, sf = s0.
> 
> And at successive increments of time
> 
> sf[1] = r[1]*s0
> sf[2] = r[2]*sf[1]
> sf[3] = r[3]*sf[2]
> |
> |
> sf[n] = r[n]*sf[n-1]
> 
> Unfortunately I am not much of a programmer and I have had various attempts 
> with Map and Do and Table constructs with various errors. Could someone 
> please explain a method whereby I could get a list of sf values so that I 
> can plot sf versus time.

What about

    FoldList[r[#2].#1 &, s0, Range[n]]

For n=5 this gives

    {s0, r[1].s0, r[2].r[1].s0, r[3].r[2].r[1].s0, r[4].r[3].r[2].r[1].s0,
     r[5].r[4].r[3].r[2].r[1].s0}

and if I understood you correctly, this is exactly what you wanted.
(If r[t_] and s0 are actually defined in you Mathematica session,
these expressions will of course be evaluated.) You can then give this
list to ListPlot and you're done.

Matthias

• References:
  • Complicated Rotation
    • From: Yas <yast@optushome.com.au>