> restart; with(Clifford);

_default_Clifford_product;

Clifford:-cmulRS

> M :=linalg[matrix](2, 2, ['qi', 'qj', 'qk', 2]);

M :=
qiqj
qk2

> B := linalg[diag](1, 1, 1):

> rdet1M = M[1, 1]&q M[2, 2])- M[1, 2]&q M[2, 1];

Cliplus has been loaded. Definitions for type/climon and type/clipolynom now include &C and &C[K]. Type ?cliprod for help.

rdet1 M= qi

> rdet2M = M[2, 2]&q M[1, 1] - M[2, 1]&q M[1, 2];

rdet2 M = 3qi

>cdet1M = M[2, 2]&q M[1, 1] - M[1, 2]&q M[2, 1];

cdet1 M = qi

>cdet2M = M[1, 1]&q M[2, 2] - M[2, 1]&q M[1, 2];

cdet2 M = 3qi