rotmrp.m

来自「大气层内航天器飞行动力学matlab仿真模型」· M 代码 · 共 4 行

% Copyright Ashish Tewari (c) 2006
function C=rotmrp(p)
S=[0 -p(3,1) p(2,1);p(3,1) 0 -p(1,1);-p(2,1) p(1,1) 0];
C=eye(3)+4*(p'*p-1)*S/(1+p'*p)^2+8*S*S/(1+p'*p)^2;