> Катейко (Катейко) писал (а) в ответ на сообщение:
>
> 15 страниц об одном и том же, смысла — по делу — на 1 страницу.
> Катейко (Катейко) писал (а) в ответ на сообщение:
>Высосать из пальца -это прикидывать что-то по сферическому шарику в вакууме
>
> Вот тебе пример програмки (чей-то курсач):
> http://www.gamedev.ru/code/forum?id=64607
>
> Вот ей можно прикинуть, хотя у дева ГОРАЗДО точнее.
>
> Ключевое там:
> {Эта программа моделирует полет реактивного снаряда, запущенного
> под углом к поверхности Земли
> Снаряд принимается за материальную точку}
> Program F;
> Uses tpCrt, Graph;
> Const
> c = 0.2; {коэффициент сопротивления воздуха}
> p = 1.29; {плотность воздуха, (кг/м<sup><small>3</small></ sup>)}
> s = 0.25; {площадь поперечного сечения снаряда, (м<sup><small>2</small></sup >)}
> u = 300; {скорость выхода газов, (м/c)}
> g = 9.81; {ускорение свободного падения, (м/c<sup><small>2</small></s up>)}
> mt = 30; {масса топлива, (кг)}
> m0 = 50; {масса снаряда без топлива, (кг)}
> …
>
> {--------- Функция производной координаты x ----------------}
> Function Fx (t, v, q: Real): Real;
> Begin
> Fx:=v*Cos (q); {производная координаты x}
> End;
> {--------- Функция производной координаты y ------------------}
> Function Fy (t, v, q: Real): Real;
> Begin
> Fy:=v*Sin (q); {производная координаты y}
> End;
> {-------- Функция производной скорости ----------------------}
> Function Fv (t, v, q: Real): Real;
> {-------- Функция производной скорости ----------------------}
> Function Fv (t, v, q: Real): Real;
> Var
> a: Real;
> Begin
> If m>(m0-mt) then
> begin
> m:=36-Exp (t);{Закон изменения массы снаряда}
> dm:=-Exp (t);
> end
> else
> begin
> m:=m0-mt;
> dm:=0;
> end;
> Fv:= 1/m*(-½*c*p*s*SQR (v)-(u+v)*dm)-g*Sin (q);{производная скорости}
> End;
> {------- Функция производной угла полета ----------------------}
> Function Fq (t, v, q: Real): Real;
> Begin
> If v=0 then Fq:=0
> else Fq:= -g/v*Cos (q);{производная угла полета}
> End;
> {---- Процедура вычисляет производные t, v, q методом Рунге-Кутта ----}
>
> Procedure RungeKutt (Var t, v, q: Real);
> …
>
>
> Ну и в цикле все это:
> repeat
> RungeKutt (t, v, q); {Вычисление производных t, v, q
> методом Рунге-Кутта}
> xx:=round (x/3);
> yy:=round (y/3);
> Line (x_x, y_y, xx+100,-yy+330);{Строится график полета снаряда}
> x_x:=xx+100;
> y_y:=-yy+330;
> if (m<=(m0-mt)) and (flag_fuel=false){Условие сгорания топлива}
> then Fuel (tx, x_x, y_y); {Рассчитывается полет снаряда с момента
> запуска и до сгорания топлива}
> if (y<y_post) and (flag_high=false)
> then Max_high (tx, x_x, y_y); {Рассчитывается полет снаряда после
> сгорания топлива и максимальная высота полета}
> Delay (200);
> Str (x 0, tx);
> y_post:=y;
> until y<=0; {Условие завершения полета}
> Burst (i, x_x, y_y); {Описывается падение снаряда}
> Output (tx); {Выводится на экран время и дальность полета снаряда}

> Катейко (Катейко) писал (а) в ответ на сообщение:
>Я думаю он вообще не планирует… площадей — нет, Сy — практически тоже!
>
> Катейко (Катейко) писал (а) в ответ на сообщение:
>А хрен вареньем не намазать? Ну чтоб тебе вкусней было

> Катейко (Катейко) писал (а) в ответ на сообщение:
>Ой, ну подловила…
>
> По расчету в моем случае все параметры как в предыдущем!
> угол 90 высота старта 100 м над морем, Vо = 8км/с
> Считаем…

> Катейко (Катейко) писал (а) в ответ на сообщение:
>Лобовое сопративление!
>

> Катейко (Катейко) писал (а) в ответ на сообщение:
>Лобовое сопративление!
>

> Катейко (Катейко) писал (а) в ответ на сообщение:
>Это У тебя пробное тело! Когда ты вверх подбрасываешь G на него не действует?
>