"Source: Text/Module/Multilinear.text";
"Line: 2680";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Module/Multilinear.text, line: 2680
// Example: H63E37 ()
print "Example: H63E37";
ei := GetEchoInput();
SetEchoInput(true);
t := Tensor(Rationals(), [5,4,3,2], [1..120]);
t;
T := AsTensorSpace(t, 3);
T;
F := [SliceAsMatrices(t, [{k},{1..4},{1..3},{1,2}], 2, 1) : \
    k in [1..5]];
F[1];
F[2];
F[3];
Tensor(F[3], 2, 1) eq 2*Tensor(F[2], 2, 1) - Tensor(F[1], 2, 1);
Tensor(F[4], 2, 1) eq 3*Tensor(F[2], 2, 1) - 2*Tensor(F[1], 2, 1);
Tensor(F[5], 2, 1) eq 4*Tensor(F[2], 2, 1) - 3*Tensor(F[1], 2, 1);
SystemOfForms(T.1) eq F[1];
SystemOfForms(T.2) eq F[2];
Radical(t, 3);
SetEchoInput(ei);
