Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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>