Re: Difference of numbers in the list

*To*: mathgroup at smc.vnet.net*Subject*: [mg45886] Re: Difference of numbers in the list*From*: bobhanlon at aol.com (Bob Hanlon)*Date*: Thu, 29 Jan 2004 05:34:31 -0500 (EST)*References*: <bv83mt$ie1$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Don't put extraneous brackets in Table data= {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}]}; If defined separately ListPlot[A-B]; If defined together ListPlot[#[[1]]-#[[2]]& /@ data]; Bob Hanlon In article <bv83mt$ie1$1 at smc.vnet.net>, mtmtk2003 at yahoo.com (mtmtk) wrote: << 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.