"Source: Text/Module/Multilinear.text";
"Line: 3180";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Module/Multilinear.text, line: 3180
// Example: H63E43 ()
print "Example: H63E43";
ei := GetEchoInput();
SetEchoInput(true);
t := Tensor(Rationals(), [3, 3, 3], [i : i in [1..27]]);
t;
SystemOfForms(t);
Radical(t);
Image(t);
A := HeisenbergAlgebra(t);
A;
Center(A);
SystemOfForms(Tensor(A))[7..9];
NilCat := TensorCategory([1, 1, 1], {{2,1},{0}});
NilCat;
ChangeTensorCategory(~t, NilCat);
A := HeisenbergAlgebra(t);
A;
Center(A);
A^2;
SystemOfForms(Tensor(A))[4..6];
AlgCat := TensorCategory([1, 1, 1], {{2,1,0}});
AlgCat;
ChangeTensorCategory(~t, AlgCat);
A := HeisenbergAlgebra(t);
A;
SystemOfForms(Tensor(A));
SetEchoInput(ei);
