calcTmn.c

Go to the documentation of this file.

  t2 = cos(gPsi);
  t3 = sin(gTheta);
  t4 = cos(gTheta);
  t5 = sin(gPhi);
  t6 = sin(gPsi);
  t7 = q0*q0;
  t8 = q1*q1;
  t9 = q2*q2;
  t10 = q3*q3;
  t11 = t7+t8-t9-t10;
  t12 = q0*q2*2.0;
  t13 = q1*q3*2.0;
  t14 = t12+t13;
  t15 = cos(gPhi);
  t16 = q0*q3*2.0;
  t18 = q1*q2*2.0;
  t17 = t16-t18;
  t19 = t2*t3;
  t20 = t4*t5*t6;
  t21 = t19+t20;
  t22 = t2*t4;
  t34 = t3*t5*t6;
  t23 = t22-t34;
  t24 = t4*t6;
  t25 = t2*t3*t5;
  t26 = t24+t25;
  t27 = t16+t18;
  t28 = t3*t6;
  t35 = t2*t4*t5;
  t29 = t28-t35;
  t30 = q0*q1*2.0;
  t33 = q2*q3*2.0;
  t31 = t30-t33;
  t32 = t7-t8+t9-t10;
  t36 = t7-t8-t9+t10;
  t37 = t12-t13;
  t38 = t30+t33;
  A0[0][0] = t11*t23+t14*t21+t6*t15*t17;
  A0[0][1] = t11*t26+t14*t29-t2*t15*t17;
  A0[0][2] = -t5*t17-t3*t11*t15+t4*t14*t15;
  A0[1][0] = t23*t27-t21*t31-t6*t15*t32;
  A0[1][1] = t26*t27-t29*t31+t2*t15*t32;
  A0[1][2] = t5*t32-t3*t15*t27-t4*t15*t31;
  A0[2][0] = t21*t36-t23*t37-t6*t15*t38;
  A0[2][1] = -t26*t37+t29*t36+t2*t15*t38;
  A0[2][2] = t5*t38+t3*t15*t37+t4*t15*t36;