Planetenbahn
Author: Prof. Dr. Haftendorn
Date: 5 Juni 2013

1. Keplersches Gesetz: Die Plantetenbahnen sind Ellipsen, in deren eimem Brennpunkt die Sonne steht.

Kraft

Impuls=m v x Radiusvektor

Impulsformel

Der Drehimpuls ist konstant.
Der Betrag von v wird berechnet aus

v=   \frac{ impuls }{r*sin(α) }  } 

Ha 2013

Sonne = (-3.758535443822935, -0.37097685097297006)
B = (1.5, 0.5)
C = (-1.2200408348610372, 2.4783538325556913)
bahn = Ellipse(Sonne, B, C)
Planet = Point(bahn)
u = Vector(Sonne, Planet)
a = Tangent(Planet, bahn)
im = Vector((0, 2))
A' = Translate(Planet, im)
impuls = Vector(Planet, A')
impuls_1: y(im)
D = Point(a)
α = Angle(D, Planet, Sonne)
vwert: (impuls_1 / ((abs(u) * sin(α))) * 2)
d = Circle(Planet, vwert)
E = (7.260603399568811, 3.022316963047527)
F_1, G = Intersect(d, a)
v = Vector(Planet, F_1)
w = Vector(Planet, Sonne)
F = true
b = true