Nem egyenletes a hűlés folyamata!

Az egyenletes lehűlés azt jelentené, hogy
x idő alatt mindig ugyanannyival csökkenne
a víz hőmérséklete.

Idő (perc)

Hőmérséklet (°C)

Pontok függvényértéke

Érintő meredeksége

Az analizis függvény értékeire polinom függvény illeszthető rá.

Idő

Hőmérséklet

A = Point(yAxis)
B = (3, 82)
C = (6, 79)
D = (9, 75)
E = (12, 72)
F = (15, 69)
G = (18, 67)
H = (21, 65)
I = (24, 62)
J = (27, 60)
K = (30, 58)
lista1 = 1 (slider from -5 to 5, step 0.1)
lista2: (lista1 * {A, B, C, D, E, F, G, H, I, J, K})
c = false
b = false
f = FitExp(lista2)
d = Tangent(B, f)
e = Tangent(C, f)
g = Tangent(D, f)
h = Tangent(E, f)
i = Tangent(F, f)
j = Tangent(G, f)
k = Tangent(H, f)
l = Tangent(I, f)
m = Tangent(J, f)
n = Tangent(K, f)
A2 = 0
A3 = 3
A4 = 6
A5 = 9
A6 = 12
A7 = 15
A8 = 18
A9 = 21
A10 = 24
A11 = 27
A12 = 30
B2 = 87
B3 = 82
B4 = 79
B5 = 75
B6 = 72
B7 = 69
B8 = 67
B9 = 65
B10 = 62
B11 = 60
B12 = 58
D2: A
D3: B
D4: C
D5: D
D6: E
D7: F
D8: G
D9: H
D10: I
D11: J
D12: K
a = Tangent(A, f)
o = Slope(a)
p = Slope(d)
q = Slope(e)
r = Slope(g)
s = Slope(h)
u = Slope(i)
v = Slope(j)
w = Slope(k)
a_1 = Slope(l)
b_1 = Slope(m)
c_1 = Slope(n)
E10 = -0.82132668991068
E11 = -0.789395094149977
E12 = -0.758704937174048
E2 = -1.12794529992361
E3 = -1.08409296467165
E4 = -1.0419455235375
E5 = -1.00143669352993
E6 = -0.962502768612418
E7 = -0.925082519516128
E8 = -0.889117097447969
E9 = -0.85454994154229
lista3: {}
ResidualPlot({(0, 87), (3, 82), (6, 79), (9, 75), (12, 72), (15, 69), (18, 67), (21, 65), (24, 62), (27, 60), (30, 58)}, FitPoly[{(0, 87), (3, 82), (6, 79), (9, 75), (12, 72), (15, 69), (18, 67), (21, 65), (24, 62), (27, 60), (30, 58)}, 2])
t = false