c14l1.m

来自「这是本战略战术导弹制导的书中的matlab程序,比书中的 forchan程序简单」· M 代码 · 共 32 行

clear
global a gm count
global ArrayICOUNT ArrayBGAM ArrayVRX ArrayVRY ArrayTF 
format long e
XLONGMDEG=45.;
XLONGTDEG=90.;
ALTNMT=0.;
ALTNMM=0.;
TF=1000;
DEGRAD=360./(2.*pi);
a=2.0926e7;
gm=1.4077e16;
ALTT=ALTNMT*6076.;
ALTM=ALTNMM*6076.;
XLONGM=XLONGMDEG/DEGRAD;
XLONGT=XLONGTDEG/DEGRAD;
XM=(a+ALTM)*cos(XLONGM);
YM=(a+ALTM)*sin(XLONGM);
XT=(a+ALTT)*cos(XLONGT);
YT=(a+ALTT)*sin(XLONGT);
[VRXM,VRYM]=olambert(XM,YM,TF,XT,YT,XLONGM,XLONGT)
 output=[ArrayVRX', ArrayVRY', ArrayTF'];
 disp('The final iteration')
 count
 plot(count,ArrayTF)
 xlabel('No of iterations')
 ylabel(' Value ')
 title(' VRX (Ft/s), VRY (Ft/s) & TF (s)')

% data to file
 save datfil.txt output /ascii;