Повторить подвиг Кирилла Левина

И превзойти его рекорд
 
RU Бывший генералиссимус #13.07.2017 13:33  @Полл#13.07.2017 13:20
+
-
edit
 
Полл> Геоид с отдельно настраиваемыми параметрами РН в момент пуска - углами ориентации и скоростью?

Не понял, какая связь между геоидом и настраиваемыми параметрами ракеты?

Полл> Эта погрешность получается от геометрии, а не гравитации. :)

Почему ты так считаешь? И почему приходится подруливать, пусть и чуть-чуть, для выведения на орбиту с наклонением, равным широте площадки?

Полл> Предлагаю гравполе считать по упрощенной модели.

Х его З. Прецессия спутника даже за виток уже вполне заметна. Собственно, полёты уже даже самых первых спутников, на которых для этого никакой аппаратуры не было, показали, что разница в высоте северного и южного полюса - 10-30 метров.

Полл> Атмосферу считаем по упрощенным моделям.
Да.

Полл> То есть считать будем только АУТ?

Вообще-то, меня интересует тулза для анализа ракеты. Что там спутник на орбите дальше делать будет - его дело.

Полл> Я в данном примере не понимаю, зачем заниматься увеличением точности, учетом несферичности в конкретном примере, если СКО сравнимо с увеличением точности?
Полл> Обычно принимается достаточной точность в два раза больше СКО.

Так гироскопы-то уже за это время значительно улучшились. Я сейчас экспериментирую с ADIS16460.

Б.г.>> Думаю, что пока надо ориентироваться на использование даблов везде.
Полл> При использовании программы для вычисления АУТ вывода на низкие орбиты с точностью в километры или даже десятки километров пока не вижу в этом смысла. Но для меня это вопрос не принципиальный.

для меня тоже - ты сам поднял этот вопрос.
 49.0.2623.11249.0.2623.112
RU Полл #13.07.2017 13:52  @Бывший генералиссимус#13.07.2017 13:33
+
-
edit
 

Полл

литератор
★★★★
Полл>> Геоид с отдельно настраиваемыми параметрами РН в момент пуска - углами ориентации и скоростью?
Б.г.> Не понял, какая связь между геоидом и настраиваемыми параметрами ракеты?
Места пуска ракеты.
Просто одно за другое прицепилось. Сейчас, на начальном этапе, таких попутных вопросов будет выскакивать много.

Полл>> Эта погрешность получается от геометрии, а не гравитации. :)
Б.г.> Почему ты так считаешь? И почему приходится подруливать, пусть и чуть-чуть, для выведения на орбиту с наклонением, равным широте площадки?
Местная вертикаль на сфере и геоиде на одной и той же широте будет разной.

Полл>> Предлагаю гравполе считать по упрощенной модели.
Б.г.> Х его З. Прецессия спутника даже за виток уже вполне заметна. Собственно, полёты уже даже самых первых спутников, на которых для этого никакой аппаратуры не было, показали, что разница в высоте северного и южного полюса - 10-30 метров.
Или:
Б.г.> Вообще-то, меня интересует тулза для анализа ракеты. Что там спутник на орбите дальше делать будет - его дело.
Нужно определится.

Б.г.> Так гироскопы-то уже за это время значительно улучшились. Я сейчас экспериментирую с ADIS16460.
Значительно это на порядок или на два? Если на два - уже в твоем примере имеет смысл считать физмодель гравполя.

Б.г.> для меня тоже - ты сам поднял этот вопрос.
Если быть совсем точным, то:
Sandro>> Ладно, как числа-то представлять вообще? :D
:)
 54.054.0
RU Бывший генералиссимус #13.07.2017 14:36  @Полл#13.07.2017 13:52
+
-
edit
 
Б.г.>> Почему ты так считаешь? И почему приходится подруливать, пусть и чуть-чуть, для выведения на орбиту с наклонением, равным широте площадки?
Полл> Местная вертикаль на сфере и геоиде на одной и той же широте будет разной.

Для сжатия 1:300 разница не может превышать нескольких десятков угловых секунд. Там же минимум квадратичная формула - на полюсе и на экваторе вертикали совпадают. А отклонение плоскости - несколько десятков угловых минут.

Полл>>> Предлагаю гравполе считать по упрощенной модели.
Полл> Нужно определится.

Ну весь вопрос в том - скажется ли уже прецессия за время АУТ, особенно, ОСОБЕННО, если у нас после предпоследней ступени большая баллистическая пауза - скажем, 5 минут. На сколько километров мы промахнёмся?

Б.г.>> Так гироскопы-то уже за это время значительно улучшились. Я сейчас экспериментирую с ADIS16460.
Полл> Значительно это на порядок или на два?

Смотря на какую цену закладываться. Если 2000 долларов, то чуть больше, чем на порядок. Если 200 долларов, то в полтора раза. Но это же всего за 2 года.
 49.0.2623.11249.0.2623.112
RU Дмитрий В. #13.07.2017 18:20
+
-
edit
 

Дмитрий В.

опытный

Сложность матмодели должна быть адекватной поставленной задачи. Таковых, по большому счету, всего 4:
1) Оптимизация безразмерных и относительных основных проектных (относительные конечные массы ступеней или числа Циолковского, начальные тяговооруженности ступеней) и проектно-баллистических параметров (параметры программы угла тангажа для опорной орбиты, для ракет с РДТТ с коротким АУТ могут добавляться длительности пассивных участков), исходя из заданного критерия и имеющихся ограничений (на дальность падения ОЧР, на максимальный скоростной напор, на скоростной напор при разделении ступеней, максимальную перегрузку произведение q*alfa). Для этого вполне достаточно плоской постановки задачи и модели центрального поля тяготения (сферическая модель Земли), ракета - материальная точка переменной массы, атмосфера - стандартная по ГОСТ 4401-81, аэродинамика - упрощенная модель Сх(М) и Су'а (М). Спредшит для этого годится в большинстве стандартных случаев.
2)Проектно-проверочный баллистический расчет. Позволяет более точно определить летные характеристики, энергетические характеристики при выведении на различные орбиты, центры районов падения ОЧР, получить исходные данные для предварительного проектирования АС, а также для корректировки основных проектных параметров и т.д. Трехмерная постановка задачи, модель земли - геоид, модель гравитационного поля должна учитывать как минимум несколько гармоник и аномалии, атмосфера - СА-81 или стохастическая (при необходимости), ракета - материальная точка переменной массы, аэродинамика - на основании продувок или расчетов.
3)Проверочный расчет динамики полета. Цель - проверка и корректировка параметров АС, расчет устойчивости и управляемости, получение исходных данных для расчета нагрузок, гарантийных запасов топлива. Модель атмосферы - стохастическая, учитываются различные возмущения, в первую очередь, ветер. Модель движение - трехмерная. Ракета - упругое тело с жидким наполнением (шесть степеней свободы как для твердого тела + учет как минимум трех первых тонов поперечных и продольных колебаний, а также учет подвижности жидкости в баках).
4) Полетное задание для конкретной ракеты под конкретную миссию. Цель - расчет доз заправки, настройка АС и т.п.

Что требуется?
Send evil to GULAG!  49.0.2623.11249.0.2623.112
RU Sandro #13.07.2017 20:49  @Бывший генералиссимус#12.07.2017 18:51
+
-
edit
 

Sandro
AXT

инженер вольнодумец
★☆
Б.г.> Выкладка софта, принципиально пригодного для проектирования многоступенчатых баллистических ракет, под GNU GPL, не приветствуется ни одним государством. По очевидным причинам. Больше того, есть прецеденты.

Я не в курсе, поэтому прошу объяснений. Кого закрыли за знание законов физики, и по какому обвинению?
Это не шутка, я серьёзно. То есть, имеет смысл работать над софтом ракетного качества, или в мусорку?
 37.037.0
RU Бывший генералиссимус #13.07.2017 21:23  @Sandro#13.07.2017 20:49
+
-
edit
 
Б.г.>> Выкладка софта, принципиально пригодного для проектирования многоступенчатых баллистических ракет, под GNU GPL, не приветствуется ни одним государством. По очевидным причинам. Больше того, есть прецеденты.
Sandro> Я не в курсе, поэтому прошу объяснений. Кого закрыли за знание законов физики, и по какому обвинению?

История довольно давняя, поэтому все уже забыли. Один новозеландец строил копию Фау-1. Но с системой управления на современных принципах. Без БЧ, естественно. Его не трогали, пока он не попытался выложить софт в инет. Написанный им софт.
Как я понимаю, перед началом постройки он консультировался с юристами. И его позиция, в принципе, с точки зрения закона была достаточно сильна - он не пользовался никакой закрытой информацией, и, фактически, всю конструкцию рассчитал заново.

Sandro> Это не шутка, я серьёзно. То есть, имеет смысл работать над софтом ракетного качества, или в мусорку?

На этот вопрос сейчас нет однозначного ответа. Чтобы ПОСТРОИТЬ ракету, однозначно требуется лицензия ФСБ. Чтобы её ПРОЕКТИРОВАТЬ, т.е., не СПРОЕКТИРОВАТЬ, а ПРОЕКТИРОВАТЬ, понимаешь разницу? да, так вот, с проектированием сложностей меньше. Но законченный технический проект, независимо от наличия в нём ошибок, кстати, является т.н. "чувствительной информацией".

Очень грубо говоря, если ты проектируешь ТНА, он проектирует баки, а я проектирую систему управления, всё нормально. И мы можем собираться вместе, и обмениваться информацией. Но, как только проект окажется завершён, обмениваться информацией уже будет нельзя :)

Есть грубая аналогия с твёрдым ракетным топливом. Можно хранить отдельно алюминиевую пудру, и аммиачную селитру, и дизтопливо в своём гараже. Но, смешав эти три субстанции, ты совершаешь уголовное преступление, независимо от цели (например, рыбу глушить или пни корчевать).
 59.0.3071.11559.0.3071.115
RU Бывший генералиссимус #13.07.2017 22:30  @Дмитрий В.#13.07.2017 18:20
+
-
edit
 
Д.В.> Что требуется?

Дмитрий Саныч, всё не так просто!
Требуется построить масштабную модель "Лямбды" в наиболее возможно мелком масштабе. Т.е. минимизировать стартовую массу, считая ПН равной 0,025 кг (т.е. 1/1000 от таковой у Лямбды-4S)
Для этого требуется моделировать полёт в атмосфере - т.к. программа угла тангажа получатся заданием только начальной величины тангажа.

Проблемы - их много - все критичные. А я даже сразу вспомнить все не могу.
Одна из наиболее очевидных - малое время работы всех ступеней, пусть даже УИ можно получить и чуть лучше, чем у Лямбды, и массовое совершенство, благодаря углеволокну - тоже чуть лучше, чем у Лямбды, по крайней мере, кроме последней ступени.

Мне тут успешно намотали кокон из СВМ (это советский аналог кевлара) наружным диаметром 11 см, и сделали вольфрамово-графитовый вкладыш для сопла :) Думаю, что Star-4G повторить можно, правда, время работы будет меньше, зато доля топлива - чуть больше, чем у него...
 59.0.3071.11559.0.3071.115
KZ Xan #14.07.2017 17:43  @Бывший генералиссимус#13.07.2017 13:33
+
-
edit
 

Xan

координатор

☠☠
А что-нибудь ещё надо для описания ступеней?
Прикреплённые файлы:
Edit.png (скачать) [384x540, 29 кБ, 0 загрузок]
 
 
 54.054.0

Xan

координатор

☠☠
Xan> А что-нибудь ещё надо для описания ступеней?

Забыл про углы тангажа! :)
Их, наверное, можно привязать к моментам включения и выключения ступеней, а между интерполировать линейно.

Это я двигаюсь от "Инструкции оператору".
Соответственно, рисую пультик.

Всё разделяю на отдельные проги.
 54.054.0

Полл

литератор
★★★★
Xan> Всё разделяю на отдельные проги.
Уважаемый, у меня чуть инфаркт не случился - я уж думал, что ты готовую программу сделал!! :D
У тебя избыток данных по каждой ступени: и конечная масса, и начальная, и тяга, и удельный импульс, и время работы.
 54.054.0

Xan

координатор

☠☠
Полл> Уважаемый, у меня чуть инфаркт не случился - я уж думал, что ты готовую программу сделал!! :D

Я про неё давно думаю, мне она абсолютно необходима для моей задачи.
Поэтому какие-то заготовки уже есть.

Полл> У тебя избыток данных по каждой ступени: и конечная масса, и начальная, и тяга, и удельный импульс, и время работы.

Совершенно не.
Ракета состоит из ступеней, её стартовый вес = сумма масс всех ступеней.
Потом первая сгорает и остаётся остаток.
Разница масс и удельный импульс дают импульс.
Самой тяги нет, её надо считать из заданных данных.
Время горения — куда ж без него.
Поскольку предполагается, что тяга НЕ константа, то надо как-то изобразить кривульку во времени. Первое приближение — линейное падение тяги. Наклон можно задать отношением тяги в начале работы к тяге в конце работы.

Я планирую для верхних ступеней уменьшение тяги раза в три. Вместе с уменьшением массы раза в три, чтоб ускорение не росло к концу работы.

Cx и Cy планирую "вручную" считать в чужой (не моей) проге и в табличном виде подсовывать считалке.
По предварительным прикидкам большой точности не нужно, всё равно с реальностью не сойдётся! :D
В смысле, что хорошо бы предварительно слетать в атмосфере за атмосферу, чтоб получить более точные данные именно на своей железяке/геометрии.
Или взять топлива с избытком, а потом (в конце разгона) это избыток компенсировать. Например, виляя.

Сделал интерполяцию стандартной атмосферы — скорость звука и плотность от высоты.
Думаю, проще всего считалке подсовывать (считывать из внешнего файла) здоровенные массивы значений с шагом по высоте, например, 10 метров. Высоту использовать как индекс в массивах.


Xan> Всё разделяю на отдельные проги.

Громоздить всё в одну прогу считаю категорически неправильным.
По опыту.
 54.054.0
14.07.2017 19:54, Полл: +1: За подготовленность.

Xan

координатор

☠☠
Подрихтовал немножко! :)

Но хочется замечаний и обругательств!!! :D
Прикреплённые файлы:
Edit2.png (скачать) [383x549, 31 кБ, 0 загрузок]
 
 
 54.054.0

Полл

литератор
★★★★
Xan> Но хочется замечаний и обругательств!!! :D
Вроде как программу тангажа хотели подбирать с помощью этой программы?
Для первой ступени хотели еще высоту начальную.
Я смотрю, у тебя ракета намного меньше по масштабам, чем у топик-стартера?
 54.054.0
RU Бывший генералиссимус #14.07.2017 20:55  @Xan#14.07.2017 20:05
+
-
edit
 
Xan> Подрихтовал немножко! :)
Xan> Но хочется замечаний и обругательств!!! :D

Моменты инерции нужны, по обеим осям.
Плечо аэродинамических сил.
И то, и другое - в зависимости от времени - выгорая, РДТТ уменьшает момент инерции, причём, при постоянном расходе массы это происходит обычно нелинейно. Если двигатель торцевого горения, то момент инерции уменьшается всё равно нелинейно, потому что смещается центр масс.
 59.0.3071.11559.0.3071.115

Xan

координатор

☠☠
Полл> Вроде как программу тангажа хотели подбирать с помощью этой программы?

Чтобы понять "куда крутить настройки", надо сделать сотни пусков на имитаторе. Тогда в голове сложится некоторое "инстинктивное" понимание.
Это именно "потрогать один параметр" и посмотреть, что будет. И так много раз.

А чтоб прога сама сказал что да как — от этого понимание в голове не случится.
И даже непонятно будет, правильно ли прога советует.

Я начинал с ручного счёта, но это трудозатрано, надо арифметику "механизировать".
Вот постепенно ползу в этом направлении.

Полл> Для первой ступени хотели еще высоту начальную.

Там отдельно надо, "с другого пульта", вводить географию. Географические координаты, время.
Чтоб получить эти, как их, tle.
Для двух целей:
Знать, когда твой спутник будет над головой пролетать. И чтоб другие люди могли это узнать.
И чтоб заранее можно было, взяв свежие tle для чужих спутников, убедиться, что нет вероятности столкновения.

Полл> Я смотрю, у тебя ракета намного меньше по масштабам, чем у топик-стартера?

В древности планировал, что до орбиты доберётся 100 граммов.
По прикидкам стартовый вес получался 10 кг — вполне можно унести в руках.
Потом, как обычно, вес начал расти! :D
И дорос до 20 кг.
Мне это не понравилось и я начал отчикыживать всё лишнее — батарейку поменьше, электронику порезать до минимума, и т.д.
Получилось 40 граммов на орбите — 8 кг на старте.
Три примерно одинаковые ступени по паре кил чтоб добраться до края атмосферы. На небольшом сверхзвуке, чтоб не горячо было.
Четвёртая из остатка атмосферы (около 50 км) разгоняется до 3.5 км/с наклонно. С апогеем 150 км.
Все 4 с аэродинамическими рулями.
После 110 км сбрасывается обтекатель и стартует вакуумная ступень, добавляя 3 км/с немножко наклонно с апогеем 350 км.
И в апогее последняя ступень.
 54.054.0
KZ Xan #14.07.2017 21:09  @Бывший генералиссимус#14.07.2017 20:55
+
-
edit
 

Xan

координатор

☠☠
Б.г.> Моменты инерции нужны, по обеим осям.
Б.г.> Плечо аэродинамических сил.

К задаче подбора тангажа от времени это не имеет отношения.

К управляемости — да.
Судя по значениям производной Cy по углу атаки для рулей, можно вполне сделать ракету с около нулевой устойчивостью и рулей хватит для выруливания, например, на границе струйного течения, когда внезапно воздух начинает дуть под углом 1/7.

Б.г.> И то, и другое - в зависимости от времени - выгорая, РДТТ уменьшает момент инерции, причём, при постоянном расходе массы это происходит обычно нелинейно.

Да и наплевать. Пока ракета длиной порядка метра, инерция у неё большая.
Если у управления сил достаточно (это важно), то всё в порядке.
А скорости реакции у мозгов выше крыши. Даже и скорости машинок вполне хватает.
 54.054.0

Полл

литератор
★★★★
Xan> Чтобы понять "куда крутить настройки", надо сделать сотни пусков на имитаторе.
Первоначально требования к оператору были сформулированы совсем иные. :)

Xan> Получилось 40 граммов на орбите — 8 кг на старте.
А как планировалось ориентация двух последних ступеней?
 54.054.0

Xan

координатор

☠☠
Xan>> Чтобы понять "куда крутить настройки", надо сделать сотни пусков на имитаторе.
Полл> Первоначально требования к оператору были сформулированы совсем иные. :)

"Сделать универсальную прогу, которой будут все с удовольствием пользоваться".

А у меня — чисто инструмент под мою задачу. :)

Xan>> Получилось 40 граммов на орбите — 8 кг на старте.
Полл> А как планировалось ориентация двух последних ступеней?

В голове две пары сопел и клапанов по X и Y, две пары по Z.
На холодном газе — водяном паре.
Это в паузах между включениями двигателей.

При включенном по X и Y отклонением центра масс, скорее всего. Или сопловым насадком.
По Z паром.
 54.054.0

Xan

координатор

☠☠
Xan> "Сделать универсальную прогу, которой будут все с удовольствием пользоваться".

В этом треде, кмк, обсуждаются две не связанные между собой задачи задачи:
Подобрать лучшую конфигурацию и траекторию при идеальном управлении;
При заданной конфигурации поиграть с управлением (ветер, шумы).

Обеим задачам нужна считалка, которая моделирует полёт ракеты.

Для первой задачи считалка должна заглотить данные из файлов, переварить, и выдать переваренное в файл(ы).
После чего человек может на данные смотреть невооружённым глазом или через что-то красивое графическое.

Для второй считалка должна просчитывать маленький кусочек во времени, после чего взаимодействовать с симулятором управления, обмениваясь данными.

То есть, внутри считалки должна быть подпрограмма, которая просчитывает один квант времени.
Эта вещь самая простая и понятная. В отличие от интерфейса с человеком. :)
Вот только магнитное поля я всё ещё не сделал.
 54.054.0
RU Полл #17.07.2017 07:24  @Дмитрий В.#13.07.2017 18:20
+
-
edit
 

Полл

литератор
★★★★
Д.В.> ...атмосфера - стандартная по ГОСТ 4401-81...
Таблицы из этого ГОСТа в формате OpenOffice или MS Exel можно скачать где-нибудь?
З.Ы. Нашел.
 54.054.0
Это сообщение редактировалось 17.07.2017 в 08:02

Unix

втянувшийся

☠☠
Xan> То есть, внутри считалки должна быть подпрограмма, которая просчитывает один квант времени.
Xan> Эта вещь самая простая и понятная. В отличие от интерфейса с человеком. :)

Дык а чо вы все страдаете?!
Более чем 30 лет назад уже же всё сделали!
Берём журнал "Техника-молодежи" 1985, №6 и далее и понеслась:
КЭИ (Клуб электронных игр). "Истинная правда", М. Пухов. Программа "Лунолет-1". Мягкой посадки.

А потом "Путь к Земле" и Лунолёт-2, -3, Маскон, Кеплер и Атмосферы ...

Код открыт, просто надо чуть чудь портануть с "суперкомпьютеров" "Электроника Б3-21 \ Мк-61" на обычный писюк ;-)

... эх, сколько бессонных ночей и миллиметровки было изведенО ... :)


PS: Извиняюсь за оффтопик, но душа не выдержала :)
PPS: Уже портированные тоже есть.
 52.052.0

Xan

координатор

☠☠
Unix> КЭИ (Клуб электронных игр). "Истинная правда", М. Пухов. Программа "Лунолет-1". Мягкой посадки.

Ага, я на PDP-8 первый раз в это сыграл. :)
А потом и свою написал.
 54.054.0
RU Бывший генералиссимус #18.07.2017 10:47  @Xan#18.07.2017 06:44
+
-
edit
 
Unix>> КЭИ (Клуб электронных игр). "Истинная правда", М. Пухов. Программа "Лунолет-1". Мягкой посадки.
Xan> Ага, я на PDP-8 первый раз в это сыграл. :)
Xan> А потом и свою написал.

А я на Д3-28, у нас на них лабы обсчитывались. Но "посадка на Луну" и взлёт ракеты с наклонным стартом, гравитационным разворотом, аэродинамической стабилизацией нижних и стабилизацией вращением верхних ступеней - это программа радикально другого уровня сложности. И, для получения хоть сколько-нибудь приемлемой точности такого моделирования, учесть придётся множество разных факторов.
 49.0.2623.11249.0.2623.112
CA Unix #19.07.2017 05:43  @Бывший генералиссимус#18.07.2017 10:47
+
-
edit
 

Unix

втянувшийся

☠☠
Unix>>> КЭИ (Клуб электронных игр). "Истинная правда", М. Пухов. Программа "Лунолет-1". Мягкой посадки.
Xan>> Ага, я на PDP-8 первый раз в это сыграл. :)
Xan>> А потом и свою написал.
Б.г.> А я на Д3-28, у нас на них лабы обсчитывались.
Там другие несколько были лунолёты, импортные :D Их потом в ТМ "импортозаменили" ;)
Вот вам мужики подарок:

REM Игра «Посадка на Луну».

REM Текст на «Бейсике» для ЭВМ Д3–28 с дисплеем 15ИЭ–00–013

REM

1 GOTO 110

2 J=V+G*S: I=A-S*(V+G*S/2): IF K=0 THEN RETURN

3 Q=1-K*S/M: J=J+Z*LOG(Q): I=I+Z*S+Q*LOG(Q)*Z/K*M: RETURN

4 L=L+S: T=T-S: M=M-S*(K+F): A=I: V=J: RETURN

5 IF L=B THEN 95

6 PRINT USING "######"; L ; INT(A) ; (A-INT(A))*5280; 5280*V; M-N; "#####.##";

7 INPUT " ? ", K: T=10: IF K>=8 THEN IF K<=200 GOTO 9

8 IF K<>0 THEN PRINT " СТОЛЬКО ГОРЮЧЕГО РАСХОДОВАТЬ НЕЛЬЗЯ " ;: GOTO 7

9 Q=RND(3): IF Q> .98 GOTO 23

10 Z=1.8*(1-H)

11 IF M-N<1E-3 GOTO 27

12 IF T<1E-3 GOTO 5

13 S=T: IF N+S*(K+F)>M THEN S=(M-N)/(K+F)

14 GOSUB 2: IF I<=0 GOTO 17

15 IF V>0 THEN IF J<0 GOTO 19

16 GOSUB 4: GOTO 11

17 IF S<5E-3 GOTO 28

18 S=2*A/(V+SQR(V*V+2*A*(G-(Z*K/M)))): GOSUB 2: GOSUB 4: GOTO 17

19 W=(1-M*G/(Z*K))/2: S=M*V/(Z*K*(W+SQR(W*W+V/2)))+5E-2: GOSUB 2

20 IF I<=0 GOTO 17

21 GOSUB 4: IF J<0 THEN IF V>6 GOTO 19

22 GOTO 11

23 IF Q> .998 THEN PRINT " ЛУННЫЙ МОДУЛЬ УНИЧТОЖЕН МЕТЕОРИТОМ ": GOTO 52

24 PRINT " УДАР МИКРОМЕТЕОРИТА, " ;: Q1= .5+RND(3)

25 IF Q< .99 THEN F=F+Q1: PRINT " УТЕЧКА ГОРЮЧЕГО "; F; " ФУНТОВ/ С ": GOTO 10

26 PRINT " ТЯГА ДВИГАТЕЛЯ УПАЛА НА"; Q1; " % ": H=H+.01*Q1: GOTO 10

27 PRINT " ГОРЮЧЕЕ КОНЧИЛОСЬ НА"; L; " С ": S=(SQR(V*V+2*A*G)-V)/G: V=V+G*S: L=L+S

28 PRINT "ВЫ НА ЛУНЕ НА "; L; " C , ";: W=5280*V: PRINT " СКОРОСТЬ СТОЛКНОВЕНИЯ "; W; "ФУТОВ/ С "

29 R=M-N: PRINT " ГОРЮЧЕГО ОСТАЛОСЬ "; R; " ФУНТОВ ": GOTO 38

30 PRINT " ПОСАДКА, " ;: Y=60- .08*(L-160)-1.5*W*W+15*F+25*H: IF R<550 GOTO 35

31 Y=Y+( .01*(R-550))3: ON X GOTO 33,34,35

32 PRINT " ВЫ ПРЕКРАСНЫЙ СНАЙПЕР ": RETURN

33 PRINT " ВЫ ОТЛИЧНЫЙ НАЕ3ДНИК ": RETURN

34 PRINT " НЕ ОТЛИЧНАЯ, НО, В ОБЩЕМ-ТО, НЕПЛОХО ": RETURN

35 PRINT " НО ГОРЮЧЕГО ДЛЯ В3ЛЕТА " ;: Y=Y-2*( .01*(550-R))3

36 IF R<400 THEN PRINT " НЕ ХВАТИТ ": Y=Y- .1*( .01*(400-R))4: RETURN

37 PRINT " МАЛОВАТО ": RETURN

38 IF W>2.85 GOTO 47

39 IF D+E+O+P+C=0 THEN PRINT " ВЫ СНЯТЫ С ПОЛЕТОВ 3А ПОЛЬ3ОВАНИЕ ШПАРГАЛКОЙ ": GOTO 44

40 Z4=Z4+1: U=0: IF W> .89 THEN 45

41 PRINT " ВИРТУО3НАЯ " ;: X=0: GOSUB 30

42 PRINT " ВАША ПЕНСИЯ БУДЕТ УВЕЛИЧЕНА НА "; Y; " DOLL./NED. ": IF Z4=1 GOTO 52

43 PRINT " ТРЕНИРОВКА ОКОНЧЕНА - ВЫ УЖЕ ХОРОШО ЛЕТАЕТЕ, ПЕРЕКУР. "

44 PRINT " КТО СЛЕДУЮЩИЙ ? ": GOTO 96

45 PRINT " БЕ3УПРЕЧНАЯ " ;: X=1: GOSUB 30: Y= .6*Y: IF Z4=1 GOTO 52

46 GOTO 42

47 IF W>9.7 GOTO 56

48 PRINT " ХОРОШАЯ "; : X=2: GOSUB 30: U=0: D=D+1: ON D GOTO 51,50,49

goto 52

49 PRINT " ВАШИ РЕ3УЛЬТАТЫ ПОЧТИ НЕ УЛУЧШАЮТСЯ ": GOTO 44

50 PRINT " ВСЕ ЖЕ НЕ СЛЕДУЕТ УСПОКАИВАТЬСЯ НА ДОСТИГНУТОМ ": GOTO 52

51 IF E+O+P+S=0 THEN PRINT " ВЫ ПОДО3РЕВАЕТЕСЬ В ПОЛЬ3ОВАНИИ ШПАРГАЛКОЙ "

52 PRINT " НАЧНЕТЕ С ШАГА 0 (0) ИЛИ С ШАГА "; USING "###"; B; " (1) " ;

53 INPUT " ? ", F7: IF F7=0 GOTO 93

54 IF F8=0 GOTO 93

55 L=L1: A=A1: V=V1: M=M1: F=F1: H=H1: GOTO 94

56 IF W>27.3 THEN 65

57 PRINT " ЭТО ПОХОЖЕ НА ПРЫЖОК КО3ЛА, НО ВСЕ-ТАКИ ВЫ СЕЛИ "

58 E=E+1: IF E>1 THEN ON E GOTO 60,61,62

59 IF U>1 THEN PRINT " ПРОДОЛЖАЙТЕ В ТОМ ЖЕ ДУХЕ ": U=1: GOTO 52

60 PRINT " ВЫ УХУДШИЛИ СВОЙ ГРАФИК ПОЛЕТА ": U=1: GOTO 52

61 PRINT " ХОРОШО БЫ ПОАККУРАТНЕЕ ... ": U=1: GOTO 52

62 PRINT " ВАШЕ ЛИХАЧЕСТВО - ДУРНОЙ ПРИМЕР ДЛЯ МОЛОДЫХ КУРСАНТОВ ": U=1: GOTO 52

63 PRINT " ВЫ ПРОДОЛЖАЕТЕ ПУТАТЬ АСТРОНАВТА С КОВБОЕМ "

64 PRINT "###"; Z4+D+E+O+P+C ;" -Я ПОПЫТКА ОКОНЧЕНА ": GOTO 44

65 IF W>47 GOTO 70

66 PRINT " ЛЕГКИЕ ПОВРЕЖДЕНИЯ КОРПУСА (И ЧЕРЕПА) ": O=O +1

67 Y1=Y1+17.24+ .85*(W-27.3): PRINT " NASA БУДЕТ ВЫЧИТАТЬ С ВАС "; Y1; " ДОЛЛ. ЕЖЕНЕДЕЛЬНО "

68 U=2: IF O<5 GOTO 52

69 PRINT " ВАШ СЧЕТ В БАНКЕ ИСЧЕРПАН ": GOTO 64

70 IF W>85 GOTO 82

71 PRINT " ТЯЖЕЛЫЕ РАЗРУШЕНИЯ, ВЫ БОЛЬШЕ НИКОГДА НЕ УВИДИТЕ ЗЕМЛЮ "

72 P=P+1: IF P>1 THEN U=3: ON P GOTO 77,78,79,80,81,82

73 IF U<3 THEN PRINT " ВАШИ ПОПРАВКИ ГРАФИКА ПОЛЕТА НЕУДАЧНЫ ": GOTO 76

74 IF C>0 THEN PRINT " УЖЕ ЛУЧШЕ, " ;

75 PRINT " ВО3МОЖНО, СЛЕДУЮЩАЯ ПОПЫТКА БУДЕТ УДАЧНЕЕ "

76 U=3: GOTO 52

77 PRINT " СНОВА ПОКАЛЕЧИЛИСЬ ": GOTO 52

78 PRINT " NASA ОБУЧАЕТ ПИЛОТОВ НЕ ДЛЯ ТОГО, ЧТОБЫ ПЛАТИТЬ ИМ 3А ИНВАЛИДНОСТЬ ": GOTO 52

79 PRINT " ЛУЧШЕ БЫ ВАМ УВОЛИТЬСЯ ИЗ NASA ": GOTO 52

80 PRINT " НЕЛЬЗЯ ЖЕ ОБЛОЖИТЬ ДЛЯ ВАС ВСЮ ЛУНУ ПОДУШКАМИ ... ": GOTO 52

81 PRINT " ЭТА РАБОТА НЕ ДЛЯ ВАС - НА ЛУНЕ НЕТ ВРАЧЕЙ ": GOTO 64

82 PRINT " ВЫ ОБРАЗОВАЛИ НА ЛУНЕ НОВЫЙ КРАТЕР ГЛУБИНОЙ "; .19*W; " ФУТОВ "

83 C=C+1: ON C GOTO 90,89,88,87,86,85,84

goto 91

84 PRINT " NASA НЕ БУДЕТ ТРАТИТЬ ДЕНЬГИ НА ВАШЕ ОБУЧЕНИЕ ": GOTO 64

85 PRINT " ВАМ ЛУЧШЕ БЫ ПЕРЕЙТИ В СФЕРУ ОБСЛУЖИВАНИЯ ": GOTO 92

86 PRINT " ВАМ ЕЩЕ НЕ НАДОЕЛО УМИРАТЬ ? ": GOTO 92

87 PRINT " ВОТ ВЫ И ОПЯТЬ ДАЛИ ДУБА ! ": GOTO 92

88 PRINT " СМЕРТЬ В ТРЕТИЙ РА3 ... ": GOTO 92

89 PRINT " ВТОРИЧНАЯ СМЕРТЬ ": GOTO 92

90 IF U=4 THEN PRINT " НУ ЧТО ЖЕ, ЭТО ОБЫЧНЫЙ ИСХОД ПЕРВОЙ ПОПЫТКИ ": GOTO 92

91 PRINT " МЕНЯЙТЕ ГРАФИК ПОЛЕТА В ДРУГОМ НАПРАВЛЕНИИ "

92 U=4: GOTO 52

93 L=0: T=0: A=120: S=1: V=1: F8=0: M=32500: F=0: N=16500: G=1E-3: H=0

94 INPUT " ЗАПОМНИТЬ ШАГ? ( ДА - ВРЕМЯ, НЕТ - 0) ", B: GOTO 1010

95 L1=L: A1=A: V1=V: M1=M: F8=1: F1=F: H1=H: GOTO 6

96 INPUT " ИНСТРУКЦИЯ? (ДА - 1 , НЕТ - 0) ", B

97 IF B>0 GOTO 99

98 Z4=0: D=0: E=0: O=0: P=0: C=0: Y1=0: U=4: GOTO 93

99 PRINT: PRINT " НУЖНО ПОСАДИТЬ МОДУЛЬ С ВЕСОМ 16500 ФУНТОВ "

100 PRINT " ПО ПОКАЗАНИЯМ ПРИБОРОВ "

102 PRINT " 1-Й СТОЛБЕЦ - ВРЕМЯ В СЕК. "

103 PRINT " 2-Й И 3-Й - РАССТ. ДО ЛУНЫ В МИЛЯХ ПЛЮС ФУТАХ "

104 PRINT "4-Й - СКОРОСТЬ В ФУТАХ/СЕК "

105 PRINT "5-Й - ЗАПАС ГОРЮЧЕГО В ФУНТАХ "

106 PRINT " ": PRINT " В 6-ОМ - ЗАДАВАЙТЕ РАСХОД ГОРЮЧЕГО - НУЛЬ ИЛИ "

107 PRINT " ОТ 8 ДО 200 ФУНТОВ/ С ВКЛЮЧИТЕЛЬНО "

108 PRINT " ": PRINT " ": PRINT " НАЧИНАЙТЕ ПОСАДКУ ! ": PRINT " ": GOTO 98

110 INPUT " ТАБЛИЦА РЕКОРДОВ? (ДА - 1, НЕТ - 0) ", B

120 IF B=0 GOTO 96

130 PRINT " НАДБАВКА К ЖАЛОВАНИЮ - 61.96 DOLL./NED. "

142 PRINT " СКОРОСТЬ МЯГКОЙ ПОСАДКИ - 0.02 ФУТ/ С "

150 PRINT " ПРОДОЛЖИТЕЛЬНОСТЬ ПОЛЕТА - 644.34 С "

160 PRINT: GOTO 96

1010 B=10*INT( .1*B+ .5): GOTO 5

7998 REM РЕДАКЦИЯ 3.09.1984.

7999 END


(Модератору - под спойлер не лезит, и как Балансер прописал - тоже, статья не создаётся)

Б.г.> взлёт ракеты с наклонным стартом, гравитационным разворотом, аэродинамической стабилизацией нижних и стабилизацией вращением верхних ступеней - это программа радикально другого уровня сложности. И, для получения хоть сколько-нибудь приемлемой точности такого моделирования, учесть придётся множество разных факторов.
Ну это понятно, кто бы сомневался. А вот что нибудь открытое есть? Любопытно было бы взглянуть ...
 54.054.0

Unix

втянувшийся

☠☠
Unix> Ну это понятно, кто бы сомневался. А вот что нибудь открытое есть? Любопытно было бы взглянуть ...

Есть ключевые слова для поиска? Я всё про баллистику для снайперов нахожу :-(
 54.054.0

в начало страницы | новое
 
Поиск
Настройки
Твиттер сайта
Статистика
Рейтинг@Mail.ru