RE: Difference of numbers in the list

*To*: mathgroup at smc.vnet.net*Subject*: [mg45895] RE: [mg45884] Difference of numbers in the list*From*: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>*Date*: Thu, 29 Jan 2004 05:34:42 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

>-----Original Message----- >From: mtmtk2003 at yahoo.com [mailto:mtmtk2003 at yahoo.com] To: mathgroup at smc.vnet.net >Sent: Wednesday, January 28, 2004 11:20 AM >To: mathgroup at smc.vnet.net >Subject: [mg45895] [mg45884] Difference of numbers in the list > > >I have this table: > >Table[{((6.67/10^8)*157.85)/(0.225 - x)^2, (Pi^2/420^2)*x}, {x, 0., >0.007245, 0.001}] > >This is the output: > >{{0.00020797224691358022, 0.}, > {0.00020983328683035708, 5.595013832817097*^-8}, >{0.00021171941925234768, 1.1190027665634194*^-7}, > {0.0002136310973135297, 1.678504149845129*^-7}, > {0.0002155687844229233, 2.2380055331268388*^-7}, > {0.00021753295454545455, 2.797506916408548*^-7}, > {0.00021952409249181628, 3.357008299690258*^-7}, > {0.00022154269421765846, 3.9165096829719676*^-7}} > >I wanted to plot the difference of each pair but the only solution I >could >find was to first have two tables A and B then take A-B and try to >plot that. > >A = Table[{((6.67/10^8)*157.85)/(0.225 - x)^2}, {x, 0., 0.007245, >0.001}] > >B = Table[{(Pi^2/420^2)*x}, {x, 0, 0.007245, 0.001}] > >A - B > >{{0.00020797224691358022}, >{0.0002097773366920289}, >{0.00021160751897569133}, >{0.00021346324689854517}, >{0.00021534498386961064}, >{0.0002172532038538137}, > {0.00021918839166184726}, > {0.00022115104324936126}} > >But ListPlot will give an error for this : > >"...is not a list of numbers or pairs of numbers." > >When I delete the curly braces around the numbers then ListPlot works. > >But this is too complicated for plotting the difference of two sets of >numbers. > >How can this be done simply? Thanks for any help. > Not complicated, with your A, B, just Flatten (did you do that by hand?) ListPlot[Flatten[A - B], PlotStyle -> PointSize[.02]] However starting from your first form of the data: t = Table[{((6.67/10^8)*157.85)/(0.225 - x)^2, (Pi^2/420^2)*x}, {x, 0., 0.007245, 0.001}]; {a, b} = Transpose[t]; ListPlot[a - b, PlotStyle -> PointSize[.02]] -- Hartmut Wolf