- varidx nu(symbol("nu"), 3);
- matrix M(3, 3) = 1, 0, 0,
- 0,-1, 0,
- 0, 0, 0;
- ex e0 = lst_to_clifford(lst(1, 0, 0), nu, M);
- ex e1 = lst_to_clifford(lst(0, 1, 0), nu, M);
- ex e2 = lst_to_clifford(lst(0, 0, 1), nu, M);
+ varidx nu(symbol("nu"), 4);
+ realsymbol s("s");
+ ex M = diag_matrix(lst(1, -1, 0, s));
+ ex e0 = lst_to_clifford(lst(1, 0, 0, 0), nu, M);
+ ex e1 = lst_to_clifford(lst(0, 1, 0, 0), nu, M);
+ ex e2 = lst_to_clifford(lst(0, 0, 1, 0), nu, M);
+ ex e3 = lst_to_clifford(lst(0, 0, 0, 1), nu, M);