geo-025-solidos

O

γ

g

r

r'

r

x

P'=(r'cos\alpha,rsen\alpha)

γ

γ

O

r

r'

g

-r'

-r

γ

P'

P

y

O

r

r'

x

Inclinación = 0.6 (slider from -2 to 2, step 0.05)
Altura = 3.2 (slider from 0 to 5, step 0.05)
Radio = 1.6 (slider from 0 to 5, step 0.05)
Cilindro = Surface((Radio * cos(t)) + (Inclinación * s), (Radio * sin(t)), s, t, 0, (2 * π), s, 0, Altura)
I = Intersect(xAxis, yAxis)
J: ((Inclinación * Altura), 0, Altura)
g = Line(J, xAxis)
K = Point(g)
L = Point(xAxis)
M = Point(xAxis)
N = Point(g)
O = Point(xAxis)
h = Line(O, N)
P = Point(h)
j = Segment(I, M)
β = Angle(M, L, K)
radio: (Radio * sin(β))
a = CurveCartesian((radio * cos(a)), (Radio * sin(a)), a, 0, (2 * π))
A, B, C, D, E = Intersect(j, a)
F, G, H, Q = Intersect(yAxis, a)
R, S, T, U, V = Intersect(xAxis, a)
W = Point(a)
b = Segment(I, W)
c = Segment(F, G)
d = Segment(S, A)
α = Angle(A, I, W)
e = OrthogonalLine(W, d)
Z = Intersect(d, e)
C_1 = (3.1703619765182403, -4.290013312447765)
f = Segment(W, Z)
dist = Distance(O, N)
A_1 = (-0.692656039627266, -7.662800615884445)
k = Circle(A_1, dist)
i = OrthogonalLine(A_1, yAxis)
B_1 = Point(i)
D_1 = Rotate(B_1, α, A_1)
γ = Angle(B_1, A_1, D_1)
l = Line(A_1, D_1)
p = Circle(A_1, (2 * Radio))
E_1, F_1 = Intersect(p, i)
m = Line(D_1, i)
n = Line(E_1, l)
G_1 = Intersect(m, n)
polígono1, d_1, a_1, e_1, g_1 = Polygon(D_1, A_1, E_1, G_1)
H_1 = Point(l)
δ = Angle(G_1, D_1, H_1)
q = Segment(D_1, H_1)
I_1 = Midpoint(D_1, G_1)
r = OrthogonalLine(D_1, e_1)
J_1 = Intersect(r, e_1)
K_1 = Midpoint(D_1, J_1)
s = Segment(D_1, J_1)
t = Segment(D_1, I_1)
b_1 = Segment(D_1, K_1)
c_1 = Segment(I_1, K_1)
L_1 = (-1.261323666369497, -10.74144949169583)
f_1 = OrthogonalLine(L_1, yAxis)
M_1 = Point(f_1)
k_1 = Circle(L_1, (2 * radio))
i_1 = OrthogonalLine(M_1, f_1)
N_1 = Rotate(M_1, 90° - β, L_1)
ε = Angle(M_1, L_1, N_1)
h_1 = Line(L_1, N_1)
O_1 = Intersect(i_1, h_1)
polígono2, o_1, l_1, m_1 = Polygon(L_1, M_1, O_1)
ζ = Angle(L_1, O_1, M_1)
P_1 = Point(o_1)
j_1 = OrthogonalLine(P_1, o_1)
Q_1 = Intersect(j_1, m_1)
n_1 = Segment(P_1, Q_1)
R_1 = Midpoint(L_1, M_1)
S_1 = Midpoint(L_1, O_1)
p_1 = Segment(L_1, S_1)
q_1 = Segment(L_1, R_1)
r_1 = Segment(S_1, R_1)
o = CurveCartesian((radio * cos(a)), (Radio * sin(a)), a, 0, 0.9)