2. Keplersches Gesetz

In gleichen Zeiten überstreicht die Verbindungsstrecke Sonne-Planet inhaltsgleiche Flächen (siehe Abb. 1).

Zur Überprüfung dieses  Gesetzes dient das nachfolgende Programm, welches sich von dem zuletzt behandelten  nur durch die roten Zeilen  unterscheidet. Die Programmzeilen zwischen „Wenn“ und „ohnewenn“ bewirken , dass im 2000000s-Takt die Flächengeschwindigkeit V_A=(x*V-y*v)/2 in das Rechenfenster geschrieben wird.  Das Rechenfenster muss zur Ansicht geöffnet werden !

Herleitung von  V_A=(x*V-y*v)/2    (anklicken !)

Abb. 1     Nach Eingabe von „169“ und „START“ kann das Programm ausgeführt werden.

|v|V|x|y|h|G|M|n|f|t|=|0|20000|1.5E11|0|2000|6.67E-11|2e30|0|0|0|   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;;10 zurück