A1=randperm(9);
B=eye(9);
C=[B(:,4:9),B(:,1:3)];
D=[B(:,2:9),B(:,1)];
A2=A1*C;
A3=A2*C;
A4=A3*D;
A5=A4*C;
A6=A5*C;
A7=A6*D;
A8=A7*C;
A9=A8*C;
A=[A1;A2;A3;A4;A5;A6;A7;A8;A9]

    Source: geocities.com/hk/tamwingyin0415

               ( geocities.com/hk)