ToGetLunaR:=86400*VelOfLight*(utc3.part-obs.obst.part) { two-way delay }

+1.0e-3*(ref1+ref2); { plus refraction two-way correction }

End;

Procedure ToWriteCurDif ( num : Integer ;

obs : TLaserObs ;

dif : Extended ) ;

Begin

WriteLn(num:6,obs.nsar:5,obs.nsto:6,

VelOfLight*obs.dobs:16:6,

dif:16:6,1.0e3*(dif-VelOfLight*obs.dobs):16:3);

WriteLn(PrtFile,num:6,obs.nsar:5,obs.nsto:6,

VelOfLight*obs.dobs:16:6,

dif:16:6,1.0e3*(dif-VelOfLight*obs.dobs):16:3);

End;

{ to read record by record from binary file with observations }

Procedure TryMoonLaserObs ;

Var

obs : TLaserObs ; { type from UnQLBinF }

par : TParMod ; { model differences to parameters from UnParMod }

dif : Extended ; { two way delay as calculated }

Begin

ModelCor(0,0,par); { nullo corrections from unit UnParMod }

Assign(BinFile,BinName); { all variables from UnQLBinF }

{$I-}

ReSet(BinFile);

{$I+}

If IOResult <> 0 Then Exit ; { no binary file }

NumObsCur:=0; { var in UnQLBunF count for observations in binary file }

WriteLn(PrtFile);

While NOT EOF(BinFile) Do

Begin

Read(BinFile,obs); { record LaserObs of TLaserObs from UnQLBinF }

NumObsCur:=NumObsCur+1; { the next record }

dif:=ToGetLunaR(obs,par); { simple actions }

ToWriteCurDif(NumObsCur,obs,dif);

End;

Close(BinFile);

End;

Procedure TryMoonReflCoor ( nscomp : Integer ) ;

Var

itr : Byte ; { count for variation }

nuc : Integer ;

obs : TLaserObs ;

par : TParMod ; { from unit UnParMod }

dif : Extended ;

dip : TypeDimM ;

sip : TypeDimM ; { type from UnPseudo }

Begin

ModelCor(0,0,par); { from UnParMod }

Assign(BinFile,BinName); { all variables from UnQLBinF }

{$I-}

ReSet(BinFile);

{$I+}

If IOResult <> 0 Then Exit ; { no binary file }

itr:=0; { for result without variation }

WriteLn('a try to adjust position Luna reflector ',nscomp);

WriteLn(PrtFile);

WriteLn(PrtFile,'a try to adjust position Luna reflector ',nscomp);

nuc:=0; { simple count }

Repeat

If itr > 0

Then

WriteLn('variation number',itr:3,',',nuc:6,' observations');

ReSet(BinFile);

nuc:=0; { count for selected observations in binary file }

While NOT EOF(BinFile) Do

Begin

Read(BinFile,obs); { record LaserObs of TLaserObs from UnQLBinF }

If obs.nsar = nscomp

Then

Begin

nuc:=nuc+1;

dif:=ToGetLunaR(obs,par); { simple actions in km }

DimVar[itr]^[nuc]:=dif; { for variation }

If itr = 0

Then { residual }

DimObs^[nuc]:=VelOfLight*obs.dobs-dif;

End;

End;

itr:=itr+1;

ModelCor(2,itr,par); { variation of itr coor of Lunar reflector }

Until itr > 3 ;

Close(BinFile);

ClcCorrections(nuc,dip,sip); { from unit UnVarDoi }

AfterCorPos(nscomp,dip,sip); { from unir UnRefLun correction to CorMop }

End;

END.

6. Модель Лунной Станции

Лунная исследовательская мобильная база "ЛИМБ" - "нулевой цикл" построения стационарного лунного обитаемого полигона универсального назначения:

- анализа и первичного освоения лунных энерго-материалоресур-сов;

- создания серии обсерваторий анализа Солнечно – Земных связей, астроисследований и наблюдения Земли;

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

Параметры комплекса "ЛИМБ" позволяют:

- осуществить технологические наработки по характеристикам перспективных типовых лунных технических комплексов (ресурсных, энергетических, экологических, коммуникационных);

- подготовить материальную базу обитаемых систем, используя переработку лунного грунта (резервы кислорода, азота, воды, метана, гелия, углекислого газа и пр.);

- отработать технологию добычи и доставки на Землю экологически чистого ядерного топлива Гелий – 3 (3He);

- отработать технику программного и аварийного покидания Луны экипажем на базе ракетной системы, использующей топливо лунного производства (жидкие метан и кислород).

Масштабность "ЛИМБ" позволяет ограничится 6 – 7 пусками транспортной системы "Протон", существующей системы космической связи, российской производственной базой при реализации в течение 5 – 7 лет с затратами порядка четверти затрат на станцию "Мир" или одного процента на Международную Космическую Станцию ("МКС").

Состав и последовательность наращивания комплекса:

1. Комбайн Лунного Материалообеспечения ("КЛМ"). Мобильная система на базе "Лунохода" ("Ровера" - США), дополненная системой обработки грунта и сбора газообразных продуктов (ШАР - 1) формируется двумя запусками. Система снабжена зеркальным солнечным теплоэлектрогенератором мощностью "1 МВт и активно функционирует в течение лунных дней с ресурсами более 3-х лет.

2. Накопитель Обеспечивающей Продукции ("НОП"). Мобильная система координации работы комплекса связи с Землей, дистанционного управления элементами комплекса, потенциальный центр материального и энергетического обеспечения лунной обитаемой базы. Агрегат, использующий базу "Лунохода", снабжённый системой перекачки газообразных продуктов "КЛМ" и их доведения до потребительских кондиций (сжатия, сжижения, получения льда), хранения с использованием условий лунной ночи (изделие "Шар – 2"), формируется двумя запусками "Протона". Он снабжается солнечным теплоэнергогенератором мощность "0,1 МВт для работы обслуживающих систем, комплекса управления и связи с Землёй.

3. Ракетный Сектор Транспортировки ("РСТ"). Область действия - у поверхности Луны (с дальностью до полусферы), на трассах "Луна – искусственный спутник Земли ("ИСЛ"), "Луна – Земля", Луна – искусственный спутник Земли ("ИСЗ"), "ИСЛ – ИСЗ".

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

Она обеспечивается серией запусков "Протона" типовых машинных модулей, монтируемых и заправляемых на Луне, - развитием российских программ "Луна 15 - Луна 24".

Принципиальной особенностью системы обработка поверхностного слоя лунного грунта с имплантантами"солнечного ветра" является производство массы сопутствующей продукции (около 180 т при добыче 10 кг гелия – 3), включающей пары воды газообразные водород, гелий, этан, углекислый и угарный газы, азот.

Это определяет предпосылки создания самодостаточной безрасходной лунной базы с солнечными концентратором и термоэлектрогенераторами, использующей условия лунных дня и ночи, малой гравитации и космического вакуума. [20,21]

Производимые продукты (по структуре и массе) обеспечивают автономную систему жизнеобеспечения на 6 – 8 космонавтов, ракетное топливо (жидкие этан – кислород) окололунных операций и доставки обработанной продукции на Землю или орбиту ИСЗ, подготовленную структуру, радиопривод, площадку и начальное материальное обеспечение развёртываемой обитаемой станции.