kill(all);

van=facebook.com/LearningCalculus;

R:[((((((((((((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16)+(cos(%theta)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(2)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(3)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16)))^(2)+((((sin(%theta))^((-6))*((((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*4)))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(6)*4)+((sin(%theta))^((-4))*((((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*4)))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(4)*(r)^(2)*(-4)))*(((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*(-4)))*(-4))))^(1/2)*(-1))+((((((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16)+(cos(%theta)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(2)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(3)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16))*(-1)))*((((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*(-4))))^((-1))*r)+((sin(%theta))^((-3))*((((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*4)))^((-1))*(((r*(-1))+(cos(%theta)*r*(-1))))^(3)*(-2))),(((((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*(-4)))*(((r*(-1))+(cos(%theta)*r*(-1))))^(3)*(-2))+((sin(%theta))^(3)*((((((((((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16)+(cos(%theta)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(2)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(3)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16)))^(2)+((((sin(%theta))^((-6))*((((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*4)))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(6)*4)+((sin(%theta))^((-4))*((((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*4)))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(4)*(r)^(2)*(-4)))*(((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*(-4)))*(-4))))^(1/2)*(-1))+((((((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16)+(cos(%theta)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(2)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*48)+((cos(%theta))^(3)*(((sin(%theta)*(r)^(2)*8)+(cos(%theta)*sin(%theta)*(r)^(2)*8)))^((-1))*(r)^(4)*16))*(-1)))*(((r)^(2)*4)+((sin(%theta))^((-2))*(((r*(-1))+(cos(%theta)*r*(-1))))^(2)*4))*r))<0];

trigsimp(R);

subst(y,r,%);

subst(x,%theta,%);