Re: Difference of numbers in the list
- To: mathgroup at smc.vnet.net
- Subject: [mg45912] Re: Difference of numbers in the list
- From: Roland Franzius <roland.franzius at uos.de>
- Date: Thu, 29 Jan 2004 05:35:50 -0500 (EST)
- Organization: Universitaet Hannover
- References: <bv83mt$ie1$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.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.
>
Replace the inner List by Appply-ing a Map-ped Subtract
Subtract@@@list
or Transpose the list and subtract the sublists Apply-ing Subtract for
the outer List
Subtract@@Transpose@list
--
Roland Franzius