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