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

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

LOCATE 1, 46: PRINT a

IF h < 0 THEN 200

GOTO 100

200 REM взрыв

r = 20

n = 100

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

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

REM: коэффициенты 0.5 и 1 определяют ширину и высоту разлета

DIM x(n), y(n)

RANDOMIZE (TIMER)

FOR i = 1 TO n

b = -6.28 * RND / 2

rn = r * RND

xc = x2 + rn * .5 * COS(b)

yc = y2 + rn * 1 * SIN(b)

PSET (xc, yc), 9 + 9 * RND