
Bewegung eines Planeten
***************************************************
|v|V|x|y|h|G|M|n|f|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*f
x = c/2*h^2+v*h+x
v=c*h+v
B=A
A=-j*y
C=A+(A-B)/2*f
f=1
y=C/2*h^2+V*h+y
V=C*h+V
t=t+h
Wenn t>2000000
t=0
F=(x*V-y*v)/2
?F
?
0;0
_x;y
ohnewenn
_x;y
zurck
