Wetter mit Experimentell einstellbarer mittleren Tagenstemperaur
Author: Prof. Dr. Dörte Haftendorn

Klicke zuerst Standard an. Bewege dann m, beobachte die Bilanz. 
Wenn sie 0 ist, hast du den Mittewert. Schalte dann die feinere Lösung hinzu.

Mitteltemperatur mit Integral

Standard

Stützpunkte anzeigen

Bilanz

Kurve durch Stützpunkte

Ha 2010

m = 10.195 (slider from 9 to 12, step 0.0010)
D_1 = (4, 7.5)
D_2 = (8, 8.1)
D_3 = (12, 10.7)
D_4 = (16, 12.7)
D_5 = (20, 11.9)
D_6 = (24, 9.3)
D_7 = (28, 7.1)
f(x) = 2.40749783E-6 * (x - 4.0) * (x - 8.0) * (x - 12.0) * (x - 16.0) * (x - 20.0) * (x - 24.0) - 1.892089844E-5 * (x - 4.0) * (x - 8.0) * (x - 12.0) * (x - 16.0) * (x - 20.0) * (x - 28.0) + 6.052652995E-5 * (x - 4.0) * (x - 8.0) * (x - 12.0) * (x - 16.0) * (x - 24.0) * (x - 28.0) - 8.612738715E-5 * (x - 4.0) * (x - 8.0) * (x - 12.0) * (x - 20.0) * (x - 24.0) * (x - 28.0) + 5.442301432E-5 * (x - 4.0) * (x - 8.0) * (x - 16.0) * (x - 20.0) * (x - 24.0) * (x - 28.0) - 1.647949219E-5 * (x - 4.0) * (x - 12.0) * (x - 16.0) * (x - 20.0) * (x - 24.0) * (x - 28.0) + 2.54313151E-6 * (x - 8.0) * (x - 12.0) * (x - 16.0) * (x - 20.0) * (x - 24.0) * (x - 28.0)
g = Function(f, 4.0, 28.0)
mi = 10.026 (slider from -5 to 15, step 0.0010)
c: y = mi
d = Integral(f, mi, 4.0, 28.0)
e = false
A = Point(mess_1)
G_1: (4.0, y(A))
G_2: (10.0, y(A))
B = Point(mess_2)
G_3: (10.0, y(B))
G_4: (16.0, y(B))
C = Point(mess_3)
G_5: (16.0, y(C))
G_6: (28.0, y(C))
K_1: (4.0, m)
K_2: (10.0, m)
K_3: (16.0, m)
K_4: (28.0, m)
Vieleck1, k_1, g_1, g_2, k_2 = Polygon(K_1, G_1, G_2, K_2)
Vieleck2, k_3, k_4, g_4, g_3 = Polygon(K_2, K_3, G_4, G_3)
Vieleck3, k_5, g_5, g_6, k_6 = Polygon(K_3, G_5, G_6, K_4)
bilanz: Vieleck1 - Vieleck2 - Vieleck3
Text2: "Bilanz = " + bilanz
h: y = m
Text1: "= " + ((mi - 4.4347) * 1.07 + 8.0) + " °"
i = Segment(G_1, G_2)
j = Segment(G_3, G_4)
k = Segment(G_5, G_6)
l = Segment(G_1, G_2)
n = Segment(G_1, G_2)
p = Segment(G_1, G_2)
q = Segment(G_1, G_2)
r = Segment(G_1, G_2)
o = false
E_1 = (0, 6.199999999999999)
E_2 = (0, 10)
s = false
t = false
E_0 = (0, 4.33)
u = false
Text3: "Standard-Tagesmittel-Temperatur
= " + ((m - 4.33) * 1.06 + 8.0) + " °"