wolfram-mathematica - 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都是三列文件，但我只想绘制第二个作为第一个函数的函数。现在我只想为 0.1 添加一个错误栏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]