Mathematica：如何绘制误差条？

Question

这是我的代码

chiSVB1gExp = Import["Bi2212OPT_B1g_100K.read", "Table"]
chiSVB1g = Import["chiSV1g.dat", "Table"] ;
ListPlot[{chiSVB1g[[All, {1, 2}]], chiSVB1gExp[[All, {1, 2}]]}]

chiSVB1gExp和chiSVB1g都是三列文件，但我想只绘制第二个作为第一个函数的函数。现在我想为chiSVB1gExp添加一个错误栏，它等于0.1。我知道必须使用ErrorListPlot。

文档中心对我没有帮助，因为它仅仅是针对简单情况的例子。

Answer 1

您可以对集合使用零错误而不会出错：

Needs["ErrorBarPlots`"]

(* initial data sets *)
data1 = {{1, 1, 10}, {2, 2, 20}} ;
data2 = {{3, 3, 30}, {4, 4, 40}} ;

(* transformed sets : data3 without errors *)
data3 = {#[[1 ;; 2]], ErrorBar[{0.0, 0.0}]} & /@ data1 ;
data4 = {#[[1 ;; 2]], ErrorBar[{-0.1, 0.1}]} & /@ data2 ;

ErrorListPlot[{data3, data4}, AxesOrigin -> {0, 0}, 
 PlotStyle -> PointSize[0.01], PlotRange -> All]