Хроника

Про жизнь.

Sun, 05 Nov 2006 23:24:20 GMT

— Посмотри, работает там жж?
— Работает... не работает... работает... не работает...
© про двух милиционеров и одну мигалку

Мораль сей басни такова. ЖЖ работает. Но работает уже не на нас. Пришли заинтересованные люди, и журнал стал пешкой в политической игре. С известной стоимостью на бирке, $20.000.000

Что такое информационные технологии и почему они должны быть также святы, как Байконур, здесь никто не знает. А ещё спрашивают, зачем в 1996 году я открыл Школу.

Comments

ЖЖ опять лёг.

Sat, 04 Nov 2006 21:10:12 GMT

Отключили точно в полночь. Они что, собираются тайные ночные погромы устраивать? :-) Обновил ссылочки на Русский Марш. Многое успел, пока жж работал. Эти материалы, конечно, интересующиеся должны сохранять на собственных винчестерах. Доверия Носику (Рэмблеру) ноль:

http://lj.rossia.org/users/arvi/4317.html?mode=reply

UPDATE Перенёс подборочку в ru_politics@lj, националисты начали уже делать свои подборочки, перешли на вики. Как грится, лиха беда начало:

http://community.livejournal.com/ru_politics/4077487.html

Comments

Сайты, выведенные из строя спецслужбами...

Sat, 04 Nov 2006 13:40:24 GMT

...под соусом "Русского марша". Доверяли гэбэшнику Путину? Получайте!

www.livejournal.com (выведен из строя с 12 до 16, в полночь опять перестал работать)
www.iraq-war.ru (заработал в 17:30)
www.rusmarsh.org (лежит до сих пор)
(далее)

Конечно же, это не "хакеры". Это наёмники, лишённые этики. Предавшие интересы и хэкерского сообщества, и своего народа.

Comments

Как в 1993 году..

Sat, 04 Nov 2006 11:24:55 GMT

Чувствуешь себя, как в октябре 1993 года. Тогда точно также сидел, был на связи и отслеживал события.

Вот только вместо блогов были BBS'ки... Кстати, та BBS'ка Верхнового Совета, на которой я был, вошла в историю. Как и люди, которые в те времена помогали распространяться информации.

Comments

Где снаряды: там или тут?

Sat, 04 Nov 2006 11:04:39 GMT

   Ух! Начал сбоить LJR, 14:00 по Москве. Второй сбой, 14:15. prool утверждает, что это бывает из-за перенагрузки сервера, все ломятся к Вербицкому с жж. tiphareth подтверждает и уточняет. Интересно посмотреть на статистику.

   Информацию из жж можно читать через блогояндекс. Там же копия всех сегодняшних сообщений из LJR. Нажимать на "Сохраненная копия".

   Поставьте себе в букмарки, ибо кто знает что. Если будет крах ЛЖР, советую заглянуть на сайт prool'я, он сейчас за компом и поможет нам не потерять друг друга:

http://www.virtustan.net/

Comments

Информация о Русском Марше (за 4 ноября).

Sat, 04 Nov 2006 10:39:48 GMT

   Ниже ссылка на неплохой "чат", нечто вроде SMS'ок и сообщения. Насколько я понял, везде прошло без эксцессов. Москва показала, что депутатский мандат это ничего не значащая бумажка, поэтому тратить силы "на выборы" (а не захват власти) есть расточительство. В позорящем Россию "окне в Европу" (СПб) ОМОН разогнал митинг без малейшего ущерба для себя. Образцово-показательные "русские" безвольно ушли с площади путинского города, впрочем потом подрались с другими горожанами, "антифашистами".
http://www.dpniforum.org/forum/

   Другие официальные сайты:
http://www.dpniforum.org/forum/
http://www.rossija.info/
http://www.na-kontrol.ru/
http://www.rusm.org/ (WAP-сайт на транслите)
http://community.livejournal.com/dpni_ru/
http://rdpni.greatestjournal.com/ (новый официальный блог ДПНИ)
http://4nov-online.livejournal.com/ (неофициальная онлайн-трансляция Марша, работала до 12:00)

   Просто сайты:
http://www.rusredut.org/index.php
http://www.ros-sea.ru/

   Про сбой жж (который стал политическим событием), сотовой связи в метро и другие атаки агонизирующей ~~власти~~ администрации:
http://www.lenta.ru/news/2006/11/04/livejournal/
http://www.polit.ru/news/2006/11/04/nolj.html
http://forum.msk.ru/material/news/15871.html
http://www.zvezda.ru/web/news245.htm
http://www.zvezda.ru/web/news259.htm
http://echo.msk.ru/news/226603.html
http://echo.msk.ru/news/342183.html
http://www.yoki.ru/social/society/04-11-2006/33226-Livejournal-0
http://www.habrahabr.ru/blog/livejournal/2219.html
http://alex-lebedev.livejournal.com/14811.html
http://www.rosbalt.ru/2006/11/04/273695.html
http://www.rosbalt.ru/2006/11/04/273699.html
http://serg-zagatin.livejournal.com/20482.html
http://community.livejournal.com/ru_politics/4076406.html (фото MMS-репортажа)
http://community.livejournal.com/ru_politics/4066918.html
http://community.livejournal.com/ru_politics/4067326.html
http://slashdot.org/articles/05/01/15/0311214.shtml (англ.)

   Новости про Марш:
http://www.regnum.ru/news/733914.html
http://www.rosbalt.ru/2006/11/04/273732.html (1993)
http://www.rosbalt.ru/2006/11/04/273702.html
http://www.rosbalt.ru/2006/11/04/273701.html
http://www.mirtv.ru/show.php?id=5898&templ=news
http://www.rian.ru/review/20061104/55380825.html
http://www.kommersant.ru/index-news-y.html?id=108428
http://www.scilla.ru/news.php?ChapterID=10&NewsID=2207
http://www.pravda.ru/news/politics/04-11-2006/202617-akziya-0
http://news.bbc.co.uk/hi/russian/russia/newsid_6117000/6117300.stm
http://www.fraza.com.ua/news/04.11.06/30269.html
http://www.iraq-war.ru/article/107785
http://4november.ru/news84.html
http://blogs.mail.ru/community/kondopoga/51B0A6CE1D021F1D.html
http://doppel-herz.livejournal.com/216756.html
http://community.livejournal.com/ru_politics/4065566.html
http://ihatehuman.livejournal.com/8849.html
http://oshulgin.livejournal.com/58841.html
http://oshulgin.livejournal.com/58888.html
http://oshulgin.livejournal.com/59325.html
http://kavkaz.memo.ru/newstext/news/id/1104420.html
http://kavkaz.memo.ru/newstext/news/id/1104600.html
http://sholademi.livejournal.com/380794.html
http://politaktiv.ru/2006/11/04/holiday/
http://www.gazeta.ru/2006/11/04/last222901.shtml (СПб)
http://aidan4.livejournal.com/483867.html (СПб)
http://panshirskiiylev.livejournal.com/11411.html (Челябинск)
http://www.rusmarsh.info/irkutrsk.htm (Иркутск)
http://tayga.info/news/15127/ (Новосибирск)
http://www.zvezda.ru/web/news250.htm (Киев)
http://www.newsru.com/world/04nov2006/draka.html (Киев)
http://www.podrobnosti.ua/accidents/casualties/2006/11/04/364114.html (Киев)

   Аресты, полицейский беспредел-2:
http://www.gazeta.ru/2006/11/04/last222896.shtml
http://glavred.info/archive/2006/11/04/130011-17.html
http://www.zvezda.ru/web/news257.htm
http://www.zvezda.ru/web/news254.htm
http://www.komitet.rusunion.ru/news.php?readmore=2379
http://www.strana.ru/news/297239.html
http://community.livejournal.com/ru_politics/4061303.html
http://www.na-kontrol.ru/news.php?readmore=881 (обсуждение, -1)
http://www.liveinternet.ru/users/771724/post23013925/
http://tor85.livejournal.com/706947.html
http://gloriel.livejournal.com/147847.html
http://darkhon.livejournal.com/275766.html
http://darkhon.livejournal.com/276040.html
http://yellow-reporter.livejournal.com/661513.html
http://lj.rossia.org/community/ru_nbp/1849.html
http://www.pravda.ru/news/politics/04-11-2006/202618-marsh-0 (метро)
http://echo.msk.ru/news/342153.html (превентив)
http://www.kavkaz.memo.ru/newstext/news/id/1104780.html (журналист)
http://www.kommersant.ru/index-news-y.html?id=108427 (депутат)
http://uralpolit.ru/news/russia/05-11-2006/page_45070.html (депутат)
http://lj.rossia.org/community/ru_nbp/1658.html (депутат)
http://nbp-info.com/4673.html
http://nbp-info.com/4678.html
http://nbp-info.com/4680.html
http://lenta.ru/story/marsh/ (СПб)
http://www.fontanka.ru/178911 (СПб)

   Про отсутствие информации о Марше в "русских" (путинских) СМИ:
http://www.zvezda.ru/web/news258.htm
http://lenta.ru/news/2006/11/04/ignore/
http://tor85.livejournal.com/706770.html

   Критика:
http://www.pravda.ru/news/politics/04-11-2006/202616-akziya-0
http://white-patriot.livejournal.com/122428.html
http://www.stringer.ru/publication.mhtml?Part=37&PubID=6658
http://lenta.ru/articles/2006/11/05/rusitogi/

   Итоги:
http://rogozin.livejournal.com/199198.html

   Фото- и видеогалереи, репортажи с фотографиями:
http://www.march2006.info/
http://www.rossija.info/moskva.htm
http://www.rossija.info/moskva2.htm
http://lenta.ru/news/2006/11/04/meeting/
http://lenta.ru/news/2006/11/04/meeting1/
http://yarowrath.livejournal.com/91081.html
http://militarev.livejournal.com/615599.html
http://militarev.livejournal.com/615911.html
http://militarev.livejournal.com/616020.html
http://militarev.livejournal.com/616867.html
http://militarev.livejournal.com/617683.html
http://politaktiv.ru/2006/11/04/photos/ (ОМОН)
http://pillka.livejournal.com/149992.html
http://ogneev.livejournal.com/342152.html
http://50x50.livejournal.com/11719.html
http://zolochevskiy.livejournal.com/43171.html
http://community.livejournal.com/ru_politics/4070397.html
http://ru.indymedia.org/newswire/display/15610/index.php
http://ru.indymedia.org/newswire/display/15611/index.php
http://ru.indymedia.org/newswire/display/15612/index.php
http://ru.indymedia.org/newswire/display/15613/index.php
http://foto.rc-mir.com/fotoalbum889493.html (от frog88@lj)
http://slil.ru/23352859 (от yarowrath@lj)
http://www.stringer.ru/publication.mhtml?Part=59&PubID=6657
http://tlsun.com/society/MOSRUSMARCH20061104.html (видеоотчёт)
http://www.fontanka.ru/179015 (СПб)
http://community.livejournal.com/ru_politics/4066666.html (СПб)
http://news.vl.ru/vlad/2006/11/04/rusmarsh/ (Владивосток)
http://atrey.livejournal.com/761965.html (Владивосток)
http://burmenk.livejournal.com/245907.html (Владивосток, там же в комментах)
http://community.livejournal.com/dpni_ru/779088.html (Владивосток)
http://www.newcadets.org/rusm/Irkutsk/ (Иркутск)
http://tayga.info/photo/112/ (Новосибирск)
http://tayga.info/video/78/ (Новосибирск, видео)
http://lj.rossia.org/users/svonz/337844.html (Севастополь)
http://lj.rossia.org/users/svonz/338243.html (Севастополь)
http://grey-croco.livejournal.com/136039.html (Одесса)

   Юмор:
http://nordica1488.livejournal.com/100988.html
http://knup-ru.livejournal.com/96404.html

Comments

Редизайн.

Sat, 04 Nov 2006 10:32:30 GMT

Артемия Лебедева подключили к дизайну livejournal? :-) Теперь сообщение выглядит, будто его набивали в спешке. Впрочем, слово "interruption" лучше "implosion".

13:50 Сообщение причесали, балет теперь таков:
Sorry, there was a power interruption at our datacenter.

We're working as fast as we can to get it back pronto!

Comments

Скриншот.

Sat, 04 Nov 2006 10:16:07 GMT

   Сеть отключили и у меня. :-) Начал настраивать модем, включили. Картинка сменилась. Раньше на жж можно было логиниться и получать фиг, теперь же сама страничка логина заменена на следующее:

   Неплохой баннер от priestess со ссылкой на "Полярную Звезду"

   WAP-сайт www.rusm.org работает. По сообщению организаторов, официальная часть митинга завершена.

Comments

Русский марш и LJ.

Sat, 04 Nov 2006 09:17:10 GMT

Ага. ~~"Кириллический сектор" живого журнала вырубил все более-менее подозрительные дневники~~ ЖЖ лёг полностью. Лежит krylov@lj, онлайн-трансляция 4nov-online@lj, коммьюнити dpni_ru@lj, сообщающий о марше oshulgin@lj и даже дневник нашей Школы hscool@lj, хотя туда отродясь политического не публиковали!

Ещё спрашивают, зачем Носик платил администрации журнала многие миллионы и кто за ним стоит...

UPDATE. Лежит также официальный сайт Русского Марша: http://www.rusmarsh.org/
Первые записи в LJR о неработающем жж датированы 11:56 ("Ну вот, проснулась, а жж не пашет.") и 11:12 (ЖЖ упал? ... А примерно час назад работал).

GSM-сеть враг не отключил. Позвонил организаторам, можно доверять работающим источникам информации:
http://dpni.org/
http://www.na-kontrol.ru/
http://www.rossija.info/

Comments

Основной вопрос.

Tue, 18 Jul 2006 23:32:57 GMT

(дублирую из жж, т.к. американская хренотень сейчас не работает)

   Основная беда американской Империи, с её контролирующими органами вроде WIPO/WTO/МВФ это даже не развёрнутое по всему миру и постоянно ширящееся партизанское движение ("террористы", "внутренние враги").

   Основная слабость "государства США" лежит в их идеологии. Противоположностью "звёздного неба" и космических путешествий является не "моральный закон", а путешествия в глубину материи и времени. Человеческое сердце не цифруется, любовь не подвластна чужой воли и глупым законам. Насколько бы глубоко эти "законы" не были бы проработаны, вражеский "секс" это всего лишь форма изнасилования и обмана. Но не любовь.

   Противоположностью космонавтики является не сводничество и морализирование (навроде "воровства копирайта"). А хэкерство, с точным рассчётом времени исполнения команд до наносекунд. С управлением триггерами, размеры которых неуклонно приближается к нанометрам. Как астрономы изучают небесный свод, так разработчики микросхем проектируют тончайшую структуру кристаллов. Но человек создан иначе, мы живые.

   Дурная, античеловеческая идеология Америки позволяет развить "Ай-Ти технологии". Не спорю. Но она не позволяет управлять людьми, только машинами. Враг может разработать НЛП, сложнейшие "тарифные планы", высосать из пальца "менеджмент" и хитрейшие социальные "операции". Но что всё это будет стоить, когда человек отказывается подчиняться их командам, вписывать себя в их детально, глубоко разработанные слова и поступает по совести?

Comments

Прощай, Луна!

Mon, 05 Jun 2006 21:57:16 GMT

Итак, следующая важная программа игрового цикла. Всем хороша станция «Юрий Гагарин». На ней можно поругаться с документальным телережиссёром Женей, бесплатно заправить баки... но наша-то цель Земля. И вот «Лунолёт-IV» позволяет наконец-таки улететь с лунной орбиты и достигнуть следующей промежуточной остановки, внутренней точки либрации. Где нас должен встретить танкер «Лагранж»... Соответствующий н/ф рассказ Михаила Пухова читайте в журнале «Техника-Молодёжи» 1986 №1.

Увы, инженер Сергей Волков так и не успел при жизни опубликовать блок-схему этой программы, хотя её разбор и был обещан в ТМ-1986 №6. Поэтому мне пришлось по-хэкерски "поднимать" её из скупого, но красивого и широко разошедшегося кода для ПМК. Для сервиса я добавил рассчёт круговой и параболической скоростей на каждом шагу. Ведь вычислительной скорости у нас, в XXI веке, хоть отбавляй.

' Лунолёт-4
' Публикация: ТМ-1986 N1
' Версия для ПМК (c) Михаил Пухов

' Лунолёт-IV v1o
' Публикация: LJR, 6 июня 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

' + учитывает влияние планеты на движение аппарата
' + позволяет перелёт во внешнюю или внутреннюю точку либрации
' - не приспособлена для посадки

CLS
PRINT " +++ Лунолёт-IV +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#

' Р0 Р1  Р2 Р3  Р4 Р5 Р6 Р7  Р8   Р9  РА  РВ РС РД
' V  RL  T  VF  K  M  C  R  DM/A  AL  RR  U  F  MM

' Комплект исходных данных: со станции "ЮГ" до внутренней точки либрации
M = 2200: C = 3660: R = 1738000: RR = R + 50000
F = -180 * PI# / 180: MM = 3500: U = 0
VF = 6371000# * SQR(9.81 / 384400000#) / 384400000#
K = 1.62# * R * R
RL = (K / (3 * VF * VF)) ^ (1 / 3)
V = SQR(K / RR) - VF * RR

DO

' Рычаги управления

'   Расход топлива при манёвре не должен превышать 5% от полной массы корабля
' (для лунолётов класса "Кон-Тики" это составляет 100-200 кг, в зависимости
' от наличного запаса топлива).

'   При дальних вылазках в космическое пространство на "Лунолёте-4"
' рекомедуется придерживаться следующих правил:
' 1. выполнять перелёт на гиперболических скоростях (параболическая скорость
'    в SQR(2) больше круговой, а гиперболические соответственно ещё выше);
' 2. в свободном полёте на высотах, не превышающих диаметра луны (для нашей
'    Луны около 3500 км), задавать время маневра не более 300 с, затем
'    переходить на 1000-секундные интервалы, при удалении на 15 тыс. км можно
'    уже задавать часовые интервалы (порядка 3000 с), а начиная с 30 тыс. км
'    -- трёхчасовые (10 000 с).

  VK = SQR(K / RR) - VF * RR
  DO
    PRINT "Высота полёта:"; RR - R; "м",
    PRINT "Расстояние до центра:"; RR; "м"
    PRINT "Вертикальная скорость:"; U; "м/с",
    PRINT "Горизонтальная скорость:"; V; "м/с"
    PRINT "Круговая скорость:"; VK; "м/с",
    PRINT "Параболическая скорость:"; VK * SQR(2); "м/с"
    PRINT "Запас топлива:"; MM; "кг", ,
    PRINT "Реактивное ускорение:"; A; "м/с^2"

    PRINT "Расстояние по вертикали до точки либрации:"; RR - RL; "м"
    PRINT "Угловое расстояние до центра видимой стороны луны:"; CSNG(F * 180 / PI#)

    INPUT "угол, градусы; расход топлива, кг; время, с"; AL, DM, T
    AL = AL * PI# / 180

    ' Блок проверки: перерасход топлива
  LOOP WHILE DM > MM

' Блок вычисления: реактивное ускорение
  MM = MM - DM
  A = DM * C / ((M + MM) * T)

' Рассчётный блок, полностью совместимый с "Лунолётом-4".

  ' тяга, кориолисова сила
  T1 = V + (A * SIN(AL) - U * (V / RR + 2 * VF) - 3 * SIN(F) * COS(F) * RR * VF * VF) * T
  F = F + (V + T1) * T / (2 * RR)
  V = T1

  ' тяга, тяготение, центробежная сила
  T1 = U - (K / (RR * RR) - A * COS(AL) - V * (V / RR + 2 * VF) - 3 * COS(F) * COS(F) * RR * VF * VF) * T
  RR = RR + (U + T1) * T / 2
  U = T1

LOOP 'Главный игровой цикл

Comments

...тем, кто умеет летать!

Tue, 30 May 2006 09:39:52 GMT

В принципе, программы «ОС-I» достаточно для орбитальных перелётов. Но в ней станция выглядит точкой, а это справедливо лишь на далёких расстояниях. Чтобы причалить к фантастической окололунной станции «Юрий Гагарин», имеющей форму цилиндра, нужна программа «ОС-II».

Описание, инструкцию и задания к «ОС-II» можно найти в ТМ-1985 №11, а ответы опубликованы в ТМ-1986 №8.

' OC-2
' Публикация: ТМ-1985 N11, ТМ-1986 N8
' Версия для ПМК (c) Михаил Пухов и Сергей Волков

' OC-II v1o
' Публикация: LJR, 30 мая 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

DECLARE FUNCTION F00! (X!)

CLS
PRINT " +++ OC-II +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#

' R Р0 Р1  Р2 Р3 Р4  Р5 Р6 Р7  R8   R9  РА РВ РС РД
'   V  RB  T  -  KS  M  C  RS DM/A  AL  Y  U  X  MM

' Комплект исходных данных: облёт станции "ЮГ" с ранцевым ракетным двигателем
M = 180: C = 3660: MM = 20: RS = -300: RB = -30
KS = SQR(1.62 / (1738000 + 50000)) * 1738000 / (1738000 + 50000)
X = 0: Y = 300: V = 0: U = 0

' В ОС-2 для экономии памяти начальное H просто обнулялось.
H = ABS(X) + RB

DO
  FM = 1
  ' Блок проверки: положительность высоты
  IF H < 0 THEN
    H = F00(ABS(Y) + RS)
    FM = 2
    IF H < 0 THEN
      ' Блок стыковки
      T = H / SQR(U * U + V * V)
      PRINT " 1       -00"
      FM = 0
    END IF
  END IF

  IF FM THEN

' Рычаги управления

'   Не рекомендуется тратить за единичный манёвр больше чем по 100-200 кг
' топлива; длительность маневра с включённым двигателем не должна превышать
' 100 с; при полёте по эллиптической орбите с выключенным двигателем
' не следует оставлять корабль без присмотра больше чем на 200-300 с.
'   При работе с программами "ОС-2" и "ОС-3" очень полезно (а на первых порах
' даже необходимо), нарисовав станцию на листе миллиметровки, отмечать на нем
' координаты корабля (или космонавта) после каждого совершённого маневра.

    DO
      PRINT "Запас топлива:"; MM; "кг",
      PRINT "Реактивное ускорение:"; A; "м/с^2"
      PRINT "Вертикальная скорость:"; U; "м/с"
      PRINT "Горизонтальная скорость относительно продольной оси станции:"; V; "м/с"

      PRINT "Вертикальная координата относительно центра станции:"; Y; "м"
      PRINT "Горизонтальная координата относительно продольной оси станции:"; X; "м"

      IF FM = 1 THEN
        PRINT "Расстояние до боковой поверхности станции:"; H; "м"
      ELSE
        PRINT "Расстояние до ближайшего торца станции:"; H; "м"
      END IF
      INPUT "угол, градусы; расход топлива, кг; время, с"; AL, DM, T
      AL = AL * PI# / 180

      ' Блок проверки: перерасход топлива
    LOOP WHILE DM > MM

    ' Блок вычисления: реактивное ускорение
    MM = MM - DM
    A = DM * C / ((M + MM) * T)
  END IF

' Рассчётный блок, полностью совместимый с "ОС-2".
' Определяет значения текущих переменных.

  T1 = V + T * (A * SIN(AL) - 2 * U * KS)
  X = X + T * (V + T1) / 2
  V = T1

  T1 = U + T * (2 * V * KS + A * COS(AL) + 3 * KS * KS * Y)
  Y = Y + T * (U + T1) / 2
  U = T1

  H = F00(ABS(X) + RB)
LOOP 'Главный игровой цикл

FUNCTION F00 (X)
  ' Универсальный обнулитель
  IF ABS(X) < 1 THEN F00 = 0 ELSE F00 = X
END FUNCTION

Конечно, не все орбитальные станции имеют форму цилиндра. С помощью программы «ОС-III» можно маневрировать в окресностях шарообразных космических станций и садиться на небольшие спутники вроде Фобоса, тяготением которых можно пренебречь.

Сама программа была опубликована в ТМ-1985 №11, а "разбор полёта" на Фобос осуществлён в ТМ-1986 №7.

' OC-3
' Публикация: ТМ-1985 N11, ТМ-1986 N7
' Версия для ПМК (c) Михаил Пухов и Сергей Волков

' OC-III v1o
' Публикация: LJR, 30 мая 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

DECLARE FUNCTION F00! (X!)

CLS
PRINT " +++ OC-III +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#

' R Р0 Р1  Р2 Р3 Р4  Р5 Р6 Р7  R8   R9  РА РВ РС РД
'   V  RO  T  -  KS  M  C  RS DM/A  AL  Y  U  X  MM

' Комплект исходных данных: посадка Льва Роканиди на Фобос
M = 2250: C = 3660: MM = 1020: RO = 9380000: RS = 11000
KS = SQR(3.72 / RO) * 3394000 / RO
V = 80.1002: U = 28.099953#: X = -13178.22: Y = -2743.2

' В ОС-3 для экономии памяти начальное H просто обнулялось.
H = SQR(X * X + Y * Y) - RS

DO

' Блок проверки: положительность высоты
  IF H < 0 THEN
      ' Блок стыковки
      T = H / SQR(U * U + V * V)
      PRINT " 1       -00"
  ELSE

' Рычаги управления

'   Не рекомендуется тратить за единичный манёвр больше чем по 100-200 кг
' топлива; длительность маневра с включённым двигателем не должна превышать
' 100 с; при полёте по эллиптической орбите с выключенным двигателем
' не следует оставлять корабль без присмотра больше чем на 200-300 с.
'   При работе с программами "ОС-2" и "ОС-3" очень полезно (а на первых порах
' даже необходимо), нарисовав станцию на листе миллиметровки, отмечать на нем
' координаты корабля (или космонавта) после каждого совершённого маневра.

    DO
      PRINT "Запас топлива:"; MM; "кг",
      PRINT "Реактивное ускорение:"; A; "м/с^2"
      PRINT "Вертикальная скорость корабля:"; U; "м/с"
      PRINT "Горизонтальная скорость относительно центра станции:"; V; "м/с"

      PRINT "Вертикальная координата корабля относительно центра станции:"; Y; "м"
      PRINT "Горизонтальная координата относительно центра станции:"; X; "м"

      PRINT "Расстояние до поверхности станции:"; H; "м"
      INPUT "угол, градусы; расход топлива, кг; время, с"; AL, DM, T
      AL = AL * PI# / 180

      ' Блок проверки: перерасход топлива
    LOOP WHILE DM > MM

    ' Блок вычисления: реактивное ускорение
    MM = MM - DM
    A = DM * C / ((M + MM) * T)
  END IF

' Рассчётный блок, полностью совместимый с "ОС-3".
' Определяет значения текущих переменных.

  T1 = V + T * (A * SIN(AL) - 2 * U * KS)
  X = X + T * (U * X / RO + (V + T1) / 2)
  V = T1

  T1 = U + T * (2 * V * KS + A * COS(AL) + 3 * KS * KS * Y)
  Y = Y + (U + T1) * T / 2
  U = T1

  H = F00(SQR(X * X + Y * Y) - RS)

LOOP 'Главный игровой цикл

FUNCTION F00 (X)
  ' Универсальный обнулитель
  IF ABS(X) < 1 THEN F00 = 0 ELSE F00 = X
END FUNCTION

Обычно при старте с орбиты или взлёте с небесного тела (Луны, Марса,..) используют «ОС-I». А для причаливания к спутнику на расстоянии 10-20 км от него переходят на «ОС-II» или «ОС-III». В зависимости от формы спутника.

Буферная программа из ТМ-1985 №11 помогает перейти с «ОС-I» в "режим ближней навигации", пересчитав переменные.

' Буферная программа
' Публикация: ТМ-1985 N11
' Версия для ПМК (c) Михаил Пухов

' OC-BUF v1o
' Публикация: LJR, 30 мая 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

CLS
PRINT " +++ Буферная программа +++"
PRINT

' Начальные данные из путешествия Льва Роканиди на Фобос в ТМ-1986 N7
VO = -2137.3807#: RO = 9380000: RR = 9377256.800000001#
V = 79.475129#: X = -13182.076#

' Формулы пересчёта
KS = -VO / RO
V = (V - VO) - KS * RR
X = X * RR / RO
Y = RR - RO

PRINT " 2 - OS-II"
PRINT " 3 - OS-III"
INPUT "К какой программе переходить"; A
IF A = 3 THEN
  INPUT "Радиус станции"; RS
  PRINT V; "П0 "; KS; "П4 "; RS; "П7 "; Y; "ПА "; X; "ПС"
END IF
IF A = 2 THEN
  INPUT "Высота станции"; A
  RS = -A / 2
  INPUT "Радиус основания"; A
  RB = -A
  PRINT V; "П0 "; RB; "П1 "; KS; "П4 "; RS; "П7 "; Y; "ПА "; X; "ПС"
END IF

Comments

Гляди в оба -- впереди Фобос!

Sun, 28 May 2006 11:08:32 GMT

   Игровая программа «ОС-I» относится к классу сложных в обращении. Чтобы совершать перелёты на орбитальные станции или между ними, необходимо пройти "школу первоначального обучения пилотажу" на «Лунолёте-I» и «Лунолёте-II». Опыт, приобретённый на «Лунолёте-III», также бесценен.

   В чём отличие от третьего Лунолёта? «ОС-I» выводит на экран расстояние в прямоугольной системе координат с центром в орбитальной станции. Т.к. орбитальная станция постоянно вращается, ваши перемещения в её окресностях выглядят весьма замысловато. Пока никто не "присобачил" к «ОС-I» графический вывод, ЦУП ТМ рекомендует летать с миллиметровкой. Отмечая на листочке положение вашего космического корабля после каждого манёвра.

   С помощью «ОС-I» можно повторить первую часть отважного путешествия Льва Роканиди с марсианской станции «Джонотан Свифт» на Фобос из ТМ-1986 №7. Это задание было дано в ТМ-1985 №11, а сама программа впервые опубликована в ТМ-1985 №10.

' OC-1
' Публикация: ТМ-1985 N9, ТМ-1986 N6
' Версия для ПМК (c) Михаил Пухов и Сергей Волков

' OC-I v1o
' Публикация: LJR, 28 мая 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

DECLARE FUNCTION F00! (X!)

CLS
PRINT " +++ OC-I +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#
U = 0: M = 2250: C = 3660: MM = 3500: R = 3394000: RR = R + 300000
RO = 9380000: VO = -SQR(3.72 / RO) * R
V = SQR(3.72 / RR) * R + VO
X = -15000000
 
H = RR - R

DO

' Блок проверки: положительность высоты
  IF H < 0 THEN
    DO
      ' Посадочный блок
      T = -(RR - R) / U
      PRINT " 1       -00"
      GOSUB P
    LOOP WHILE ABS(H) < .001
    H = 0
  END IF

' Рычаги управления

'   Расход топлива при манёвре не должен превышать 5% от полной массы корабля
' (для лунолётов класса "Кон-Тики" это составляет 100-200 кг, в зависимости
' от наличного запаса топлива).
'   Не рекомендуется также задавать время манёвра больше 100 с.  Последнее
' ограничение снимается лишь в свободном полёте, после выхода на орбиту;
' но и в этом случае следует анализировать ситуацию хотя бы каждые 1000 с.

 DO
   PRINT "Расстояние до центра планеты:"; RR; "м"
   PRINT "Горизонтальная скорость относительно поверхности планеты:"; V - VO; "м/с"
   PRINT "Запас топлива:"; MM; "кг",
   PRINT "Реактивное ускорение:"; A; "м/с^2"
   PRINT "Высота полёта:"; H; "м",
   PRINT "Вертикальная скорость:"; U; "м/с"
   PRINT "Горизонтальная скорость относительно станции:"; V; "м/с"
   PRINT "Горизонтальная координата относительно станции:"; X; "м"
   PRINT "Расстояние по вертикали до орбиты космической станции:"; RR - RO; "м"
   INPUT "угол, градусы; расход топлива, кг; время, с"; AL, DM, T
   AL = AL * PI# / 180

   ' Блок проверки: перерасход топлива
 LOOP WHILE DM > MM

' Блок вычисления: реактивное ускорение
 MM = MM - DM
 A = DM * C / ((M + MM) * T)
 GOSUB P

LOOP 'Главный игровой цикл

P:
' "Припев"
' Определяет значения текущих переменных.
' Рассчётный блок, полностью совместимый с "ОС-1".

  T1 = F00(((VO - V) * U / RR + A * SIN(AL)) * T + V)
  X = X + (((T1 + V) / 2 - VO) * RO / RR + VO) * T
  V = T1

  T1 = F00(U + ((VO - V) * (VO - V) / RR + A * COS(AL) - VO * VO * RO / (RR * RR)) * T)
  RR = RR + (U + T1) * T / 2
  U = T1

  H = RR - R
RETURN

FUNCTION F00 (X)
  ' Универсальный обнулитель
  IF ABS(X) < 1 THEN F00 = 0 ELSE F00 = X
END FUNCTION

Comments

Самое увлекательное приключение XXI века: «Вершина».

Thu, 25 May 2006 15:03:52 GMT

   Самой популярной игровой программой после «Лунолёта-III» была «Вершина». Первый Лунолёт помогал отработать посадку и зависание над поверхностью планеты. Очень важные космические манёвры.

   «Лунолёт-III» уже кружил над плоской планетой, а третий позволял облететь круглую планету, учитывал центробежное и кориолисово ускорения. Но все эти программы «имели дело с небесными телами, гладкими, как бильярдный шар».

   «Вершина» позволяет моделировать манёвры космических аппаратов в сложных условиях высокогорья. Её описание вы найдёте в тех же ТМ-1985 №9 и ТМ-1986 №6.

' Вершина
' Публикация: ТМ-1985 N9, ТМ-1986 N6
' Версия для ПМК (c) Михаил Пухов и Сергей Волков

' Вершина v1o
' Публикация: LJR, 25 мая 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

CLS
PRINT " +++ Вершина +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#
G = 1.62: M = 2250: C = 3660: R = 1738000: RR = R
V = 0: U = 0: MM = 3500

'   Лунолёт в начальной позиции находится на высоте -6,2 м, то есть как бы
' в стартовом колодце.  Причина в том, что подошва горы, перелёт на которую
' надлежит выполнить, тянется довольно далеко.  Если стартового импульса не
' хватает, чтобы вывести корабль из колодца, программа действительно
' зацикливается.  Если же импульс достаточен, никакого зацикливания не
' происходит и можно смело лететь дальше.

HG = 10000: H2 = 10000: X = -400000

' Круговая скорость в программе "Вершина" не зависит от высоты.
VK = SQR(R * G)

'   При первом останове и в случае блокировки программы из-за перерасхода
' топлива "Вершина" отображала на индикаторе не высоту полёта, а расстояние
' от центра планеты.
H = RR - R

DO
' Блок проверки: положительность высоты
  IF H < 0 THEN
    DO
     ' Полноценный посадочный блок.
     T = ABS(T) / 2 * SGN(H)
     GOSUB P
    LOOP WHILE ABS(H) < .001
    H = 0
  END IF

' Рычаги управления

'   Расход топлива при манёвре не должен превышать 5% от полной массы корабля
' (для лунолётов класса "Кон-Тики" это составляет 100-200 кг, в зависимости
' от наличного запаса топлива).
'   Не рекомендуется также задавать время манёвра больше 100 с.  Последнее
' ограничение снимается лишь в свободном полёте, после выхода на орбиту;
' но и в этом случае следует анализировать ситуацию хотя бы каждые 1000 с.

 DO
   PRINT "Расстояние до центра:"; RR; "м", "Круговая скорость:"; VK; "м/с"
   PRINT "Вертикальная скорость:"; U; "м/с",
   PRINT "Горизонтальная скорость:"; V; "м/с"
   PRINT "Запас топлива:"; MM; "кг", "Реактивное ускорение:"; A; "м/с^2"
   PRINT "Высота:"; H; "м",
   PRINT "Горизонтальная координата:"; X; "м"
   INPUT "угол, градусы; расход топлива, кг; время, с"; AL, DM, T
   AL = AL * PI# / 180

   ' Блок проверки: перерасход топлива
 LOOP WHILE DM > MM

' Блок вычисления: реактивное ускорение
 MM = MM - DM
 A = DM * C / ((M + MM) * T)
 GOSUB P

LOOP 'Главный игровой цикл

P:
' "Припев"
' Определяет значения текущих переменных.

'   В программе "Вершина" гравитационное, кориолисово и центробежное
' ускорения не зависят от высоты, зато имеется рельеф.
' Рассчётный блок, полностью совместимый с "Лунолётом-3".

  ' тяга, кориолисова сила
  T1 = V + (A * SIN(AL) - U * V / R) * T
  X = X + (V + T1) * T / 2
  V = T1

  ' тяга, тяготение, центробежная сила
  T1 = U + (A * COS(AL) - G + V * V / R) * T
  RR = RR + (U + T1) * T / 2
  U = T1

  '   Отклонение радиуса планеты от нулевой отметки в окресностях начала
  ' координат задаётся колоколообразной кривой, носящей красивое
  ' математическое название "локон Аньези".
  H = RR - HG / ((X / H2) ^ 2 + 1) - R
RETURN

Comments

Классические игры: «Маскон»,

Thu, 25 May 2006 08:02:10 GMT

Фантастический сюжет и описание игры по программе «Маскон» — всё тот же ТМ-1985 №9.

' Маскон
' Публикация: ТМ-1985 N9
' Версия для ПМК (c) Михаил Пухов и Сергей Волков

' Маскон v1o
' Публикация: LJR, 25 мая 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

CLS
PRINT " +++ Маскон +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#
G = 1.62: M = 2250: C = 3660: R = 1738000: RR = R
V = 0: U = 0: MM = 3500

' Данные "Маскона"
D = 50000: Q = .02: X = -400000

VK = SQR(R * G)
H = RR - R

DO
' Блок проверки: положительность высоты
  IF H < 0 THEN
    DO
     ' Полноценный посадочный блок из "Вершины":
     '   в "Масконе" использовался упрощённый посадочный блок T=-H/U
     T = ABS(T) / 2 * SGN(H)
     GOSUB P
    LOOP WHILE ABS(H) < .001
    H = 0
  END IF

' Рычаги управления

'   Расход топлива при манёвре не должен превышать 5% от полной массы корабля
' (для лунолётов класса "Кон-Тики" это составляет 100-200 кг, в зависимости
' от наличного запаса топлива).
'   Не рекомендуется также задавать время манёвра больше 100 с.  Последнее
' ограничение снимается лишь в свободном полёте, после выхода на орбиту;
' но и в этом случае следует анализировать ситуацию хотя бы каждые 1000 с.

 DO
   PRINT "Расстояние до центра:"; RR; "м",
   PRINT "Первая космическая:"; VK; "м/с"
   PRINT "Вертикальная скорость:"; U; "м/с",
   PRINT "Горизонтальная скорость:"; V; "м/с"
   PRINT "Запас топлива:"; MM; "кг", "Реактивное ускорение:"; A; "м/с^2"
   PRINT "Высота:"; H; "м",
   PRINT "Расстояние до маскона:"; X; "м"
   INPUT "угол, градусы; расход топлива, кг; время, с"; AL, DM, T
   AL = AL * PI# / 180

   ' Блок проверки: перерасход топлива
 LOOP WHILE DM > MM

' Блок вычисления: реактивное ускорение
 MM = MM - DM
 A = DM * C / ((M + MM) * T)
 GOSUB P

LOOP 'Главный игровой цикл

P:
' "Припев"
'   Определяет значения текущих переменных.
'   В программе "Маскон" гравитационное, кориолисово и центробежное
' ускорения не зависят от высоты.

  ' тяга, кориолисова сила
  T1 = V + (A * SIN(AL) - U * V / R - COS(ATN(X / D)) ^ 3 * Q * X / D) * T
  X = X + (V + T1) * T / 2
  V = T1

  ' тяга, тяготение, центробежная сила
  T1 = U + (A * COS(AL) - G + V * V / R - COS(ATN(X / D)) ^ 3 * Q) * T
  RR = RR + (U + T1) * T / 2
  U = T1

  H = RR - R
RETURN

Comments

«Путь к Земле»: игры для настоящих мужчин.

Tue, 23 May 2006 22:08:55 GMT

   Калькуляторы могут стать легендой. Но пока жив наш народ, игры, написанные нашими предками на заре компьютеризации, не утеряны. Инструкция и фантастический рассказ к первому из «Лунолётов» были опубликованы в ТМ-1985 №6, а две дополнительные игры в ТМ-1985 №7.

   Ниже опубликован «Лунолёт-I», переписанный мною с языка ПМК под более распространённый QBasic. Вы без труда сможете изменять под себя начальные данные, научиться сажать космический корабль и зависать в воздухе. Игру, конечно же, можно переписывать на более современные языки, под разные операционки. Обогатить графикой, звуком. Всё в наших руках.

   А пока... раскрывайте (или скачайте в формате DjVu) старинный журнал. Запускайте более молодой QBasic. И наслаждайтесь легендарными «Лунолётами». Это вам не пятые "Герои", привлекательные лишь из-за перенапряжения вашего же дорогостоящего оборудования и кошелька.

   Здесь на древнем экранчике только числа. "Путь к Земле" — это дело настоящих мужчин.

' Лунолёт-1
' Публикация: ТМ-1985 N6,7
' Версия для ПМК (c) Михаил Пухов и Сергей Алексеев

' Лунолёт-I v1
' Публикация: LJR, 24 мая 2006
' Перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

' На базе "Лунолёта-1" существует три электронно-фантастические игры:
'  - Посадка на Луну (ТМ-1985 N6)
'  - Посадка с постоянной горизонтальной скоростью (ТМ-1985 N7)
'  - Угадай тяготение (ТМ-1985 N7)

CLS
PRINT " +++ Лунолёт-I +++"
PRINT

' Блок ввода исходных данных
FL = 0 ' Флаг, взлетаем или садимся.
G = 1.62: M = 2250: C = 3660: AM = 9.81 * 3
H = 0: U = 0: V = 1: MM = 400: X = 3600

DO
' Блок проверки: высота
  IF H < -.001 THEN
    T = 2 * H / (SQR(U * U + 2 * H * (G - A * AL)) - U)
    GOTO X
  END IF

' Оценки качества посадки взяты из "Лунолёта-Д"
  IF ABS(H) <= .001 THEN
    H = 0
    IF FL THEN
      FL = 0
      SELECT CASE ABS(U)
        CASE 0 TO 2.5
          PRINT " *** Отлично!  Мягкая посадка. ***"
        CASE 2.5 TO 5
          PRINT " *** Хорошо!  Мягкая посадка. ***"
        CASE 5 TO 7.5
          PRINT " *** Посадка. ***"
        ' Затем наступает очередь серьёзных аварийных ситуаций
        CASE 7.5 TO 10
          PRINT " *** Кораблю требуется ремонт. ***"
        CASE 10 TO 12.5
          PRINT " *** У корабля вышел из строя двигатель. ***"
        CASE IS > 12.5
          PRINT " *** Смертельный исход. ***"
          END
      END SELECT
    END IF
    GOTO S
  END IF
  FL = 1

' Блок проверки: анализатор перегрузок из "Атмосферы-4"
  SELECT CASE ABS(A)
    CASE 25 TO 50
      ' Предупреждение
      PRINT " *** ЕГГ0Г: Перегрузки! ***"
    CASE 50 TO 75
      ' Серьёзная опасность, ремонтироваться на ходу
      PRINT " *** 3ГГ0Г: Не дрова везёшь! ***"
    CASE 75 TO 100
      ' Катастрофическая ситуация, операция завершилась трагедией
      PRINT " *** Позвоните 03! ***"
    CASE IS > 100
      ' Грубый анализатор
      PRINT " *** От вас осталось мокрое место. ***"
      END
  END SELECT

' Блок проверки: "биологическая" из "Лунолёта-1"
  IF ABS(A) >= AM THEN
    DM = 0: T = ABS(A) - AM
    PRINT " *** У вас потемнело в глазах! *** "
    GOTO A
  END IF

' Блок проверки: наличие топлива
' "С точностью до грамма, фирма гарантирует." (c) ТМ-1985 N10
  IF MM >= .001 THEN GOTO S
  MM = 0
  PRINT " *** Топливо закончилось! *** "
  '   Пилотам остаётся лишь созерцать аварийный сигнал и ждать, пока они
  ' "куда-нибудь свалятся" (по меткому выражению Лунного Коршуна).
  DM = 0: T = C

A:
' Аварийный сигнал
  PRINT " ** Г **"
  A$ = INPUT$(1)
  GOTO G

S:
' Блок ввода-вывода

'   На первом лунолёте стоял ограничитель времени манёвра: 0,7 секунд.
'   На "одноруком бандите" (игра "Угадай тяготение") такого ограничителя
' не стояло.
' Ограничение математической модели:
'  * расход топлива за манёвр не должен превышать 5% полной массы корабля,
'    для кораблей класса "Кон-Тики" это составляет около 100 кг.

  PRINT "Ресурс:"; X, "Топливо"; MM; "кг"
  PRINT "Высота: "; H; "м", "Вертикальная скорость"; U; "м/с"
  INPUT "расход, кг; время, с"; DM, T
  AL = SGN(T) * SGN(DM): T = ABS(T): DM = ABS(DM)

G:
' Блок вычисления: вспомогательные переменные
  Q = DM / T: A = Q * C / (M + MM)

X:
' Блок вычисления: основные переменные
  X = X - V * T
  TP = U + (A * AL - G) * T
  H = H + (U + TP) * T / 2
  U = TP
  MM = MM - Q * T

' Блок проверки: перерасход топлива
  IF MM < 0 THEN T = MM / Q: GOTO X
LOOP

Увлекателен и второй «Лунолёт». На нём можно отрабатывать не только вертикальные. Но и более сложные манёвры, задавая тягу под углом. Впрочем, прекрасное описание игры есть в ТМ-1985 №8. И там же начало «Пути к Земле», который теперь можно начать и в XXI веке.

Воспользовавшись «Лунолётом-I», угадайте тяготение и попейте кофе с Лунным Коршуном. А потом повторите на обновлённом «Лунолёте-II» первые полёты наших отцов, опубликованные в ТМ-1986 №5.

' Лунолёт-2
' Публикация: ТМ-1985 N8
' Блок-схема: ТМ-1986 N5
' Версия для ПМК (c) Михаил Пухов и Сергей Алексеев

' Лунолёт-II v1
' Публикация: LJR, 24 мая 2006
' Перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

CLS
PRINT " +++ Лунолёт-II +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#
FL = 0 ' Флаг, взлетаем или садимся.
G = 1.62: M = 2250: C = 3660: AM = 29.43
H = 0: U = 0: V = 0: MM = 1000: X = 250000

DO
' Блок проверки: высота
  IF H < -.001 THEN
    T = 2 * H / (SQR(U * U + 2 * H * (G - A * COS(AL))) - U)
    GOTO X
  END IF

' Оценки качества посадки взяты из "Лунолёта-Д"
  IF ABS(H) <= .001 THEN
    H = 0
    IF FL THEN
      FL = 0
      SELECT CASE SQR(U * U + V * V)
        CASE 0 TO 2.5
          PRINT " *** Отлично!  Мягкая посадка. ***"
        CASE 2.5 TO 5
          PRINT " *** Хорошо!  Мягкая посадка. ***"
        CASE 5 TO 7.5
          PRINT " *** Жёсткая посадка. ***"
        ' Затем наступает очередь серьёзных аварийных ситуаций
        CASE 7.5 TO 10
          PRINT " *** Кораблю требуется ремонт. ***"
        CASE 10 TO 12.5
          PRINT " *** У корабля вышел из строя двигатель. ***"
        CASE IS > 12.5
          PRINT " *** Смертельный исход. ***"
          END
      END SELECT
    END IF
    GOTO S
  END IF
  FL = 1

' Блок проверки: анализатор перегрузок из "Атмосферы-4"
  SELECT CASE ABS(A)
    CASE 25 TO 50
      ' Предупреждение
      PRINT " *** ЕГГ0Г: Перегрузки! ***"
    CASE 50 TO 75
      ' Серьёзная опасность, ремонтироваться на ходу
      PRINT " *** 3ГГ0Г: Не дрова везёшь! ***"
    CASE 75 TO 100
      ' Катастрофическая ситуация, операция завершилась трагедией
      PRINT " *** Позвоните 03! ***"
    CASE IS > 100
      ' Грубый анализатор
      PRINT " *** От вас осталось мокрое место. ***"
      END
  END SELECT

' Блок проверки: "биологическая" из "Лунолёта-2"
  IF ABS(A) >= AM THEN
    DM = 0: T = ABS(A) - AM
    PRINT " *** У вас потемнело в глазах! *** "
    GOTO A
  END IF

' Блок проверки: наличие топлива
' "С точностью до грамма, фирма гарантирует." (c) ТМ-1985 N10
  IF MM >= .001 THEN GOTO S
  MM = 0
  PRINT " *** Топливо закончилось! *** "
  '   Пилотам остаётся лишь созерцать аварийный сигнал и ждать, пока они
  ' "куда-нибудь свалятся" (по меткому выражению Лунного Коршуна).
  DM = 0: T = C

A:
' Аварийный сигнал
  PRINT " ** Г **"
  A$ = INPUT$(1)
  GOTO G

S:
' Блок ввода-вывода

' Ограничение математической модели:
'  * расход топлива за манёвр не должен превышать 5% полной массы корабля,
'    для кораблей класса "Кон-Тики" это составляет около 100 кг.
 
  PRINT "Расстояние до цели:"; X, "Топливо"; MM
  PRINT "Вертикальная скорость"; U, "Горизонтальная скорость"; V
  PRINT "Высота: "; H
  INPUT "расход, кг; время, с; угол, градусы"; DM, T, AL
  AL = AL * PI# / 180

G:
' Блок вычисления: вспомогательные переменные
  Q = DM / T: A = Q * C / (M + MM)

X:
' Блок вычисления: основные переменные
  TP = V + A * T * SIN(AL)
  X = X - (V + TP) * T / 2
  V = TP
  TP = U + (A * COS(AL) - G) * T
  H = H + (U + TP) * T / 2
  U = TP
  MM = MM - Q * T

' Блок проверки: перерасход топлива
  IF MM < 0 THEN T = MM / Q: GOTO X
LOOP

Если вы научились управлять космическим кораблём, вам по плечам сделать свой первый виток вокруг Луны на знаменитом «Лунолёте-III». Как это получилось у храброго экипажа «Кон-Тики», читайте в ТМ-1985 №9. Ответы к заданиям этого номера были опубликованы в ТМ-1986 №6.

Многие участники знаменитого первого в истории космонавтики массового перелёта по маршруту Луна — Земля на электронных лунолётах системы «Кон-Тики» отметили в качестве лучшей игровой программы именно «Лунолёт-III».

' Лунолёт-3
' Публикация: ТМ-1985 N9, ТМ-1986 N6
' Версия для ПМК (c) Михаил Пухов и Сергей Волков

' Лунолёт-III v1o
' Публикация: LJR, 24 мая 2006
' Точный перевод на QBasic (c) Илья Васильев
' Распространяется под GPL v2 или старше

CLS
PRINT " +++ Лунолёт-III +++"
PRINT

' Блок ввода исходных данных
PI# = 3.1415926#
G = 1.62: M = 2250: C = 3660: R = 1738000: RR = R
V = 0: U = 0: F = 0: MM = 3500

K = G * R * R ' Гравитационная постоянная планеты
H = RR - R

DO
' Блок проверки: положительность высоты
  IF H < 0 THEN
    DO
     ' Полноценный посадочный блок из "Вершины":
     '   в "Лунолёте-3" использовался упрощённый посадочный блок T=-H/U
     T = ABS(T) / 2 * SGN(H)
     GOSUB P
    LOOP WHILE H <> 0
  END IF

' Рычаги управления

'   Расход топлива при манёвре не должен превышать 5% от полной массы корабля
' (для лунолётов класса "Кон-Тики" это составляет 100-200 кг, в зависимости
' от наличного запаса топлива).
'   Не рекомендуется также задавать время манёвра больше 100 с.  Последнее
' ограничение снимается лишь в свободном полёте, после выхода на орбиту;
' но и в этом случае следует анализировать ситуацию хотя бы каждые 1000 с.

 DO
   PRINT "Расстояние до центра:"; RR; "м",
   PRINT "Угловая координата:"; CSNG(F * 180 / PI#)
   PRINT "Вертикальная скорость:"; U; "м/с",
   PRINT "Горизонтальная скорость:"; V; "м/с", "Запас топлива:"; MM; "кг"
   PRINT "Высота:"; H; "м", "Круговая скорость:"; VK; "м/с"
   INPUT "угол, градусы; расход топлива, кг; время, с"; AL, DM, T
   AL = AL * PI# / 180

   ' Блок проверки: перерасход топлива
 LOOP WHILE DM > MM

' Блок вычисления: реактивное ускорение
 MM = MM - DM
 A = DM * C / ((M + MM) * T)
 GOSUB P

LOOP 'Главный игровой цикл

P:
' "Припев"
' Определяет значения текущих переменных.
' Рассчётный блок, полностью совместимый с "Лунолётом-3".

  ' тяга, кориолисова сила
  T1 = V + (A * SIN(AL) - U * V / RR) * T
  F = F + (V + T1) * T / (2 * RR)
  V = T1

  IF COS(F) >= 0 THEN
    ' Корабль находится над видимой стороной луны
    PRINT " ***  E       -0  ***"
  ELSE
    ' Корабль находится над обратной стороной луны
    PRINT " ***  E        0- ***"
  END IF

  ' тяга, тяготение, центробежная сила
  T1 = U + (A * COS(AL) - K / (RR * RR) + V * V / RR) * T
  RR = RR + (U + T1) * T / 2
  U = T1

  H = RR - R
  VK = SQR(K / RR)
RETURN

Нам было сложнее: на экране видно только одно число. Зелёным по чёрному. Никаких поясняющих фраз, кроме скупых видеосообщений, казавшихся нам роскошью. Да и каждого результата приходилось ждать от ПМК долго, многие секунды.

Мягкой посадки!

Comments

Отечественные ПМК: продолжение.

Tue, 23 May 2006 14:30:39 GMT

Обзоры:

Эмуляторы:

Ещё ссылки:

Comments

Путь к Земле («Кон-Тики»).

Sat, 20 May 2006 01:02:50 GMT

   В числе наследия наших предков — замечательный цикл игровых программ "Путь к Земле". Эта полноценная "миссия" или "кампания" космических электронных игр, снабжённая запоминающейся одноимённой научно-фантастической повестью советского фантаста Михаила Пухова публиковалась в журнале "Техника-молодёжи" 85-87ых годов (далее "ТМ").

   В те времена у советских людей были только программируемые микрокалькуляторы (ПМК). Возможности у них были скромные. Как вычислительные (около 100 байт, не Мегабайт(!) памяти для программ), так и изобразительные (12-разрядный цифровой ЖК-индикатор, отображающий зелёные цифры). Но технические сложности стимулировали воображение, поэтому хэкеры-предки на этих калькуляторах делали невозможное. То, что сейчас редко кто сможет сделать на мощных зарубежных "Пентиумах-IV": сложность кодирования для ПМК заставляла внимательнее и требовательнее относиться и к рассчётным блокам, и к сюжету.

   Ниже публикуется целая серия "космических" программ той эпохи. Для современников, возможно, это будут непонятные шифры-головоломки. Но нам они помогали почувствовать космос и совершить первый массовый перелёт Луна-Земля, с помощью наших верных ПМК...

   «Лунолёт-1». Программа, с которой всё и началось в ТМ-1985 №6. Ещё на территории "Клуба любителей фантастики". В ТМ-1985 №7 предлагалась вторая игра на основе этой же программы, под названием "Угадай тяготение".

   Программы «Лунолёт-1М» и «Лунолёт-Д» аналогичны предыдущей. Первая из ТМ-1985 №10 отличается наличием наглядного видеосообщения, поэтому игра называется "Посадка на планету 3ГГ0Г". Вторая была опубликована значительно позже, в ТМ-1987 №6. Управление в ней попроще, зато игра происходит в реальном времени.

   Программа «Лунолёт-2» из ТМ-1985 №8 уже позволяла летать не только вверх-вниз, но и задавать тягу под углом к вертикали. На ней можно было совершать перелёты на большие расстояния, но Луна (или планета) всё ещё представлялась плоской. Это последняя из подготовительных программ, дальше уже идёт сюжет "Пути к Земле («Кон-Тики»)"

   «Лунолёт-3» из ТМ-1985 №9 считается первой из космических программ, т.к. позволяет преодолеть тяготение. Здесь учитывается, что Луна (или планета) это шар, и сила тяготения зависит от высоты. На «Лунолёте-3» можно облететь вокруг Луны. На её основе были созданы программы «Маскон» и «Вершина», учитывающие особенности лунного тяготения и рельефа.

   Первый этап перелёта, это достижение окололунной орбитальной станции "Юрий Гагарин", сокращённо «ЮГ». Для него были разработаны программы серии "Орбитальная станция". «ОС-1» (ТМ-1985 №10) позволяла совершать взлёт и стыковку с космической станцией, а также расстыковку и посадку. «ОС-2» (ТМ-1985 №11) лучше моделирует манёвры около цилиндрической орбитальной станции, а программа «ОС-3» из того же номера позволяет садиться и взлетать со сферических станций. Или небольших спутников вроде Фобоса, тяготением которых можно принебречь. В этих двух "Орбитальных станциях" за счёт отсутствия блока взлёта и посадки значительно улучен блок стыковки со спутником.

   Для того, чтобы перейти от «ОС-1» (взлёта) к «ОС-2» или «ОС-3» (стыковке) использовалась специальная буферная программа, пересчитывающая данные.

   Для перелёта из окресностей Луны во внешнюю или внутреннюю точку либрации служит программа «Лунолёт-4» (ТМ-1986 №1). В ней нет посадочного и стыковочного блоков, зато она учитывает тяготение и планеты, и спутника. Программа «Кеплер» (справа, взята из ТМ-1986 №2) позволяет продолжить путешествие. В отличии от «ОС-1», она учитывает тяготение спутника, зато не позволяет управлять космическим аппаратом. Самое большое расстояние до орбиты Земли планетолёт «Кон-Тики» летит по инерции, не тратя горючее.

   Подлетев к Земле, для выхода на орбиту или посадки нужно совершать манёвры. Включать двигатели на торможение, тормозить с помощью атмосферы. Для этого служит программа «Атмосфера-1» (ТМ-1986 №3). С помощью программы «Атмосфера-2» (ТМ-1986 №4) наш лунолёт, лишённый горючего, может приземлиться.

   Программа «Многоступенчатая ракета» не была опубликована. Вместо неё в ТМ-1986 №6 были даны советы, как её "собрать" из универсального сырья, «Лунолёта-3». Зато в ТМ-1987 №2 была опубликована более совершенная программа, «МР-2». Как и третий «Лунолёт», многоступенчатые ракеты работают только в окресности безатмосферных небесных тел.

   Позже появились ещё две программы для посадки на планеты с атмосферой. Это «Атмосфера-3» и «Атмосфера-4» из ТМ-1987 №3. В них применён другой способ атмосферного торможения, а вторая из этих программ обладает забавным анализатором ускорения на основе "спецэффектов" ПМК.

   Завершает цикл совершенно фантастический космический корабль, которым управляют две версии «Гравилёта».

   Помимо основных, крупных игровых программ КЭИ опубликовал ряд мелких, вспомогательных. Одну из которых (буферную между «ОС-1» и «ОС-2») мы уже видели. К другим относятся "планетный конструктор" «ПК-1» из ТМ-1985 №7 (позволяет создавать планеты и спутники земной группы), «Место под Солнцем» из ТМ-1985 №10 (позволяет смотреть с одной планеты на другую), «Защита от нападения» из ТМ-1986 №2 (имитирует метеоритную защиту) и «Мультфильм» из ТМ-1985 №12.

   К этим программам, кроме их текста, неплохо иметь инструкцию по эксплуатации. Хотя бы назначения регистров и комплекты исходных данных, заданий для игровых и учебных полётов. Это всё можно найти в указанных журналах "Техника-молодёжи" той легендарной поры. Заодно там же можно найти россыпь вполне "земных" игр.

   К сожалению в 1986 году, в расцвете творческих сил, трагически погиб Сергей Алексеевич Волков. Начавший публиковать в "ТМ" блок-схемы этих космических программ. И Михаила Пухова тоже уже нет с нами. Всё это богатейшее отечественное игровое наследие хранится лишь в наших сердцах и рискует также погибнуть с нашим поколением и последними версиями советских калькуляторов "в железе". Которые, кстати, до сих пор работают...

Comments

Пять слов.

Mon, 13 Feb 2006 00:28:45 GMT

   Если придумать "капсулу в будущее", место в которой ограничено. И попытаться передать через неё хэкерское учение потомкам, всё и полностью. Без потерь. То я бы использовал следующие пять русских слов: «Любовь это больше, чем связь.»

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

   Но, наверное, это выводится. Выведут неизбежно.

Comments

Прозрение.

Mon, 30 Jan 2006 19:29:44 GMT

   Сегодня, на пути из Залесья Малого в Честохово, понял. Учение о пустоте (шуньята и т.д.) предназначено для женщин и пидорасов. Для настоящих мужиков (и лесбиянок) есть учение о боге, абсолюте — назовите, как угодно. Только не подеритесь. Ж-))

   Оба они, конечно, всего лишь учения. Но из них, как из ноликов и единичек. Из мужчин и женщин, соткан мир: в каждом из людей мысль касается мира. Ведь ДНК не отличается от 'Hello, world!', а 'Hello, world!' от ДНК...

   В принципе, не зря десять лет потрачено в дзадзэн...

P.S. А женские христианские монастыри, конечно же, извращение. Люди же всё равно рождаются, правду не скроешь: честный путь к пустоте приведёт мужчину к женщине (которая и есть живая пустота для его ребёнка), честный путь к богу приведёт женщину к мужчине (который и есть живое семя для её ребёнка). Некоторые вещи на Востоке мудрее, некоторые на Западе умнее. Но в целом вся наша цивилизация красивая.

Хроника

Про жизнь.

ЖЖ опять лёг.

Сайты, выведенные из строя спецслужбами...

Как в 1993 году..

Где снаряды: там или тут?

Информация о Русском Марше (за 4 ноября).

Редизайн.

Скриншот.

Русский марш и LJ.

Основной вопрос.

Прощай, Луна!

...тем, кто умеет летать!

Гляди в оба -- впереди Фобос!

Самое увлекательное приключение XXI века: «Вершина».

Классические игры: «Маскон»,

«Путь к Земле»: игры для настоящих мужчин.

Отечественные ПМК: продолжение.

Путь к Земле («Кон-Тики»).

Пять слов.

Прозрение.

Планетарный тест.