Dynamiskt kägelsnitt i 3D

Dynamiskt kägelsnitt i 3D

Dynamiskt kägelsnitt i 3D

Planets position

Kon

Plan

β = 90°           →   cirkel
α < β < 90°    →   ellips
β = α              →    parabel
0 ≤ β < α        →   hyperbel

PARABOLA

HYPERBOLA

ELLIPSE

CIRCLE

PAIR OF STRAIGHT LINES

α = 0.7853981633974483 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
a = InfiniteCone((0, 0, 0), (0, 0, 1), α)
h = 1.4 (slider from -8 to 8, step 0.1)
A: (0, 0, h)
β = 0.5235987755982988 rad (slider from 0 to 90°, step 0.08726646259971647)
c = Line((0, 0, 0), (0, sin(β), cos(β)))
e = Line(A, c)
b = Line(A, (1, 0, h))
d = Plane(b, e)
f = IntersectPath(d, a)
g = true
i = true
B = (-6.6, -2)
text2: "" + text1 + ""
C = (-10.30545496231442, 0.48056492374064885)
D = (-6.965454962314423, 0.48056492374064885)