1Function: algiscommutative
2Section: algebras
3C-Name: algiscommutative
4Prototype: iG
5Help: algiscommutative(al): test whether the algebra al is commutative.
6Doc: \var{al} being a table algebra output by \tet{algtableinit} or a central
7 simple algebra output by \tet{alginit}, tests whether the algebra \var{al} is
8 commutative.
9 \bprog
10 ? mt = [matid(3),[0,0,0;1,0,1;0,0,0],[0,0,0;0,0,0;1,0,1]];
11 ? A = algtableinit(mt);
12 ? algiscommutative(A)
13 %3 = 0
14 ? mt = [matid(3), [0,0,0; 1,1,0; 0,0,0], [0,0,1; 0,0,0; 1,0,1]];
15 ? A = algtableinit(mt,2);
16 ? algiscommutative(A)
17 %6 = 1
18 @eprog
19