so, mal schauen ob ich das richtig verstanden habe:
Delphi-Quellcode:
function F(r, mSchiff, mPlanet: Extended): Extended;
begin
result := (y * mPlanet * mSchiff) / (r * r);
end;
function EnergieberechnungEx(Z: Cardinal; Pos, mPlanet, mSchiff: Extended): Extended;
var h: Extended;
I: Cardinal;
x: Extended;
begin
if z = 0 then
z := 1;
h := (Pos*1000)/Z;
result := 0;
for i := 1 to Z do
begin
x := h * F(r+(i*h)/2, mSchiff, mPlanet);
Result := Result + x;
end;
end;
stimmt das so?
auf jedenfall ändert sich jetzt das ergebnis wenn ich die anzahl der schritte ändere und für 1 km braucht ein 1t schweres raumschiff 9794207 Joule
achso: tausend Dank an dich, Nikolas
ich weiß garnicht wie ich mich bei dir bedanken kann
