// 极坐标系下绘制 r = Arccos(sinθ),我们会画一个漂亮的心形线。
t=linspace(0,2*%pi);
r=acos(sin(t));
t=linspace(0,2*%pi);
r=acos(sin(t));
polarplot(t,r);
xtitle("漂亮的心形线");
clf();
// 极坐标系下绘制 r = a(1-sinθ),我们也会画笛卡尔的心形线。
a=1; // 半径
t=linspace(0,2*%pi);
r=a*(1-sin(t));
polarplot(t,r);
xtitle('Descartes heart');