kill(all)$

load(ntrig)$ load(atrig1)$

van=facebook.com/LearningCalculus$

-atan(-(sqrt(3)*sin(4*α)-cos(4*α)+1)/
       (3*sin(4*α)-sqrt(3)*cos(4*α)+sqrt(3)));

trigrat(%);

%*180/%pi;