Delphi - Моделирование полета тела с учетом сопротивления воздуха

[W3Avenger]

Ребятки, требуется помощь, иначе всю мою группу отчислят .
Вообщем препод потребовал составить две задачи:
1)Моделирование полета тела, брошенного под углом к горизонту, без учета сопротивления воздуха.
2) Та же задача, но уже с учетом сопротивления воздуха.
Первую задачу успешно решил и сдал, а вот по поводу второй нет ни малейшего представления...
Требуется найти дальность полета, высоту, время полета - при заданных начальных координатах, скорости и угле броска. Также нужно вычислить x(t), y(t) в заданный момент времени. Также требует построить график используя tchart.
Помогите пожалуйста. Может у кого-то уже есть готовые задачи подобного рода.
UPD: Земля плоская, коэф сопротивления таблияная константа.

[ura_111]

Посмотри здесь:

http://www.studfiles.ru/preview/5837411/

Там запрограммировано в eXCELL, но я думаю, проблемы не будет перевести
в твой язык программирования:

4.jpg

Кстате, там и теория есть.

[type_Oleg]

W3Avenger, надеюсь, Земля плоская и плотность воздуха постоянна и не зависит от высоты?
Иначе можешь смело послать препода, и если решишь, то тебя возьмут на работу в Центр Управления Полетами, баллистиком.

Лучше создать тип " вектор ", и работать с ним. Вектор положения, вектор скорости.
Кстати, какой язык ?

[W3Avenger]

Сообщение от type_Oleg

W3Avenger, надеюсь, Земля плоская и плотность воздуха постоянна и не зависит от высоты?
Иначе можешь смело послать препода, и если решишь, то тебя возьмут на работу в Центр Управления Полетами, баллистиком.

Лучше создать тип " вектор ", и работать с ним. Вектор положения, вектор скорости.
Кстати, какой язык ?

Вся работа в delphi 7
Земля плоская, плотность воздуха постоянна. Забыл число....Ну наверное стандартное, табличное какое-нибудь. Tchart обязателен, в первой задаче делили траекторию на отрезки и рисовали по точкам. Тут надо так же
Создал случайно вторую тему, там подписан язык.
Д

[type_Oleg]

Могу помочь в расчете собственно движения, без графики. Самому интересно.
Щас, погодите..

[W3Avenger]

Сообщение от type_Oleg

Могу помочь в расчете собственно движения, без графики. Самому интересно.
Щас, погодите..

Безусловно буду рад и такой помощи )

[type_Oleg]

Держите .
Обратите внимание на функцию fAxAir в модуле mod1 - расчет аэродин. сопр. Я не знаю, какую вам надо использовать.
Эта формула вообще разная бывает, в зависимости от диапазона скоростей, от вида тел.. Иногда коэфф. 0.5 отсутствует.
Шаг - чем больше скорость, тем меньше конечно.Например - для скоростей порядка нескольких м/сек - не больше 0.1 сек.
Скорость задаю не через угол, а через проекции вектора скорости.

Кстати, можете ввести Cx=0 и сравнить со своим решением для безвоздушного варианта.

[NetSpace]

плотность воздуха меняется с высотой по экспоненте. но у поверхности мы принимаем её p = 1,29 кг/м.куб.

[W3Avenger]

Сообщение от type_Oleg

Держите .
Обратите внимание на функцию fAxAir в модуле mod1 - расчет аэродин. сопр. Я не знаю, какую вам надо использовать.
Эта формула вообще разная бывает, в зависимости от диапазона скоростей, от вида тел.. Иногда коэфф. 0.5 отсутствует.
Шаг - чем больше скорость, тем меньше конечно.Например - для скоростей порядка нескольких м/сек - не больше 0.1 сек.
Скорость задаю не через угол, а через проекции вектора скорости.

Кстати, можете ввести Cx=0 и сравнить со своим решением для безвоздушного варианта.

Так. Я код еще не смотрел, только проснулся, однако, огромное спасибо Но я тут вспомнил с ваших слов, что полет идет на высоте до 6000 м. Значение, написанное выше, правильное.

[W3Avenger]

Ну, скажем так, сделано досконально и сложно Попробую разобраться