Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: How to subtract two sets of data for a ListPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76764] Re: How to subtract two sets of data for a ListPlot
  • From: dimitris <dimmechan at yahoo.com>
  • Date: Sun, 27 May 2007 04:48:26 -0400 (EDT)
  • References: <f36gb5$9fq$1@smc.vnet.net>

In the same vein

In[3]:=
({list1[[#1,1]], list1[[#1,2]] - list2[[#1,2]]} & ) /@
Range[Length[list1]]
Out[3]=
{{1, 0}, {2, -2}, {3, -6}}

In[4]:=
Transpose[{list1[[All,1]], list1[[All,2]] - list2[[All,2]]}]
Out[4]=
{{1, 0}, {2, -2}, {3, -6}}

In[19]:=
({#1, (Plus[#1 - #2] & ) @@ {list1[[#1,2]], list2[[#1,2]]}} & ) /@
Range[Length[list1]]
Out[19]=
{{1, 0}, {2, -2}, {3, -6}}


 /  chuck009       :
> Hi all.  Suppose I've calculated two sets of lists of the form for example:
>
> list1={{1,1},{2,2},{3,3}};
>
> list2={{1,1},{2,4},{3,9}};
>
> What's an efficient way to create a third list with the same x-values but with the y-values subtracted
>
> newlist={{1,0},{2,-2},{3,-6}};
>
> I realize I can manually subtract them in a For-loop, but I'm sure a one-line command using Map or some other construct can be used as well but can't figure it out.
>
> Thanks!



  • Prev by Date: Manipulate (from Wolfram Demonstrations)
  • Next by Date: Re: V6 evaluation inside Table and plot
  • Previous by thread: Re: How to subtract two sets of data for a ListPlot
  • Next by thread: Style Sheets in Version 6.0