
Bewegung eines Planeten
***************************************************
|v|V|x|y|h|G|M|n|d|=|0|30000|1E11|0|2000|6.67E-11|2e30|0|0|: Anfangsbedingungen mit Doppelklick festlegen !
Programm mit Doppelklick auf " Wiederhole bis... " (siehe unten ) starten !

wiederhole bis n=1
R = wrz(x*x+y*y)
j =G*M/R^3
b=a
a=-j*x
a=a+(a-b)/2*d
x = a/2*h^2+v*h+x
v=a*h+v
B=A
A=-j*y
A=A+(A-B)/2*d
d=1
y=A/2*h^2+V*h+y
V=A*h+V
_x;y;;10
zurck
