Valentine.mws

> # A Polar Coordinates Graph for Valentine's Day
# Submitted by Dwight Boddorf to  the MAA's
# American Mathematical Monthly
# Volume 115 Number 2 (February 2008) page 113

plot([abs(tan(t))^(1/abs(tan(t)))*cos(t), abs(tan(t))^(1/abs(tan(t)))*sin(t), t=0..Pi], axes=none);
 

Plot_2d