W[[i]]}, {i, 1, 15}], PlotStyle -> PointSize[0.02] ] ] Export["wh-fitted.svg", %]; English author name string: Stpasha Wikimedia username: Stpasha...
68.10, 69.92, 72.19, 74.46}; fitted[h_] := 128.8128 - 143.1620 h + 61.9603 h^2; ListLinePlot[Table[{H[[i]], W[[i]] - fitted[H[[i]]]}, {i, 1, 15}], PlotStyle...
