Ich bitte dringend um Verbesserungsvorschläge:
GLOBAL Kraft, Beschleunigung, Masse, Gravitation, Reibung
Gravitation = 9.81
Reibung = 7
Beschleunigung = 0
Masse = 70
put = 0
Seitengeschw = 50
Zeitschritt = 0.1
WHILE TRUE
X_MAKE2D
Kraft = Masse * Gravitation - Reibung * (Geschwindigkeit * Geschwindigkeit)
a = Kraft / Masse
deltaV = a * Zeitschritt
Geschwindigkeit = Geschwindigkeit + deltaV
S = S + Geschwindigkeit * Zeitschritt
Seitengeschw = (Seitengeschw + Seitengeschwold) * Zeitschritt
Seitengeschwold = Seitengeschw
//Viereck zeigen
FILLRECT 310 + Seitengeschw, 0 + S, 330 + Seitengeschw, 20 + S, RGB(0xff, 0xff, 0xff)
PRINT "Hoehe: ", 0, 0
PRINT 480 - S, 50, 0
PRINT Seitengeschw, 0, 10
hoch = 480 - S
IF put > 23 THEN GOTO a1
PUTFILE "high.txt", 0 + put * 3, "-------Loop-------- " + put
PUTFILE "high.txt", 1 + put * 3, "Kraft " + Kraft
PUTFILE "high.txt", 2 + put * 3, "Höhe " + hoch
a1:
put = put + 1
SHOWSCREEN
//MOUSEWAIT
WEND
Freut mich, dass hier mal wieder jemand was postet. Statt Zeitschritt = 0.1 solltest Du GETTIMER() verwenden.