Реферат: Компьютерное моделирование движения тел

ON KEY(1) GOSUB 90

GOTO 80

REM полет

90 v = 200

g = 9.8

f = a * 3.14 / 180

100 q = .01

t = t + q

REM k коэффициент сопротивления воздуха

k = .016

vs = v * COS(f) - (k - k / (k + v * COS(f)))

vh = v * SIN(f) - (k - k / (k + v * SIN(f)))

s = vs * t * 2

h = (vh * t - (g * t ^ 2) / 2) * 5.5

v = SQR(vs ^ 2 + vh ^ 2)

LINE (x2, y2)-(x0 + s / 20, y0 - h / 25), 14

x2 = x0 + s / 20

y2 = y0 - h / 25

LOCATE 1, 12: PRINT v

LOCATE 2, 12: PRINT h / 5.5

LOCATE 2, 28: PRINT s / 2

LOCATE 1, 28: PRINT t

IF h < 0 THEN 200

GOTO 100

200 REM взрыв

r = 30

n = 500

REM: a угол разлета

REM: r радиус разлета, n количество осколков