1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- function H_MAG = calcH_MAG(gPhi,gPsi,gTheta,magX,magY,magZ,q0,q1,q2,q3)
- %CALCH_MAG
- % H_MAG = CALCH_MAG(GPHI,GPSI,GTHETA,MAGX,MAGY,MAGZ,Q0,Q1,Q2,Q3)
- % This function was generated by the Symbolic Math Toolbox version 6.1.
- % 15-Feb-2015 16:00:09
- t2 = cos(gPhi);
- t3 = cos(gTheta);
- t4 = sin(gPhi);
- t5 = sin(gTheta);
- t6 = q0.^2;
- t7 = q1.^2;
- t8 = q2.^2;
- t9 = q3.^2;
- t10 = t6+t7-t8-t9;
- t11 = sin(gPsi);
- t12 = cos(gPsi);
- t13 = q0.*q2.*2.0;
- t14 = q1.*q3.*2.0;
- t15 = t13+t14;
- t16 = q0.*q3.*2.0;
- t18 = q1.*q2.*2.0;
- t17 = t16-t18;
- t19 = t3.*t11;
- t20 = t4.*t5.*t12;
- t21 = t19+t20;
- t22 = t16+t18;
- t23 = t5.*t11;
- t41 = t3.*t4.*t12;
- t24 = t23-t41;
- t25 = q0.*q1.*2.0;
- t31 = q2.*q3.*2.0;
- t26 = t25-t31;
- t27 = t6-t7+t8-t9;
- t28 = t5.*t12;
- t29 = t3.*t4.*t11;
- t30 = t28+t29;
- t32 = t3.*t12;
- t46 = t4.*t5.*t11;
- t33 = t32-t46;
- t35 = t4.*t17;
- t36 = t2.*t5.*t10;
- t37 = t2.*t3.*t15;
- t38 = t35+t36-t37;
- t39 = magZ.*t38;
- t40 = t10.*t21;
- t42 = t15.*t24;
- t43 = t2.*t12.*t17;
- t44 = t40+t42-t43;
- t45 = magY.*t44;
- t47 = t10.*t33;
- t48 = t15.*t30;
- t49 = t2.*t11.*t17;
- t50 = t47+t48+t49;
- t51 = magX.*t50;
- t52 = -t39+t45+t51;
- t53 = 1.0./t52;
- t54 = t4.*t27;
- t55 = t2.*t3.*t26;
- t56 = t2.*t5.*t22;
- t57 = -t54+t55+t56;
- t58 = magZ.*t57;
- t59 = t21.*t22;
- t60 = t24.*t26;
- t61 = t2.*t12.*t27;
- t62 = t59-t60+t61;
- t63 = magY.*t62;
- t64 = t26.*t30;
- t65 = t22.*t33;
- t66 = t2.*t11.*t27;
- t67 = t64-t65+t66;
- t68 = magX.*t67;
- t69 = t58-t63+t68;
- t70 = t53.*t69;
- t34 = tan(t70);
- t71 = t34.^2;
- t72 = t71+1.0;
- t73 = 1.0./t52.^2;
- H_MAG = [-t72.*(t53.*(magZ.*(t4.*t26+t2.*t3.*t27)+magY.*(t24.*t27+t2.*t12.*t26)+magX.*(t27.*t30-t2.*t11.*t26))-t69.*t73.*(magZ.*(t4.*t15+t2.*t3.*t17)+magY.*(t17.*t24+t2.*t12.*t15)+magX.*(t17.*t30-t2.*t11.*t15))),t72.*(t53.*(magZ.*(t2.*t3.*t22-t2.*t5.*t26)+magY.*(t22.*t24+t21.*t26)+magX.*(t22.*t30+t26.*t33))+t69.*t73.*(magZ.*(t2.*t3.*t10+t2.*t5.*t15)+magY.*(t10.*t24-t15.*t21)+magX.*(t10.*t30-t15.*t33))),t72.*(t53.*(-magZ.*(t4.*t22+t2.*t5.*t27)+magY.*(t21.*t27-t2.*t12.*t22)+magX.*(t27.*t33+t2.*t11.*t22))-t69.*t73.*(magZ.*(t4.*t10-t2.*t5.*t17)+magY.*(t17.*t21+t2.*t10.*t12)+magX.*(t17.*t33-t2.*t10.*t11))),0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0];
|