Re: Difference of numbers in the list

*To*: mathgroup at smc.vnet.net*Subject*: [mg45961] Re: Difference of numbers in the list*From*: mtmtk2003 at yahoo.com (mtmtk)*Date*: Sat, 31 Jan 2004 05:20:25 -0500 (EST)*References*: <bvaor9$a3g$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Thanks to everybody who helped. I also tried the following and it works, but it won't let me use any plot options. A = Flatten[Table[{((6.67/10^8)*157.85)/ (0.225 - x)^2, (Pi^2/420^2)*x}, {x, 0., 0.007245, 0.001}]]; ListPlot[Take[A, {1, 16, 2}] - Take[A, {2, 16, 2}]] But if I use one Take[] I can put the PlotStyle: ListPlot[Take[A, {2, 16, 2}], PlotStyle -> PointSize[0.02]]