Kleines Physik Experiment (Gravitation)

Previous topic - Next topic

WPShadow

Ich bitte dringend um Verbesserungsvorschläge:


Code (glbasic) Select
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
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est

Kitty Hello

Freut mich, dass hier mal wieder jemand was postet. Statt Zeitschritt = 0.1 solltest Du GETTIMER() verwenden.