Scilab 画一个漂亮的心形线

// 极坐标系下绘制 r = Arccos(sinθ)，我们会画一个漂亮的心形线。
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');