Impuls

Bewege den Planeten 
mit den Pfeiltasten

https://www.geogebra.org/haftendorn
Haftendorn, Buch (Springer):
Kurven erkunden und verstehen
Kap 7.6.1.1: S.206
www.kurven-erkunden-und-verstehen.de

Ha 2016

c: (x - 20 / 3)^(2) / (25 / 3)^(2) + y^(2) / 25 = 1
Planet = Point(c)
Sonne = Intersect(xAxis, yAxis)
r = Vector(Sonne, Planet)
f = Tangent(Planet, c)
impuls = Vector(Planet, Planet + (0, 12))
C = Point(f)
α = Angle(C, Planet, Sonne)
rb: abs(r)
vb: abs(impuls) / ((rb * sin(α)))
d = Circle(Planet, vb)
D, E = Intersect(d, f)
F, G = Intersect(c, d)
v = Vector(Planet, D)
H, I = Focus(c)
g = Segment(Planet, I)
h = AngularBisector(Sonne, Planet, I)
w = Vector(Planet, Sonne)
i: (1 / 3 * impuls)
P' = Translate(Planet, i)
a = Vector(Planet, P')
j = Line(Sonne, I)
b = false