Программы освоения Луны

Страница 4

Таблица

*-лунные образования, именованные по названию близлежащего кратера или пика.

**-лунные образования, именованные по названию лабораторий, институтов, городов, космических аппаратов.

Рис. 3 распространение на луне именованных кратеров передает карта плотности именованных объектов диаметром от 2.5 до 50 км и более в пределах трапеций 10о * 10о

Метод математического моделирования был применен для изучения статистики распределения кратеров, лунок, отдельных камней и других элементов лунного рельефа. Составлен комплекс программ компьютерной обработки "морфологического каталога кратеров луны" для прогнозирования плотности распределения и оценки структуры мелких рельефных образований и относительного геологического возраста поверхности.

5. Пример одной программы

При выполнении расчётов было использовано программное приложение, разработанное на кафедре небесной механики, астрометрии и гравиметрии астрономического отделения физического факультета МГУ. Алгоритм вычисления теоретического значения результатов измерений движения Луны по орбите вокруг Земли на алгоритмическом языке Паскаль выглядит следующим образом (данные см Приложение 1): [17,18]

{ to make deal with the Lunar laser observations }

UNIT UnLunObs ;

INTERFACE

Uses

UnConTyp ; { for TVect3 for example }

Procedure TryMoonLaserObs ;

Procedure TryMoonReflCoor ( nscomp : Integer ) ;

IMPLEMENTATION

Uses

UnQLBinF , { for BinName and BinFile LaserObs of TLaserObs }

UnForPrt , { for protocol file PrtFile }

UnStCoor , { for station position in different system }

UnRefLun , { for Lunar reflector position BarCReflPos }

UnForTim , { for type TMoment }

UnParMod , { for type TParMod and ModelCor procedure }

UnVarDoi , { to try to improve some parameters }

UnPseudo , { for TypeDimM }

UnRefCor ; { for ToGetRefraCor }

{ a try to compare observations with calculations

observable value two-way time delay is in LaserObs.dobs in second }

Function ToGetLunaR ( obs : TLaserObs ; par : TParMod ) : Extended ;

Var

Eph1 : Extended ; { barycentric moment of fire }

Pos1 : TVect3 ; { station pos refer to Solar barycentre }

Eph2 : Extended ; { barycentric moment of reflection }

Pos2 : TVect3 ; { reflector position refer to Solar barycentre }

Eph3 : Extended ; { barycentric moment of receive in scale T_eph }

Pos3 : TVect3 ; { station position in receive moment }

utc3 : TMoment ; { receive moment scale UTC }

ref1 : Extended ; { the first correction for refraction in meter }

ref2 : Extended ; { the second correction for refraction in meter }

CelT : TMatr33 ; { celestial terrestrial matrix }

Begin

BarCStatPos(obs,par,obs.obst,Eph1,Pos1,CelT); { UnStCoor fire moment }

BarCReflPos(obs,par,Eph1,Pos1,Eph2,Pos2); { UnRefLun reflector }

ref1:=ToGetRefraCor(obs,Pos1,Pos2,CelT); { unit UnRefCor }

StatReceive(obs,par,Eph2,Pos2,Eph3,Pos3,CelT,utc3); { UnStCoor }

ref2:=ToGetRefraCor(obs,Pos3,Pos2,CelT); { unit UnRefCor }

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-х лет.