Ukázať/skryť kužeľ

Ukázať/skryť rovinu

\text{rayon de la base du cone }

h = 7.5 (slider from 6 to 9, step 0.1)
r = 5.5 (slider from 5 to 6, step 0.1)
O = (0, 0, -4)
c = Circle(O, r, xOyPlane)
S: (0, 0, h)
a, d, b = Cone(O, S, r)
B = Point(zAxis)
C = Point(xAxis)
D_1 = Point(yAxis)
e = Plane(B, C, D_1)
P_2 = IntersectPath(e, a)
g = Line(S, O)
i = OrthogonalPlane(B, g)
j = IntersectPath(e, i)
k = OrthogonalPlane(B, j)
l = IntersectPath(e, k)
E, F = Intersect(l, P_2)
m = Line(E, j)
p = Circle(m, B)
n = Line(S, E)
H, I = Intersect(n, p)
J = Midpoint(I, B)
q = Ray(E, J)
C_1 = Intersect(q, g)
o = OrthogonalPlane(C_1, n)
K = Intersect(n, o)
s = Sphere(C_1, K)
t = Circle(g, K)
u = OrthogonalPlane(C_1, l)
F_1 = Intersect(l, u)
a_1 = Line(F, j)
c_1 = Circle(a_1, B)
b_1 = Line(S, F)
M, N = Intersect(b_1, c_1)
P_1 = Midpoint(M, B)
d_1 = Ray(F, P_1)
C_2 = Intersect(d_1, g)
v = OrthogonalPlane(C_2, l)
w = OrthogonalPlane(C_2, b_1)
Q = Intersect(b_1, w)
F_2 = Intersect(l, v)
e_1 = Sphere(C_2, Q)
f_1 = Circle(g, Q)
α = -0.20943951023931953 rad (slider from -180° to 180°, step 2°)
X: ((r * cos(α)), (r * sin(α)), -4)
g_1 = Segment(S, X)
P = Intersect(g_1, P_2)
D = Intersect(g_1, t)
R = Intersect(g_1, f_1)
f = Segment(P, F_2)
h_1 = Segment(P, R)
i_1 = Segment(F_1, P)
j_1 = Segment(P, D)
β = Angle(C_1, D, P)
γ = Angle(C_1, F_1, P)
δ = Angle(C_2, R, D)
ε = Angle(P, F_2, C_2)
o_1 = true
p_1 = false