4

This stems from a related discussion, How to subtract specific elements in a list using functional programming in Mathematica?

How does one go about easily calculating percent differences between values in a list?

The linked question uses Differences to easily calculate absolute differences between successive elements in a list. However easy the built-in Differences function makes that particular problem, it still leaves the question as to how to perform different manipulations.

As I mentioned earlier, I am looking to now calculate percent differences. Given a list of elements, {value1, value2, ..., valueN}, how does one perform an operation like (value2-value1)/value1 to said list?

I've tried finding a way to use Slot or SlotSequence to isolate specific elements and then apply a custom function to them. Is this the most efficient way to do something like this (assuming that there is a way to isolate elements and perform operations on them)?

Community
  • 1
  • 1
Alec
  • 4,235
  • 1
  • 34
  • 46

3 Answers3

9

There are a few natural ways to do it.

You could form the list of arguments to your "percentage decrease" function using Partition:

In[3]:= list = {a, b, c, d, e};

In[4]:= Partition[list, 2, 1]

Out[4]= {{a, b}, {b, c}, {c, d}, {d, e}}

Then you can Apply a function to these:

In[6]:= f @@@ Partition[list, 2, 1]

Out[6]= {f[a, b], f[b, c], f[c, d], f[d, e]}

Using your percent decrease function:

In[7]:= PercentDecrease[a_, b_] := (b - a)/a

In[8]:= PercentDecrease @@@ Partition[list, 2, 1]

Out[8]= {(-a + b)/a, (-b + c)/b, (-c + d)/c, (-d + e)/d}

(Read about @@@ by looking at the "More Information" notes at Apply.)

Instead of Partition you can use Most and Rest to form lists of the first and second arguments and then combine them using MapThread:

In[14]:= MapThread[PercentDecrease, {Most[list], Rest[list]}]

Out[14]= {(-a + b)/a, (-b + c)/b, (-c + d)/c, (-d + e)/d}

A different way is to form your operation (a subtraction and a division) in two steps like this:

In[10]:= Differences[list] / Most[list]

Out[10]= {(-a + b)/a, (-b + c)/b, (-c + d)/c, (-d + e)/d}

The divide operation (/) threads over the two lists Differences[list] and Most[list].

Andrew Moylan
  • 2,893
  • 18
  • 20
  • Great answer! By the way, I like this explanation of @@@ better: http://stackoverflow.com/questions/1141166/in-mathematica-what-does-mean/1141701#1141701 – dreeves Jul 10 '10 at 04:54
  • 1
    +1, great answer. I personally, like the last one the best. Although, I'd probably write it `Differences[#]/Most[#]& @ list`, but that's just me. – rcollyer Jul 13 '10 at 00:12
0

Look at Map.

http://reference.wolfram.com/mathematica/howto/MapAFunctionOverAList.html

G__
  • 7,003
  • 5
  • 36
  • 54
0
lst = {e, d, c, b, a};  (* ordered for display convenience *)
Ratios[lst] - 1   (* the answer *)
Together /@ %  (* just for display *)
Alan
  • 9,410
  • 15
  • 20