/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 13.04.2 ] */

/* [wxMaxima: input   start ] */
ROTX(alpha):= matrix([1,0,0],[0,cos(alpha),-sin(alpha)],[0,sin(alpha),cos(alpha)]);
ROTY(beta):= matrix([cos(beta),0,-sin(beta)],[0,1,0],[sin(beta),0,cos(beta)]);
ROTZ(gamma):= matrix([cos(gamma),-sin(gamma),0],[sin(gamma),cos(gamma),0],[0,0,1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x:1;y:1;z:1; 
V: matrix([x,y,z]);
beta:atan(-sqrt(z^2+x^2)/x);
gamma:atan(-x/y);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
v1:V.ROTZ(gamma);
v2:v1.ROTX(beta);
v2:v2.ROTX(%pi);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x:1;y:1;z:1; 
S: matrix([x,y,z]);
alpha:atan(y/sqrt(y^2+z^2));
gam:atan(-x/z);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
s1:S.ROTX(gam);
s2:s1.ROTY(-alpha);
s3:s2.ROTY(%pi);
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$