dcmnbgen.m

来自「惯性导航系统传递对准系统模型程序」· M 代码 · 共 19 行

function DCMnb_prof = dcmnbgen(tc_prof)
if nargin<1,error('insufficient number of input arguments'),end

for i = 1:max(size(tc_prof)),

   dcmnb = eulr2dcm([0 0 tc_prof(i)]);

   DCMnb_prof(i,1) = dcmnb(1,1);
   DCMnb_prof(i,2) = dcmnb(1,2);
   DCMnb_prof(i,3) = dcmnb(1,3);
   DCMnb_prof(i,4) = dcmnb(2,1);
   DCMnb_prof(i,5) = dcmnb(2,2);
   DCMnb_prof(i,6) = dcmnb(2,3);
   DCMnb_prof(i,7) = dcmnb(3,1);
   DCMnb_prof(i,8) = dcmnb(3,2);
   DCMnb_prof(i,9) = dcmnb(3,3);
   
end