Scilab 画笛卡尔的心形线

heart.sce Code:

// 画笛卡尔的心形线
// 极坐标方程 r=a*(1-sin(t))
a=2; //半径
t=linspace(0,2*%pi);
x=a*(2*sin(t)-sin(2*t));
y=a*(2*cos(t)-cos(2*t));
plot(x,y,'color',[1 0 0]);
xtitle('Descartes heart');
// axis centered at (0,0)
a=gca(); // Handle on axes entity
a.x_location = "origin"; 
a.y_location = "origin";