### Related

##### ident

I3:ident(3);

I3*4;

M:matrix[[1,0],[3,5]];

Calculate

##### ident-matrix

A:matrix([2,-1,2],[5,...

B:ident(3);

C:A-B;

Calculate

##### ident-transpose

I2: ident(2);

A: matrix[ [1,0,2],[3...

B: matrix[ [1,7,0], [...

Calculate

##### ident

I2:ident(2);

M:matrix[[1,0],[3,5]];

a:matrix[[1,3],[7,5]];

Calculate

##### ident

I3:ident(3);

I2:ident(2);

M:matrix[[1,0],[3,5]];

Calculate

##### ident

i2:ident(2);

i2*4;

m: matrix [[1,0],[3,5]];

Calculate

##### ident-invert-matrix

q:matrix([a11,a12,a13...

d:ident(4);

d[4,1]:1;

Calculate

##### ident-transpose

I2:ident(2);

M:matrix[[1,2,x],[0,x...

W:transpose(M);

Calculate

##### ident-ilt-invert-matrix

F : matrix( [ 0, 1 ],...

I : ident(2);

E : invert(s*I - F);

Calculate

##### ident-matrix-phi

Cphi: matrix([1,0,0...

Ctheta: matrix([ct,0,...

Cpsi: matrix([cs,ss...

Calculate

### ident

Run Example
```(%i1)e:matrix([sqrt(3)/3,sqrt(3)/3,sqrt(3)/3]);
[    1        1        1    ]
(%o1)                    [ -------  -------  ------- ]
[ sqrt(3)  sqrt(3)  sqrt(3) ]
(%i2) A:ident(3)-2/3*transpose(e).e;
[  7     2    2 ]
[  -   - -  - - ]
[  9     9    9 ]
[               ]
[   2   7     2 ]
(%o2)                          [ - -   -   - - ]
[   9   9     9 ]
[               ]
[   2    2   7  ]
[ - -  - -   -  ]
[   9    9   9  ]
(%i3) eigenvectors(A);
1
(%o3)    [[[-, 1], [1, 2]], [[[1, 1, 1]], [[1, 0, - 1], [0, 1, - 1]]]]
3
(%i4) A.transpose(A);
[  19     8     8  ]
[  --   - --  - -- ]
[  27     27    27 ]
[                  ]
[   8    19     8  ]
(%o4)                        [ - --   --   - -- ]
[   27   27     27 ]
[                  ]
[   8     8    19  ]
[ - --  - --   --  ]
[   27    27   27  ]
(%i5) ```
Run Example
```I2: ident(2);
[ 1  0 ]
(%o1)                              [      ]
[ 0  1 ]
(%i2) M: matrix[ [1,0] ,[3,5]];
(%o2)                        matrix
[1, 0], [3, 5]
(%i3) M.I2;
[ 1  0 ]
(%o3)                              [      ]
[ 3  5 ]
(%i4) N: matrix [[1,3],[7,5]];
(%o4)                        matrix
[1, 3], [7, 5]
(%i5) ```
Run Example
```m:matrix([1,2,3],[4,7,9]);
[ 1  2  3 ]
(%o1)                             [         ]
[ 4  7  9 ]
(%i2) m2:submatrix(m,3);
[ 1  2 ]
(%o2)                              [      ]
[ 4  7 ]
(%i3) m3:submatrix(1,m);
(%o3)                             [ 4  7  9 ]
(%i4) transpose(m);
[ 1  4 ]
[      ]
(%o4)                              [ 2  7 ]
[      ]
[ 3  9 ]
(%i5) invert(m2);
[ - 7   2  ]
(%o5)                            [          ]
[  4   - 1 ]
(%i6) determinant(m2);
(%o6)                                 - 1
(%i7) m2.invert(m2);
[ 1  0 ]
(%o7)                              [      ]
[ 0  1 ]
(%i8) ident(2);
[ 1  0 ]
(%o8)                              [      ]
[ 0  1 ]
(%i9) rank(m);
(%o9)                                  2
(%i10) eigenvalues(m2);
(%o10)              [[4 - sqrt(17), sqrt(17) + 4], [1, 1]]
(%i11) eigenvectors(m2);
(%o11) [[[4 - sqrt(17), sqrt(17) + 4], [1, 1]],
sqrt(17) - 3         sqrt(17) + 3
[[[1, - ------------]], [[1, ------------]]]]
2                    2
(%i12) m2.invert(m2)-ident(2);
[ 0  0 ]
(%o12)                             [      ]
[ 0  0 ]
(%i13) ```

Help for Ident