stupid text formatting question

*To*: mathgroup at smc.vnet.net*Subject*: [mg45451] stupid text formatting question*From*: Nathan Moore <nmoore at physics.umn.edu>*Date*: Wed, 7 Jan 2004 17:31:16 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Suppose I have a set of data, data= {{0.25, 54, 5, 62}, {0.35, 2878, 354, 3394}, {0.45, 21089, 3824, 27160}, {0.55, 59194, 12313, 79863}}; that I split up into vectors, a1 = Transpose[data][[1]]; a2 = Transpose[data][[2]]; a3 = Transpose[data][[3]]; a4 = Transpose[data][[4]]; p01data = Select[Transpose[{a1, a2/a4}], #[[2]] > 0 &]; p31data = Select[Transpose[{a1, a3/a4}], #[[2]] > 0 &]; that I want to plot with the command, Show[ MultipleListPlot[p01data, DisplayFunction->Identity, SymbolShape->{PlotSymbol[Box,Filled->False]}], MultipleListPlot[p31data, DisplayFunction->Identity, SymbolShape->{PlotSymbol[Triangle,Filled->False]}], PlotRange->All,Frame->True,Axes->False, DisplayFunction->$DisplayFunction ] All of this works. I wish to include an estimated Poisson Error, given in column format, myestimatederror01=Sqrt[a2]/a4; myestimatederror01=Sqrt[a3]/a4; I know that the ErrorBar command is used to include this error bar in the style of: {{x,y},ErrorBar[error]}, but I can't get the command which would do this to a vector to work properly. I think the following should work, It doesn't - what should I use instead? p01data = Select[Transpose[{{a1, a2/a4},ErrorBar[Sqrt[a2]/a4] }], #[[2]] > 0 &]; p31data = Select[Transpose[{{a1, a3/a4},ErrorBar[Sqrt[a3]/a4] }], #[[2]] > 0 &]; Nathan Moore

**Follow-Ups**:**Re: stupid text formatting question***From:*Tomas Garza <tgarza01@prodigy.net.mx>