polar plot r=min(|csc(theta)|, |sec(theta)|), 0< theta<2*pi