Teplomer

HORIZ = 3 (slider from -50 to 50, step 1)
VERT = -49 (slider from -70 to 50, step 1)
ZVAC = 21.5 (slider from 1 to 50, step 0.05)
RDL: (HORIZ, VERT)
RDP: (x(RDL) + ZVAC, y(RDL))
OsTep: (HORIZ + VERT) / 2
Zoznam_1 = Sequence((80, -45 + (5 * k)), k, 1, 19)
Zoznam_2 = Sequence(Text[(5 * i), (83, -1 + (5 * i))], i, -8, 10)
G1 = NaN