Re: stupid text formatting question

*To*: mathgroup at smc.vnet.net*Subject*: [mg45456] Re: [mg45451] stupid text formatting question*From*: Tomas Garza <tgarza01 at prodigy.net.mx>*Date*: Thu, 8 Jan 2004 01:17:30 -0500 (EST)*References*: <200401072231.RAA10379@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Do you have a typo in your message? The second line in the definition of errors should read myestimatederror31? If that is the case, I suggest the following (leaving aside the embellishments): In[46]:= errs01 = Transpose[{-(Transpose[p01data][[2]] - myestimatederror01), Transpose[p01data][[2]] - myestimatederror01}]; In[44]:= errs31 = Transpose[{-(Transpose[p31data][[2]] - myestimatederror31), Transpose[p31data][[2]] - myestimatederror31}]; In[45]:= MultipleListPlot[MapThread[List, {p01data, ErrorBar /@ errs}], MapThread[List, {p31data, ErrorBar /@ errs}]]; There is an overlapping of the error bars, but that is a problem with your data: the errors associated with p31 are too large. Tomas Garza Mexico City ----- Original Message ----- From: "Nathan Moore" <nmoore at physics.umn.edu> To: mathgroup at smc.vnet.net Subject: [mg45456] [mg45451] stupid text formatting question > 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 > >

**References**:**stupid text formatting question***From:*Nathan Moore <nmoore@physics.umn.edu>