Teplomer

Počiatočná teplota

Pokles teploty

Nárast teploty

TrubP = 1.9 (slider from -5 to 5, step 0.1)
HORIZ = -31 (slider from -50 to 50, step 1)
VERT = -49 (slider from -70 to 50, step 1)
OsTep: (HORIZ + VERT) / 2
TrubL = 18.5 (slider from -50 to 50, step 0.5)
PV: x = OsTep + TrubL + TrubP
A = Point(PV)
LV: x = OsTep + TrubL
B = Point(LV)
PocT = 2 (slider from -40 to 50, step 1)
G: (OsTep + TrubL, PocT)
PocT_1: (OsTep + TrubL + 18 / 10, PocT)
PokT = 6 (slider from 0 to 40, step 1)
NarT = 16 (slider from 0 to 40, step 1)
G_1: (OsTep + TrubL, NarT + PocT)
P2: (x(G_1), NarT + PocT - PokT)
NarT_1: (OsTep + TrubL + 18 / 10, NarT + PocT)
P1: (x(NarT_1), NarT + PocT - PokT)
ZVAC = 21.5 (slider from 1 to 50, step 0.05)
RDL: (HORIZ, VERT)
RDP: (x(RDL) + ZVAC, y(RDL))
Tep_1, f, g, m, n = Polygon(B, A, PocT_1, G)
MN, i, j, k, l = Polygon(G_1, NarT_1, PocT_1, G)
Zoznam_1 = Sequence((80, -45 + (5 * k)), k, 1, 19)
Zoznam_2 = Sequence(Text[(5 * i), (83, -1 + (5 * i))], i, -8, 10)
t_k: PocT + NarT - PokT
Tep: (79, t_k)
Poc: (79, PocT)
u = Vector(Poc, Tep)
text2: "\textbf \textit \textcolor{red} {Konečná \;  teplota   \; \textbf \textit \textcolor{red} {" + (LaTeX[t_k]) + " } "
text3: "\textbf \textit \textcolor{0008A} {Počiatočná \;  teplota}   \; \textbf \textit \textcolor{0008A} {" + (LaTeX[PocT]) + " }  "
h = Segment(PocT_1, Poc)
Pom: (30, t_k)
Pom1: (30, PocT)
G1 = NaN
MM, g_1, nart_1, p1, p2 = Polygon(G_1, NarT_1, P1, P2)