Strom(x) = sin(x / 2.0) + 5.0
cosφ = 1 (slider from 0 to 1, step 0.01)
Spannung(x) = 2.0 * sin(x / 2.0 + acos(cosφ)) + 5.0
P(x) = (Strom(x) - 5.0) * (Spannung(x) - 5.0)
g(x) = 0.0
pm: Integral[P(x), 0.0, 6.28] / (2.0 * 3.14)
Leistung(x) = P(x)
Text2: "Mittlere Leistung =  " + pm
A = Intersect(Leistung, g, (-100.53096491487338, 6.3108872417680944E-30))
B = Intersect(Leistung, g, (-94.2477796076938, 6.3108872417680944E-30))
C = Intersect(Leistung, g, (2.3840647524275485E8, 7.119362793370943E-17))
in1 = Integral(Leistung(x), x(A), x(B))
in2 = Integral(Leistung(x), x(B), x(C))
D = (-100.53433232003754, 7.250390442719786)
E = (-100.53433232003754, -1.5176898541297725)
a = Segment(D, E)
h(x) = 5.0
Text1: "Mittlere Leistung = " + pm