MathGroup Archive 2011

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

Search the Archive

Re: How to combine 2 list

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122490] Re: How to combine 2 list
  • From: Bill Rowe <readnews at sbcglobal.net>
  • Date: Sun, 30 Oct 2011 04:20:48 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

On 10/29/11 at 7:13 AM, john at datasharks.biz (John) wrote:

>I have tried to find the answer on this, I am sure it has been asked
>before. Can anyone help?

>I have 2 list:

>cumlativeNetProfitLoss = Drop[FoldList[Plus, 0, listNetProfitLoss],
>1]
>{1.11, 2.07, 2.75, 3.49, 3.79, 10.2, 11.03, 19.84, 22.07, 23.29}

The above could have been done with the built in function
Accumulate. That is:

In[13]:= listNetProfitLoss = {1.11, 0.96, 0.68, 0.74, 0.3, 6.41, 0.83,
     8.81, 2.23, 1.2};
Drop[FoldList[Plus, 0, listNetProfitLoss], 1] ==
  Accumulate[listNetProfitLoss]

Out[14]= True

>and

>dateList = Reverse[dateNetProfitLoss[[All, 1]]] {{2011, 8, 31},
>{2011, 9, 2}, {2011, 9, 6}, {2011, 9, 20}, {2011, 9, 21}, {2011, 9,
>22}, {2011, 9, 28}, {2011, 9, 30}, {2011, 10, 4}, {2011, 10, 10}}

>How to I get:

>{{{2011, 8, 31}, 1.11}, {{2011, 9, 2}, 2.07}, {{2011, 9, 6}, 2.75},
>{{2011, 9, 20}, 3.49}, {{2011, 9, 21}, 3.79}, {{2011, 9, 22}, 10.2},
>{{2011, 9, 28}, 11.03}, {{2011, 9, 30}, 19.84}, {{2011, 10, 4},
>22.07}, {{2011, 10, 10}, 23.29}}

In[16]:= MapThread[List, {dateList, cumlativeNetProfitLoss}]

Out[16]= {{{2011, 8, 31}, 1.11}, {{2011, 9, 2}, 2.07},
    {{2011, 9, 6}, 2.75}, {{2011, 9, 20}, 3.49},
    {{2011, 9, 21}, 3.79}, {{2011, 9, 22}, 10.2},
    {{2011, 9, 28}, 11.03}, {{2011, 9, 30}, 19.84},
    {{2011, 10, 4}, 22.07}, {{2011, 10, 10}, 23.29}}




  • Prev by Date: Re: Integral points on elliptic curves
  • Next by Date: Re: How to combine 2 list
  • Previous by thread: Re: How to combine 2 list
  • Next by thread: Re: How to combine 2 list