matrix.lib
LIB "matrix.lib"; ring r=0,(A,B,C),dp; matrix m[8][6]= 0,0, 0, 0, 2C, 0, 0,0, 0, 0, -4C,A, A,-C2,0, B, -A, 0, 0,0, 1/2B,-A,B, 0, 1,0, 0, 0, 0, 0, 0,0, 0, 2A,B, 0, 0,1, 0, 0, 0, 0, 0,0, 1, 0, 0, 0; print(rm_unitrow(m)); ==> 0, 2C, 0, ==> 0, -4C,A, ==> B, -A, 0, ==> -A,B, 0, ==> 2A,B, 0