KUGEL

DURCH DIABOLO-KEGEL AUSGEHÖHLTER ZYLINDER

r = 4.0000000000000036
A = (-1.4666666666666666, 0.1)
T: (x(A) + 3 r, y(A))
a = Line(A, T)
c = OrthogonalLine(T, a)
m_1 = LineBisector(A, T)
ANFASSER = Point(m_1)
K_2 = Circle(T, r)
b = Line(ANFASSER, a)
S = Intersect(b, c)
F, G = Intersect(K_2, c)
K_3 = Circle(G, r)
d = Line(G, a)
H, I = Intersect(K_3, d)
K_4 = Circle(F, r)
d2 = Line(F, a)
H2, I2 = Intersect(K_4, d2)
e = Segment(I, I2)
O = Intersect(b, e)
eli = 0.019999999999999997
E3: O + eli Vector[O, S]
E4: S + Vector[E3, S]
f = Segment(H, H2)
Q = Intersect(b, f)
l2 = Segment(O, Q)
K = Circle(A, r)
D, B = Intersect(K, b)
l1 = Segment(D, B)
P, i, b_1, h1 = Polygon(T, H, I)
J = Intersect(h1, b)
L = Intersect(i, b)
M, N = Intersect(K_2, a)
r_i = Distance(S, L)
r_a = Distance(S, Q)
T2: "Rest-Kreisring Fläche = " + (π (r_a² - r_i²))
j = Segment(A, B)
V1, h2, k, i2 = Polygon(T, I2, H2)
m = Segment(O, J)
n = Segment(L, Q)
V3, p, q, s = Polygon(T, I, I2)
V2, t, a_1, c_1 = Polygon(T, H, H2)
g = OrthogonalLine(A, a)
C = Intersect(b, g)
E1: D + eli Vector[D, C]
E2: C + Vector[E1, C]
E_K = Ellipse(E1, E2, l1 / 2)
r_K = Distance(C, B)
R = Point(g)
d_1 = Circle(R, r)
e_1 = Circle(R, r_K)
f_1 = Line(R, a)
W = Intersect(c, f_1)
g_1 = Circle(W, r)
h_1 = Circle(W, r_i)
T1: "Schnittkreis Fläche = " + (π r_K²)
p_1 = Ellipse(E3, E4, l2 / 2)
l3 = Segment(J, L)
E5: J + eli Vector[J, S]
E6: S + Vector[E5, S]
k_1 = Ellipse(E5, E6, l3 / 2)
l = Segment(A, C)
h = Segment(T, S)
V4, i_1, j_1, l_1 = Polygon(H2, T, H)