Geum.ru

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

Дипломная работа - Авиация, Астрономия, Космонавтика

Другие дипломы по предмету Авиация, Астрономия, Космонавтика



d0m,рад}

Fi:=Ft*cos(U[J])*W_s;

Eiler(Step,Fi,di); {di,рад}

Fparam:=Ft*2*Param*T_s;

Eiler(Step,Fparam,dParam); {dParam,км}

Omega[I]:=Omega[I]+Omz*P*60/Nsut;

writeln(Udeg/360:5:2,' ',dOm*180*60/pi:9,' ',

di*180*60/pi:9,' ',dParam:9,' ',(dTime/3600):9);

writeln(f,Udeg/360:5:2,' ',dOm*180*60/pi:9,' ',

di*180*60/pi:9,' ',dParam:9,' ',(dTime/3600):9);

end;{J}

end;{I}

close(f);

filename5:=Fexpand(filename5);

{раiет коррекции орбиты}

filename6:='correc.txt';

assign(f,filename6);

rewrite(f);

writeln('h,км ','Nкор ','V м/с ','М п, кг','М жрд, кг');

writeln(f,'h,км ','Nкор ','V м/с ','M п, кг ','M жрд, кг');

GammaRad:=Gamma*Pi/180;

J:=0;

repeat

inc(J)

until htab[J]=hpolet;

repeat

dec(J);

dTime:=(Fpolet-Ftab[J])/(4.5*Cud);

htek:=htab[J];

B:=Polosa(Zsat,Rz,htek,GammaRad);

{Колличество коррекций орбиты}

Nkor:=round(Years*365/dTime+0.5);

{характеристическая скорость}

Vharact:=sqrt(mu/(Rz+hpolet))*(sqrt(2*(Rz+hpolet)/

(2*Rz+hpolet+htek))-1)+

sqrt(mu/(Rz+hpolet))*(1-sqrt(2*(Rz+htek)/

(2*Rz+hpolet+htek)));

Vharact:=Vharact*1000; {перевод в м/с}

Vharact_:=Vharact*Nkor; {суммарная скорость в м/с}

{кол-во топлива для плазменного двигателя}

Gplasm:=Gka*(1-exp(-Vharact/Pplasm));

{кол-во топлива для ЖРД}

Grock:=Gka*(1-exp(-Vharact/Prock));

writeln;

writeln(htek:5:2,' ',Nkor:2,' ',Vharact:5:2,' ',Gplasm:6:3,

' ',Grock:6:3);

writeln;

writeln(f,htek:5:2,' ',Nkor:2,' ',Vharact:5:2,' ',Gplasm:6:3,

' ',Grock:6:3);

until B<Bmin;

close(f);

filename6:=Fexpand(filename6);

writeln(' Программа закончила работу. Результат находится в');

writeln(filename1,' - возмущающие ускорения;');

writeln(filename3,' - изменение высоты полета со временем.');

writeln(filename7,' - ускорения, связанные с положением КА.');

writeln(filename8,' - долгота восх. узла для разных высот.');

writeln(filename4,' - изменения параметров орбиты.');

writeln(filename5,' - изменения параметров орбиты за сутки.');

writeln(filename6,' - сведения о коррекции орбиты.');

writeln(' Для выхода нажмите клавишу Esc...');

repeat Ch:=readkey until Ch=#27;

end.

Список литературы

  1. Балк М.Б. Элементы динамики космического полета. М.: Наука, 1965.
  2. Гуров А.Г., Корунов С.С. Методические указания по выполнению организационно-экономической части дипломных проектов студентов факультета №6 на тему Оценка стоимости научно-технической продукции.
  3. Лебедев А.А. Введение в анализ и синтез систем. М.: МАИ, 2001.
  4. Назаренко А.И., Скребушевский Б.С. Эволюция и устойчивость спутниковых систем. М.: Машиностроение, 1981.
  5. Оходимский Д.Е., Сихуралидзе Ю.Г. Основы механики космического полета. М.: Наука, 1990.
  6. Под ред. Лебедева А.А. Основы синтеза систем летательных аппаратов. М.: Изд- во МАИ, 1996.
  7. Поляков Д.Б., Круглов И.Ю. Программирование в среде Турбо Паскаль (версия 5.5). М.: Изд-во МАИ, 1992.
  8. Скребушевский Б.С. Управление полетом беспилотных КА. М.: "адимо, 2003.
  9. Ульянов В.И., Манаенкова Е.Т., Воробьева Н.О. Методические указания к организационной части дипломных проектов на основе моделей сетевого планирования. М.: Изд - во МАИ, 1991.
  10. Эльясберг П.Е. Введение в теорию полета искусственных спутников Земли. М.: Наука, 1965.