Sharing the love through Mathematica... even equations can be beautiful.

How to plot a love heart using maths.

1 2 3 |
PolarPlot[(Sin[t] Sqrt[Abs[Cos[t]]])/(Sin[t] + 7/5) - 2 Sin[t] + 2, {t, 0, 10}, PlotStyle -> Directive[RGBColor[1., 0.01, 0.15], AbsoluteThickness[1.355]]] |

Taken from here.