Компьютерное моделирование движения тел
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: ответы на кроссворды, бесплатные шпоры
| Добавил(а) на сайт: Гурин.
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата
REM a-угол стрельбы
LOCATE 1, 6: PRINT "V m/s"
LOCATE 2, 6: PRINT "H m"
LOCATE 2, 24: PRINT "S m"
LOCATE 1, 24: PRINT "T s"
LOCATE 1, 45: PRINT "а"
78 t = 0
n = 0
b = 0
80 KEY(1) ON
ON KEY(1) GOSUB 90
KEY(5) ON
ON KEY(5) GOSUB 300
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
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
Рекомендуем скачать другие рефераты по теме: мировая экономика, титульный курсовой работы.
Категории:
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата
Главная