Rotační kužel daný osou
Author: Šárka V

Monge projection of the cone.

Green objects are dynamic.

V  MP  zobrazte  rotační  kužel 
s  vrchlem  V  a  středem  podstavy  S.

Poloměr  řídíci  kružnice  je  r. 
V,  S  a  r  jsou  dynamické..

X = (-2, 1)
X__2 = (4, 1)
X_{12} = Line(X, X__2)
V_2 = (-5.943164062499998, 5.452617187499996)
S_2 = (-1.5134765624999984, 2.763164062499996)
a = OrthogonalLine(V_2, X_{12})
b = OrthogonalLine(S_2, X_{12})
V_1 = Point(a)
i_1 = Segment(V_2, V_1)
S_1 = Point(b)
j_1 = Segment(S_2, S_1)
o_2 = Line(V_2, S_2)
o_1 = Line(V_1, S_1)
f_2 = OrthogonalLine(S_2, o_2)
h_1 = OrthogonalLine(S_1, o_1)
h_2 = OrthogonalLine(S_2, b)
f_1 = OrthogonalLine(S_1, b)
r = 3.5 (slider from 0 to 5, step 0.1)
c = Circle(S_2, r)
d = Circle(S_1, r)
C_2 = Intersect(c, f_2, 2)
D_2 = Intersect(c, f_2, 1)
A_1 = Intersect(d, h_1, 1)
B_1 = Intersect(d, h_1, 2)
e = OrthogonalLine(B_1, X_{12})
f = OrthogonalLine(A_1, X_{12})
g = OrthogonalLine(C_2, X_{12})
h = OrthogonalLine(D_2, X_{12})
A_2 = Intersect(h_2, f)
k_1 = Segment(A_2, A_1)
B_2 = Intersect(h_2, e)
l_1 = Segment(B_2, B_1)
C_1 = Intersect(f_1, g)
m_1 = Segment(C_1, C_2)
D_1 = Intersect(f_1, h)
n_1 = Segment(D_1, D_2)
k = Circle(A_2, Segment[D_2, S_2])
A = Intersect(k, o_2, 2)
p = Circle(D_1, Segment[S_1, A_1])
B = Intersect(p, o_1, 2)
i = Segment(A_2, A)
C = Intersect(f_2, i)
j = Segment(D_1, B)
D = Intersect(h_1, j)
q = Circle(S_1, Segment[D_1, D])
s = Circle(S_2, Segment[A_2, C])
E = Intersect(s, o_2, 2)
F = Intersect(s, o_2, 2)
G = Intersect(q, o_1, 1)
H = Intersect(q, o_1, 2)
I = Intersect(s, o_2, 2)
J = Intersect(s, o_2, 1)
t = Conic(D_2, I, C_2, J, A_2)
c_1 = Conic(B_1, G, D_1, A_1, H)
l, m = Tangent(V_2, t)
n, a_1 = Tangent(V_1, c_1)
K = Intersect(t, m, 1)
L = Intersect(c_1, n, 1)
M = Intersect(c_1, a_1, 1)
N = Intersect(t, l, 1)
b_1 = Segment(V_2, K)
d_1 = Segment(V_2, N)
e_1 = Segment(V_1, M)
g_1 = Segment(V_1, L)