calcTms.m 420 B

1234567891011121314
  1. function Tms = calcTms(gPhi,gPsi,gTheta)
  2. %CALCTMS
  3. % TMS = CALCTMS(GPHI,GPSI,GTHETA)
  4. % This function was generated by the Symbolic Math Toolbox version 6.1.
  5. % 15-Feb-2015 16:02:09
  6. t2 = cos(gTheta);
  7. t3 = sin(gPsi);
  8. t4 = cos(gPsi);
  9. t5 = sin(gPhi);
  10. t6 = sin(gTheta);
  11. t7 = cos(gPhi);
  12. Tms = reshape([t2.*t4-t3.*t5.*t6,-t3.*t7,t4.*t6+t2.*t3.*t5,t2.*t3+t4.*t5.*t6,t4.*t7,t3.*t6-t2.*t4.*t5,-t6.*t7,t5,t2.*t7],[3, 3]);