Курсовая работа: Программы освоения Луны

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

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 }