Plot[r=sqrt[cos(a)^2-sin(a)^2]]