>    a1:=sin(delta):a:=cos(delta):Z:=matrix(3,3,[a,-a1,0,a1,a,0,0,0,1]);

Z := matrix([[cos(delta), -sin(delta), 0], [sin(delta), cos(delta), 0], [0, 0, 1]])

>    b1:=sin(beta):b:=cos(beta):Y:=matrix(3,3,[b,0,b1,0,1,0,-b1,0,b]);

Y := matrix([[cos(beta), 0, sin(beta)], [0, 1, 0], [-sin(beta), 0, cos(beta)]])

>    c1:=sin(alpha):c:=cos(alpha):X:=matrix(3,3,[1,0,0,0,c,-c1,0,c1,c]);

X := matrix([[1, 0, 0], [0, cos(alpha), -sin(alpha)], [0, sin(alpha), cos(alpha)]])

>    XYZ=multiply(X,Y,Z);

XYZ = matrix([[cos(beta)*cos(delta), -cos(beta)*sin(delta), sin(beta)], [sin(alpha)*sin(beta)*cos(delta)+cos(alpha)*sin(delta), -sin(alpha)*sin(beta)*sin(delta)+cos(alpha)*cos(delta), -sin(alpha)*cos(b...

>    XZY=multiply(X,Z,Y);

XZY = matrix([[cos(beta)*cos(delta), -sin(delta), cos(delta)*sin(beta)], [cos(alpha)*sin(delta)*cos(beta)+sin(alpha)*sin(beta), cos(alpha)*cos(delta), cos(alpha)*sin(beta)*sin(delta)-sin(alpha)*cos(bet...

>    YXZ=multiply(Y,X,Z);

YXZ = matrix([[cos(beta)*cos(delta)+sin(alpha)*sin(beta)*sin(delta), -cos(beta)*sin(delta)+sin(alpha)*sin(beta)*cos(delta), cos(alpha)*sin(beta)], [cos(alpha)*sin(delta), cos(alpha)*cos(delta), -sin(al...

>    YZX=multiply(Y,Z,X);

YZX = matrix([[cos(beta)*cos(delta), -cos(alpha)*sin(delta)*cos(beta)+sin(alpha)*sin(beta), sin(alpha)*sin(delta)*cos(beta)+cos(alpha)*sin(beta)], [sin(delta), cos(alpha)*cos(delta), -sin(alpha)*cos(de...

>    ZYX=multiply(Z,Y,X);

ZYX = matrix([[cos(beta)*cos(delta), -cos(alpha)*sin(delta)+sin(alpha)*sin(beta)*cos(delta), sin(alpha)*sin(delta)+cos(alpha)*sin(beta)*cos(delta)], [cos(beta)*sin(delta), cos(alpha)*cos(delta)+sin(alp...

>    ZXY=multiply(Z,X,Y);

ZXY = matrix([[cos(beta)*cos(delta)-sin(alpha)*sin(beta)*sin(delta), -cos(alpha)*sin(delta), cos(delta)*sin(beta)+sin(alpha)*sin(delta)*cos(beta)], [cos(beta)*sin(delta)+sin(alpha)*sin(beta)*cos(delta)...

>