### Related

a:matrix([a_1],[a_2],...

m:matrix([0,-a_3,a_2,...

a.transpose(a);

Calculate

T:matrix([o_x,t_xy,t_...

mattrace(T), expand;

Calculate

B : matrix([cos(18),-...

Calculate

r1:[3,2,2];

r2:[2,3,2];

r3:[1,1,1];

Calculate

A:matrix([z-3.98,5.94...

determinant(A);

Calculate

r1:[3,2,2];

r2:[2,3,2];

r3:[1,1,1];

Calculate

a:matrix([s+R/L,-w,1/...

z:determinant(a);

Calculate

r1:[3,2,2];

r2:[2,3,2];

r3:[1,1,1];

Calculate

a:matrix([1,2],[3,8]);

transpose(a);

Calculate

a: matrix([1,2,1],[2,...

Calculate

Run Example
```(%i1)A:matrix([z-3.98,5.94,-3.94,0.98],[-1,z,0,0],[0,-1,z,0],[0,0,-1,z]);
[ z - 3.98  5.94  - 3.94  0.98 ]
[                              ]
[   - 1      z      0      0   ]
(%o1)                  [                              ]
[    0      - 1     z      0   ]
[                              ]
[    0       0     - 1     z   ]
(%i2) B:matrix([1],[0],[0],[0]);
[ 1 ]
[   ]
[ 0 ]
(%o2)                                [   ]
[ 0 ]
[   ]
[ 0 ]
(%i3) C:matrix([3.11726419816378e-10,2.33794819592328e-12,3.10175580877909e-10,7.75429210802766e-13]);
(%o3)  Col 1 = [ 3.11726419816378E-10 ] Col 2 = [ 2.3379481959232799E-12 ]
Col 3 = [ 3.1017558087790898E-10 ] Col 4 = [ 7.7542921080276605E-13 ]
(%i4) sol:determinant(A);
3         2
(%o4)               (z - 3.98) z  + 5.94 z  - 3.94 z + 0.98
(%i5) expand(sol);
4         3         2
(%o5)               z  - 3.98 z  + 5.94 z  - 3.94 z + 0.98
3              3         2
(%o6) matrix([z  ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
2              3         2
z  ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
z ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
(z - 3.98) z  + 5.94 z  - 3.94 z + 0.98],
2                               3         2
[(- 5.94 z  + 3.94 z - 0.98) ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
2              3         2
(z - 3.98) z  ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
(z - 3.98) z ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
(z - 3.98) ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98)],
2                        3         2
[(3.94 z  - 0.98 z) ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
(3.94 z - 0.98) ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
2                        3         2
((z - 3.98) z  + 5.94 z) ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
((z - 3.98) z + 5.94) ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98)],
2              3         2
[- 0.98 z  ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
- 0.98 z ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
3         2
- 0.98 ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98),
2                               3         2
((z - 3.98) z  + 5.94 z - 3.94) ((z - 3.98) z  + 5.94 z  - 3.94 z + 0.98)])
(%i7) ```
Run Example
```a:matrix([a11,a12],[a21,a22]);
[ a11  a12 ]
(%o1)                            [          ]
[ a21  a22 ]
(%i2) b:matrix([a13,a14],[a23,a24]);
[ a13  a14 ]
(%o2)                            [          ]
[ a23  a24 ]
(%i3) c:matrix([a31,a32],[a41,a42]);
[ a31  a32 ]
(%o3)                            [          ]
[ a41  a42 ]
(%i4) d:matrix([a33,a34],[a43,a44]);
[ a33  a34 ]
(%o4)                            [          ]
[ a43  a44 ]
(%o5) matrix([(a12 a23 + a11 a13) (a22 a24 + a14 a21)
+ (a22 a23 + a13 a21) (- a12 a24 - a11 a14),
(a12 a24 + a11 a14) (a22 a24 + a14 a21)
+ (- a12 a24 - a11 a14) (a22 a24 + a14 a21)],
[(a12 a23 + a11 a13) (a22 a23 + a13 a21)
+ (a12 a23 + a11 a13) (- a22 a23 - a13 a21),
(a12 a23 + a11 a13) (a22 a24 + a14 a21)
+ (- a22 a23 - a13 a21) (a12 a24 + a11 a14)])
(%i6) ```
Run Example
```kill(all);
(%o0)                                done
(%i1) depend(x_1,s);
(%o1)                           depend(x_1, s)
(%i2) depend(x_2,s);
(%o2)                           depend(x_2, s)
(%i3) M: matrix([m_1, 0],[0, m_2]);
[ m_1   0  ]
(%o3)                            [          ]
[  0   m_2 ]
(%i4) C: matrix([c_1+c_2, -c_2],[-c_2, c_2]);
[ c_2 + c_1  - c_2 ]
(%o4)                        [                  ]
[   - c_2     c_2  ]
(%i5) K: matrix([k_1+k_2, -k_2],[-k_2, k_2]);
[ k_2 + k_1  - k_2 ]
(%o5)                        [                  ]
[   - k_2     k_2  ]
(%i6) F: matrix([F_1(s)],[F_2(s)]);
[ F_1(s) ]
(%o6)                             [        ]
[ F_2(s) ]
(%i7) X: matrix([x_1(s)],[x_2(s)]);
[ x_1(s) ]
(%o7)                             [        ]
[ x_2(s) ]
(%i8) dotdistrib: true;
(%o8)                                true
(%i9) eqn: F = M.(s^2*X) + C.(s*X) + K.X;
[ F_1(s) ]                                              2
(%o9) [        ] = matrix([- c_2 s x_2(s) - k_2 x_2(s) + m_1 s  x_1(s)
[ F_2(s) ]
+ (c_2 + c_1) s x_1(s) + (k_2 + k_1) x_1(s)],
2
[m_2 s  x_2(s) + c_2 s x_2(s) + k_2 x_2(s) - c_2 s x_1(s) - k_2 x_1(s)])
(%i10) Z: mat_unblocker(matrix([coeff(rhs(eqn),x_1(s)), coeff(rhs(eqn),x_2(s))]));
[      2                                                   ]
[ m_1 s  + (c_2 + c_1) s + k_2 + k_1     - c_2 s - k_2     ]
(%o10)   [                                                          ]
[                                          2               ]
[           - c_2 s - k_2             m_2 s  + c_2 s + k_2 ]
(%i11) H: invert(Z);
2                       2
(%o11) matrix([(m_2 s  + c_2 s + k_2)/((m_1 s  + (c_2 + c_1) s + k_2 + k_1)
2
(m_2 s  + c_2 s + k_2) + (- c_2 s - k_2) (c_2 s + k_2)),
2                                    2
(c_2 s + k_2)/((m_1 s  + (c_2 + c_1) s + k_2 + k_1) (m_2 s  + c_2 s + k_2)
+ (- c_2 s - k_2) (c_2 s + k_2))], [(c_2 s + k_2)
2                                    2
/((m_1 s  + (c_2 + c_1) s + k_2 + k_1) (m_2 s  + c_2 s + k_2)
2
+ (- c_2 s - k_2) (c_2 s + k_2)), (m_1 s  + (c_2 + c_1) s + k_2 + k_1)
2                                    2
/((m_1 s  + (c_2 + c_1) s + k_2 + k_1) (m_2 s  + c_2 s + k_2)
+ (- c_2 s - k_2) (c_2 s + k_2))])
[      2                                                   ]
[ m_2 s  + c_2 s + k_2             c_2 s + k_2             ]
(%o12)   [                                                          ]
[                            2                             ]
[     c_2 s + k_2       m_1 s  + (c_2 + c_1) s + k_2 + k_1 ]
(%i13) d: determinant(Z);
2                                    2
(%o13) (m_1 s  + (c_2 + c_1) s + k_2 + k_1) (m_2 s  + c_2 s + k_2)
2
- (- c_2 s - k_2)
(%i14) ```