### Related

##### col-cos-matrix-pi-sin

A01:matrix([cos(th1),...

A12:matrix([cos(th2-%...

A23:matrix([cos(th3),...

Calculate

##### col-echelon-length-matrix

a:matrix([1,2,5],[3,4...

b:echelon(a);

x:col(b,length(a)+1);

Calculate

##### col-genmatrix-min-numer-permanent-random-row-sort-sqrt-transpose

norm(x):=sqrt(x.x);

v:[1,1,1];

a[i,j]:=random(50);

Calculate

##### col-genmatrix-transpose

n : 4;

W : genmatrix(w,n,n);

W[1];

Calculate

##### col-length-matrix-rest

a : matrix([−3, 4, 5,...

n : length(a);

t : matrix([1/a[1, 1]]);

Calculate

##### col-display-do

for n : 2 thru 6 do( ...

Calculate

##### col-matrix-transpose

e: matrix([e11, e12, ...

et: transpose(e);

eet: e . et;

Calculate

##### col-create_list-diag_matrix-genmatrix-ident-makelist-matrix-member-part-random-row-submatrix

L:makelist(k^2,k,0,9);

member(81,L);

create_list(random(10...

Calculate

##### col-cos-matrix-simp-sin-true

T0:matrix([1,0,0,100]...

R11:matrix([cos(pi/2)...

R12:matrix([cos(-T1),...

Calculate

##### col-matrix-mod-random

a: 4*random(2)-2;

Q: matrix( [ 1, ...

um: 1 + random(3);

Calculate

### col

Run Example
```(%i1)r:15;
(%o1)                                 15
(%i2)  n1:5;
(%o2)                                  5
(%i3)  n2:3;
(%o3)                                  3
(%i4) v:[1,1,1];
(%o4)                              [1, 1, 1]
(%i5) norm(x):=sqrt(x.x);
(%o5)                       norm(x) := sqrt(x . x)
(%i6) for i:1 thru n1 do  (a[i,j]:=random(r),   A:genmatrix(a,n2,n2),   c:[row(A,1).v], d:[transpose(col(A,1)).v], kill(a));
(%o6)                                done
(%i7)  c;
(%o7)                                [28]
(%i8) d;
(%o8)                                [21]
(%i9) ```
Run Example
```A:matrix([3,4,5],[2,1,0],[3,6,7]);
[ 3  4  5 ]
[         ]
(%o1)                             [ 2  1  0 ]
[         ]
[ 3  6  7 ]
(%i2) A[1];
(%o2)                              [3, 4, 5]
(%i3) row(A,1);
(%o3)                             [ 3  4  5 ]
(%i4) col(A,1);
[ 3 ]
[   ]
(%o4)                                [ 2 ]
[   ]
[ 3 ]
(%i5) A[1,1]:-1;
(%o5)                                 - 1
(%i6) A;
[ - 1  4  5 ]
[           ]
(%o6)                            [  2   1  0 ]
[           ]
[  3   6  7 ]
(%i7) A[2]:[2,2,2];
(%o7)                              [2, 2, 2]
(%i8) A;
[ - 1  4  5 ]
[           ]
(%o8)                            [  2   2  2 ]
[           ]
[  3   6  7 ]
(%i9) transpose(A);
[ - 1  2  3 ]
[           ]
(%o9)                            [  4   2  6 ]
[           ]
[  5   2  7 ]
(%i10)  At:transpose(A);
[ - 1  2  3 ]
[           ]
(%o10)                           [  4   2  6 ]
[           ]
[  5   2  7 ]
(%i11)  A.A;
[ 24  34  38 ]
[            ]
(%o11)                          [ 8   24  28 ]
[            ]
[ 30  66  76 ]
(%i12) A*A;
[ 1  16  25 ]
[           ]
(%o12)                           [ 4  4   4  ]
[           ]
[ 9  36  49 ]
(%i13) B:A;
[ - 1  4  5 ]
[           ]
(%o13)                           [  2   2  2 ]
[           ]
[  3   6  7 ]
(%i14) A[1,1]:5;
(%o14)                                 5
(%i15) B;
[ 5  4  5 ]
[         ]
(%o15)                            [ 2  2  2 ]
[         ]
[ 3  6  7 ]
(%i16) B:copymatrix(A);
[ 5  4  5 ]
[         ]
(%o16)                            [ 2  2  2 ]
[         ]
[ 3  6  7 ]
(%i17) A[1,1]:3;
(%o17)                                 3
(%i18) B;
[ 5  4  5 ]
[         ]
(%o18)                            [ 2  2  2 ]
[         ]
[ 3  6  7 ]
(%i19) ```
Run Example
```m:[[1,2],[3,4]];
(%o1)                          [[1, 2], [3, 4]]
(%i2) col(m,2);
(%o2)                             [ [3, 4] ]
(%i3) ```

Help for Col