GLBasic forum

Codesnippets => Code Snippets => Topic started by: WPShadow on 2006-Aug-02

Title: Kleines Physik Experiment (Gravitation)
Post by: WPShadow on 2006-Aug-02
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
Title: Kleines Physik Experiment (Gravitation)
Post by: Kitty Hello on 2006-Aug-03
Freut mich, dass hier mal wieder jemand was postet. Statt Zeitschritt = 0.1 solltest Du GETTIMER() verwenden.