
Bewegung eines Planeten
***************************************************
|v|V|x|y|h|G|M|n|d|t|=|0|20000|1.5E11|0|2000|6.67E-11|2e30|0|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
c=a+(a-b)/2*d
x = c/2*h^2+v*h+x
v=c*h+v
B=A
A=-j*y
C=A+(A-B)/2*d
d=1
y=C/2*h^2+V*h+y
V=C*h+V
t=t+h
Wenn t>200000
t=0
F=X*y-Y*x
?F
ohnewenn
X=x
Y=y
F=X*y-Y*x
_x;y;;10
zurck
