1MATRIX M(3,3)$ 2M(1,1) := 18*COS(Q3)*COS(Q2)*M30*P**2 - 9*SIN(Q3)**2*P**2*M30 3 - SIN(Q3)**2*J30Y + SIN(Q3)**2*J30Z + P**2*M10 4 + 18*P**2*M30 + J10Y + J30Y; 5M(2,1) := 6M(1,2) := 9*COS(Q3)*COS(Q2)*M30*P**2 - SIN(Q3)**2*J30Y + 7 SIN(Q3)**2*J30Z - 9*SIN(Q3)**2*M30*P**2 + J30Y + 8 9*M30*P**2; 9M(3,1) := 10M(1,3) := -9*SIN(Q3)*SIN(Q2)*M30*P**2; 11M(2,2) := -SIN(Q3)**2*J30Y + SIN(Q3)**2*J30Z - 9*SIN(Q3)**2 12 *M30*P**2 + J30Y + 9*M30*P**2; 13M(3,2) := 14M(2,3) := 0; 15M(3,3) := 9*M30*P**2 + J30X; 16 17GENTRANLANG!* := 'FORTRAN$ 18FORTLINELEN!* := 72$ 19 20GENTRAN LITERAL "C", CR!*, 21 "C", TAB!*, "*** COMPUTE VALUES FOR MATRIX M ***", CR!*, 22 "C", CR!*$ 23 24FOR j:=1:3 DO 25 FOR k:=j:3 DO 26 GENTRAN M(j,k) ::=: M(j,k)$ 27 28GENTRAN LITERAL "C", CR!*, 29 "C", TAB!*, "*** COMPUTE VALUES FOR INVERSE MATRIX ***", 30 CR!*, 31 "C", CR!*$ 32 33SHARE var$ 34FOR j:=1:3 DO 35 FOR k:=j:3 DO 36 IF M(j,k) NEQ 0 THEN 37 << 38 var := TEMPVAR NIL; 39 MARKVAR var; 40 M(j,k) := var; 41 M(k,j) := var; 42 GENTRAN 43 EVAL(var) := M(EVAL(j),EVAL(k)) 44 >>$ 45 46COMMENT -- Contents of Matrix M: --$ 47M := M; 48 49MATRIX MXINV(3,3)$ 50MXINV := M**(-1)$ 51 52FOR j:=1:3 DO 53 FOR k:=j:3 DO 54 GENTRAN MXINV(j,k) ::=: MXINV(j,k)$ 55 56GENTRAN 57 for j:=1:3 do 58 for k:=j+1:3 do 59 << 60 m(k,j) := m(j,k); 61 mxinv(k,j) := mxinv(j,k) 62 >>$ 63 64END$ 65