MathGroup Archive 2002

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

Search the Archive

Re: Newbie Question

  • To: mathgroup at
  • Subject: [mg32749] Re: [mg32686] Newbie Question
  • From: BobHanlon at
  • Date: Fri, 8 Feb 2002 03:49:21 -0500 (EST)
  • Sender: owner-wri-mathgroup at

In a message dated 2/6/02 6:39:26 AM, kbrunsman at writes:

>I can't believe that I am asking this question, but ... I'm tired of Fortran
>and find the symbolic part of Mathematica extremely useful.
>I have a list with Dimensions = {10,000, 6} and I need to find the Percent
>Difference between items in a column.
>I can parse out the column I need using Take [data [[All, Column #]]] ---
>big deal.  So far, so good.
>Now here's the problem --- How do I get % Differences between any of 10,000
>items in that list?  I need to take % Differences between adjacent pairs,
>i.e. n and n-1, as well as items n and n-m where m can range from 1 to

relativeChange[data_List, m_Integer] :=


Percent difference of adjacent elements


{(100*(x2 - x1))/x1, (100*(x3 - x2))/x2, (100*(x4 - x3))/x3,
  (100*(x1 - x4))/x4}


{(100*(x4 - x1))/x1, (100*(x1 - x2))/x2, (100*(x2 - x3))/x3,
  (100*(x3 - x4))/x4}

Percent difference of elements offset by m


{(100*(x4 - x1))/x1, (100*(x1 - x2))/x2, (100*(x2 - x3))/x3,
  (100*(x3 - x4))/x4}


{(100*(x2 - x1))/x1, (100*(x3 - x2))/x2, (100*(x4 - x3))/x3,
  (100*(x1 - x4))/x4}

Bob Hanlon
Chantilly, VA  USA

  • Prev by Date: Importing & printing EPS files
  • Next by Date: Re: Moving notebooks from Windows to Mac
  • Previous by thread: Re: Newbie Question
  • Next by thread: RE: Re: Newbie Question