Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Веденные дополнительные значения X2, Y2 обеспечивают привязку координат к началу системы отчета. Программа выдаст график полета тела, который в данном случае не привязан к масштабу сетки координат. Устранить это неудобство можно в ведя множитель для Y координаты 5.5 (1:5,5), а для координаты X множитель  2 (1:2).

Заменив строчки 2.1 и 2.2 на выражения 2.3 и 2.4

s = v * t * COS(f) * 2                                                                                               (2.3)

              h = (v * t * SIN(f) - (g * t ^ 2) / 2) * 5.5                                                                 (2.4)

получим окончательную программу полета тела (Приложение 1). График полета представлен на рисунке 2.

Рис. 2

В данном случаи он не отражает истинной траектории полета тела, так как значение координат получены с шагом (дискретой) в 1 сек. Если значению q присвоить 0,5; 0,25; 0,1; и т.д., то график приблизится к идеальной кривой полета тела.

На кривизну графика так же влияет  изменение скорости и начального угла полета тела.

3.Этап третий. Работа пользователя.

Хорошую наглядность программа приобретает, когда она становится унифицированной, т.е. чтобы ее можно было успешно  использовать  для различных параметров. Для того, чтобы можно было менять начальные условия, несколько модернизируем уже имеющуюся программу полета тела. Но вместо тела используем пушечное ядро и попытаемся им попасть в цель находящуюся на каком-то  заданном расстоянии.

Для составления программы необходимо учитывать, что начальная скорость ядра составляет примерно 200 м/с, следовательно, и дальность полета значительно возрастет, при этом сопротивлением воздуха опять пренебрегаем. Программу начнем с ввода данных в соответствии с условием задачи.

REM   ЯДРО

5   INPUT «  Ввести угол стрельбы от 5 до 80 град»; a

7    IF a < 5 THEN 10

80 THEN 20

     GOTO 40

10 INPUT «   Угол должен быть >=5»; a

    GOTO 7

20 INPUT «   Угол должен быть <=80»; a

     GOTO 7

40   INPUT «   Ввести дальность до цели от 200 до 5000 м»; l

45   IF l < 200 THEN 50

     IF l > 5000 THEN 60

     GOTO 70

50   INPUT «   Расстояние до цели должно быть >=200»; l

Рекомендуем скачать другие рефераты по теме: мировая экономика, титульный курсовой работы.

Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата