\mathcal{S}ilinder

r = 2.3 (slider from -5 to 5, step 0.01)
H = 2.88 (slider from 0 to 5, step 0.01)
A = Intersect(xAxis, yAxis)
c = Circle(A, r)
a, d, b = Cylinder(c, H)
B = Intersect(c, xAxis, 2)
f = Segment(A, B)
g = Line(B, zAxis)
C = Intersect(g, d)
h = Line(C, xAxis)
i = Line(A, g)
D = Intersect(h, i)
j = Segment(D, C)
k = Segment(D, A)
l = Segment(A, B)
m = Segment(C, B)
tekst2: "H \; =" + (LaTeX[H]) + ""
tekst3: "r \; =" + (LaTeX[r]) + ""
E = Midpoint(C, B)
F = Midpoint(C, D)
G = Midpoint(B, A)
tekst1: "r \; =" + (LaTeX[r]) + ""
P: ((2 * r^(2)) * π) + (r * H)
tekst4: "P \; = \; 2 \; · \; r² π  \; + \; r \; · \; H=" + (LaTeX[P]) + ""
V: ((π * r^(2)) * H)
tekst5: "V \; = \;  π  \; · \; r² \;· \; H =" + (LaTeX[V]) + ""
S: ((2 * π) * r^(2)) + (((2 * π) * r) * H)
tekst6: "S \; = \; 2πr² \; + \; 2 π rH \; =" + (LaTeX[S]) + ""