kill(all)$

load(ntrig);

load(atrig1);

van=facebook.com/LearningCalculus$

(((((a*(-1))+(((sin(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2))+(cos(t)*sin(t)*a))*(((b*(-1))+c+(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)))^(1/2)*((b+(c*(-1))+(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)))^(1/2)*((b+c+((((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)*(-1))))^(1/2)*((b+c+(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)))^(1/2)*(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^((-1))*(-1/2))+(((cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2))+((cos(t))^(2)*a))*(((a)^(2)*(-1))+((b)^(2)*(-1))+(c)^(2)+(d)^(2)+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)+((cos(t))^(2)*(a)^(2)*2))*(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^((-1))*(-1/2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2))+((cos(t))^(2)*a)))^(2)+(((((sin(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2))+(cos(t)*sin(t)*a))*(((a)^(2)*(-1))+((b)^(2)*(-1))+(c)^(2)+(d)^(2)+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)+((cos(t))^(2)*(a)^(2)*2))*(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^((-1))*(-1/2))+(((cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2))+((cos(t))^(2)*a))*(((b*(-1))+c+(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)))^(1/2)*((b+(c*(-1))+(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)))^(1/2)*((b+c+((((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)*(-1))))^(1/2)*((b+c+(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^(1/2)))^(1/2)*(((a)^(2)+(d)^(2)+((sin(t))^(2)*(a)^(2)*(-2))+(cos(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2)*a*2)))^((-1))*1/2)+(sin(t)*(((d)^(2)+((sin(t))^(2)*(a)^(2)*(-1))))^(1/2))+(cos(t)*sin(t)*a)))^(2)))^(1/2);

factor(%);

expand(%);

ratsimp(%);

fullratsimp(%);

trigsimp(%);

trigrat(%);