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.