Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Complicated Rotation

  • To: mathgroup at
  • Subject: [mg27262] Re: Complicated Rotation
  • From: Tom Burton <tburton at>
  • Date: Wed, 14 Feb 2001 03:41:29 -0500 (EST)
  • Organization: Brahea Consulting
  • References: <96as1b$>
  • Sender: owner-wri-mathgroup at

Hello Yas,

What seems to be required to is successively premultiply r[t] for t=t1,t2,t3,... to s0. I like to this kind of thing as follows. I'll assume that the increment in t takes on whole numbers. Define the matrix r[t] along the lines of your memo. Then

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

 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}

This is very simple and easy to read, once you understand FoldList. 


On 13 Feb 2001 03:42:19 -0500, in comp.soft-sys.math.mathematica you wrote:

>Dear mathgroup,
>I have a problem that I have been trying to do in mathematica...
>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]


  • Prev by Date: Re: Mathematica 4.1 How to.....
  • Next by Date: Re: Mathematica 4.1 How to.....
  • Previous by thread: Re: Complicated Rotation
  • Next by thread: Re: Graphing Functions for an idiot