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!