Gekippter Kegel - Kegelschnitte

IMP10

verschieben

Neigung

Öffnung

s = 0.9 (slider from -5 to 5)
S: (s, 0, 0)
A: (s, 0, 1)
α = 37 (slider from -90 to 90, step 1)
B = Rotate(A, α°, S, (0 * x) + y + (0 * z) = 0)
achse = Line(S, B)
β = 20 (slider from 0 to 45, step 1)
a = InfiniteCone(S, Vector[S, B], β°)
gl1: x + (0 * z) + (0 * y) = 0
c = IntersectPath(gl1, a)