Generación de un cilindro
Date: 5 Junio 2013

Cilindro 

Arrastre el cursor para mostrar como se genera un cilindro

r = 10.7 (slider from 0 to 15, step 0.1)
h = 3.2 (slider from -10 to 12, step 0.1)
c: x^(2) / 16 + (y + 6)^(2) / 4 = r / 10
e: x^(2) / 16 + (y - h)^(2) / 4 = r / 10
D = (0, -6)
b = OrthogonalLine(D, yAxis)
E, F = Intersect(c, b)
a = OrthogonalLine(F, b)
d = OrthogonalLine(E, b)
B = Intersect(e, a)
C = Intersect(e, d)
f = Segment(F, B)
g = Segment(E, C)
α = 2.356194490192345 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
E' = Rotate(E, α, D)
β = Angle(E, D, E')
i = Ray(D, E')
G = Intersect(c, i)
j = Segment(D, G)
k = Segment(B, C)
J = Intersect(k, yAxis)
C' = Rotate(C, α, J)
γ = Angle(C, J, C')
l = Ray(J, C')
A = Intersect(e, l)
m = Segment(A, G)
n = Segment(J, A)
polígono1, j_1, a_1, g_1, d_1 = Polygon(J, A, G, D)
Eje = Line(J, D)