CaliperPlot := ListPlot[ {CurvaCalipper, CurvaBs},
FrameStyle -> Gray, FrameLabel -> "CaliperPlot", PlotStyle -> {Red, Black},
DataRange -> {7, 10}, PlotStyle -> PointSize[.001],
PlotRange -> {{7, 10}, {-6000, -5300}}, AxesOrigin -> {7, -5300},
Ticks -> {Automatic, Function[{mn, mx}, Table[{i, -i, {0.02, 0}}, {i, N@FindDivisions[{mn, mx}, 20]}]]},
AspectRatio -> 5/1,
Joined -> True, ImageSize -> Large, AxesLabel -> {"inch", "Mts"},
Filling -> Axis, FillingStyle -> {Orange}]
the CurvaCalipper and CurvaBs Coming from "CVS", the problem when I'm trying to fill the area there is not working.
regards