a

b

A = Point(yAxis)
C = Point(xAxis)
B = (6, 1)
f(x) = ((x(C) - x(B)) * y(A) - x(C) * y(B)) / (x(C)^(2.0) * x(B) - x(C) * x(B)^(2.0)) * x^(2.0) - ((x(C)^(2.0) - x(B)^(2.0)) * y(A) - x(C)^(2.0) * y(B)) / (x(C)^(2.0) * x(B) - x(C) * x(B)^(2.0)) * x + y(A)
D = Point(xAxis)
E = Point(xAxis)
a = OrthogonalLine(D, xAxis)
b = OrthogonalLine(E, xAxis)
c = Integral(f(x), x(D), x(E))
m: c / (x(E) - x(D))
Mittelwert(x) = m
F = Intersect(Mittelwert, a, 1.0)
G = Intersect(Mittelwert, b, 1.0)
Vieleck1, d, e, g, f_1 = Polygon(D, E, G, F)
n = 5 (slider from 1 to 10, step 1)
h = LowerSum(f(x), x(D), x(E), n)
H = Intersect(f, a)
I = Intersect(f, b)
p = Function(f(x), x(H), x(I))
Text3: "Mittelwert von f(x) = " + (Simplify[f(x)]) + " über dem Intervall [" + (x(D)) + "; " + (x(E)) + "]: " + Mittelwert