u = 8.5125 (slider from 0 to 15, step 1.0E-4)
n = 47 (slider from 2 to 100, step 1)
v(x) = -0.01 * x^(3) + 0.2 * x^(2) + 0.73 * x
v1 = Function(v, 0, 15)
OS = UpperSum(v, 0, u, n)
US = LowerSum(v, 0, u, n)
MW: (US + OS) / 2
P: (u, MW)
g = Integral(v, 0, 15)
B = Intersect(xAxis, yAxis)
C = (1.9994734243403733, 2.016476206469487)
D = (3.5247343744383315, 7.151600557547046)
E = (5.964342737592368, 23.970310588140517)
G = (7.801129133731552, 44.55791922502945)
H = (9.294023803721345, 66.4175311415431)
I = (11.337145235550187, 102.64606899455822)
J = (13.15774849163529, 140.005276429462)
K = (14.998580672788005, 180.52093644713815)
ListePunkte: {B, C, D, E, G, H, I, J, K}
A = FitPoly(ListePunkte, 4)
A'(x) = A'(x)