Unbenannt

f: 2 / sqrt(3)
r = 3.1 (slider from 0 to 10, step 0.1)
h = 8.1 (slider from 0 to 30, step 0.1)
O: (0, 0, 0)
m: (0, h, 0)
R: (f * r)
E: z = r
H: (f * h)
M: (0, H, 0)
spitzkegel_1, schnittkreis_1, kegel_1 = Cone(m, O, r)
spitzkegel_2, schnittkreis_2, kegel_2 = Cone(M, O, R)
laengsschnitt_1 = IntersectPath(z = 0, kegel_2)
E_{1}: (((-R)) / 2, H, r)
E_{2}: (R / 2, H, r)
E_{3}: ((-R), H, 0)
E_{4}: (R, H, 0)
E_{5}: (((-R)) / 2, H, (-r))
E_{6}: (R / 2, H, (-r))
Maxima, e_{1}, e_{3}, e_{5}, e_{6}, e_{4}, e_{2} = Polygon(E_{1}, E_{3}, E_{5}, E_{6}, E_{4}, E_{2})
F_{1}: (0, h, r)
m_1 = Segment(O, F_{1})
M_{2 } = Segment(O, E_{2})
M_{1} = Segment(O, E_{1})
kontur(x) = (h * sqrt(1 + (x / r)^(2)))
kante(x) = (h / r * abs(x))
a: abs(x) = r
b: abs(x) = R
laengsschnitt_{2} = IntersectPath(z = 0, kegel_1)
U: (((-R)) / 2, H)
V: (R / 2, H)
g = Segment(U, O)
i = Segment(V, O)
j = Segment(m, O)
A = Intersect(i, laengsschnitt_1, 1)
B = Intersect(i, laengsschnitt_1, 1)
C = Intersect(i, laengsschnitt_1, 1)
D = Intersect(i, laengsschnitt_1, 1)
F = Intersect(j, laengsschnitt_1, 1)
G = Intersect(j, laengsschnitt_1, 1)
I = Intersect(j, laengsschnitt_1, 1)
J = Intersect(i, laengsschnitt_1, 1)
K = Intersect(j, laengsschnitt_1, 1)
muster = IntersectPath(E, kegel_2)