Matrices Built from Shifted Elements

[Didier Lachieze]

Interesting topic, another way to do it would be to use MAKEMAT like this:

Code:

EXPORT LSM(L0)
BEGIN
 LOCAL N:= SIZE(L0);
 MAKEMAT(L0((J+I-1) MOD N),N,N);   // left shift matrix
END;

EXPORT RSM(L0)
BEGIN
 LOCAL N:= SIZE(L0);
 MAKEMAT(L0((J-I+1) MOD N),N,N);   // right shift matrix
END;