Author Topic: Kleines Physik Experiment (Gravitation)  (Read 4287 times)

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
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

Offline Kitty Hello

  • code monkey
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 10746
  • here on my island the sea says 'hello'
    • View Profile
    • http://www.glbasic.com
Kleines Physik Experiment (Gravitation)
« Reply #1 on: 2006-Aug-03 »
Freut mich, dass hier mal wieder jemand was postet. Statt Zeitschritt = 0.1 solltest Du GETTIMER() verwenden.