Teplomer

Počiatočná teplota

Nárast teploty

Pokles teploty

\textbf \textit \textcolor{red} {Konečná \;  teplota  

\textbf \textit \textcolor{0008A} {Počiatočná \;  teplota}  

I = (80, -60)
H = (-40, -60)
i = Line(H, I)
D: (79, 49.88819)
C: (79, -40)
h = Segment(C, D)
g: x = -15
f: x = -17
t = 0 (slider from -40 to 50, step 1)
S_t: (-15, t)
G: (-17, y(S_t))
j = Line(G, i)
N = Intersect(j, f)
n = 3 (slider from 0 to 40, step 1)
k = 3 (slider from 0 to 40, step 1)
J: (79, t + n - k)
l = OrthogonalLine(J, h)
M = Intersect(f, l)
L = Intersect(g, l)
b = -27 (slider from -50 to 50, step 1)
a = 0.71 (slider from -5 to 5, step 0.01)
A: (b + a, -49)
B: (x(A) + 21.5, y(A))
E = Point(g)
F: (-17, y(E))
Tep, d, d_2, e, f_1 = Polygon(S_t, E, F, G)
Zoznam_1 = Sequence((80, -45 + (5 * k)), k, 1, 19)
Zoznam_2 = Sequence(Text[(5 * i), (83, -1 + (5 * i))], i, -8, 10)
K = Intersect(j, h)
u = Vector(K, J)
t_k: t + n - k
q1, m, p, q, r = Polygon(L, M, N, S_t)
text2: "\textbf \textit \textcolor{red} {" + (LaTeX[t_k]) + " } "
O = Point(l)
s = OrthogonalLine(O, l)
P = Intersect(j, s)
text4: "\textbf \textit \textcolor{0008A} {" + (LaTeX[t]) + "}  "
Q = Point(j)
q2, l_1, m_1, n_1, s_t = Polygon(L, M, N, S_t)