User Portlet

CaliperPlot := ListPlot[ {CurvaCalipper, CurvaBs}, FrameStyle -> Gray, FrameLabel -> "CaliperPlot", PlotStyle -> {Red, Black}, DataRange -> {7, 10}, PlotStyle -> PointSize[.001], PlotRange -> {{7, 10},...