In[]:=
PolarPlot[(Sin[t]Sqrt[Abs[Cos[t]]])/(Sin[t]+7/5)-2Sin[t]+2,{t,0,10}]
Out[]=
In[]:=
ContourPlot3D[((2x)^2+y^2+z^2-1)^3-((1/10)x)^2z^3-y^2z^3==0,​​{x,-1.5,1.5},{y,-1.5,1.5},{z,-1.5,1.5},​​MeshNone,ContourStyleOpacity[0.8,Red]]
Out[]=
Mathematicacalculationsprovidedfromtheusercommunity@​​https://math.stackexchange.com/questions/12098/drawing-heart-in-mathematica
​