求高手告诉pascal爱心桃的编程、用途你懂的、、跪求 我找了好长时间找不到、、我是初学者、求教

{$ASSERTIONS+}
uses graph,math;
var
gd,gm:integer;
i,j:longint;
x,y:double;
begin
gd:=D8bit;
gm:=m640x480;
InitGraph(gd,gm,'');
Assert(graphResult=grOk);
for i:=-125 to 125 do
begin
for j:=-125 to 125 do
begin
x:=i/25;
y:=j/25;
if 5*x+sin(5*y)=0 then continue;
if 17*(x*x+y*y)+16*y*abs(x)+(150/abs(5*x-sin(5*y)))<255 then
PutPixel(i+300,j+250,1);
end;
end;
readln;
CloseGraph;
end.
这是碎掉的，完整的自己想

这个是什么函数？

右手又来鄙视大众了

把右手的程序中 +(150/abs(5*x-sin(5*y))) 给删了就不碎了。

爱心桃？什么鬼