Formula for love: X^2+(y-sqrt(x^2))^2=1
wolframalpha.com
wolframalpha.com
Dang, wikipedia knows it all:
http://en.wikipedia.org/wiki/Heart_%28symbol%29
The seed of the silphium plant, used in ancient times as an herbal contraceptive, has been suggested as the source of the heart symbol.
Oh, also http://www.wolframalpha.com/input/?i=%28x^2%2By^2-1%29^3-x^2...
Also, here's mine: http://www.wolframalpha.com/input/?i=%281-%28|x|-1%29^2%29^0...
http://www.wolframalpha.com/input/?i=polar%28x+%3D+%28y%29%2...
(NSFW)
http://www.wolframalpha.com/input/?i=pi%5Epi%2A%28exp%28-x%5...
You are the sine to my cosine... cos(theta) + cos(2 theta) polar
On it's own the original post was perhaps not too original, but it spurred some interesting discussion, like where the heart shape originated.
The penis graph on the other hand, only comes of as childish. Sure, it would have been really funny when I was 15. And to be sure, there are plenty of clever penis jokes out there ("The hammer is my penis" comes to mind), but this is not one of them.
1) via Wikipedia, the heart shape itself is likely based off the shape of the silphium seed, which was used as a contraceptive, or of course various naughty bits of anatomy. And condom sales spike around V-day. Relevancy #1: check.
2) It's an equation. And it even contains pi raised to the pith power. Relevancy #2: check.
edit: wow, crappy pi character. "pinus"
http://www.wolframalpha.com/input/?i=ContourPlot3D[%28x^2%2B...]
From http://www.maa.org/mathland/mathtrek_02_11_02.html :
> The algorithms that Taubin developed worked well even in the vicinity of cusps and other singularities. "I discovered the equation of the heart while trying to construct surfaces with complex singularities," Taubin says.
Isn't that romantic?
http://www.wolframalpha.com/input/?i=fifth+heart+curve
...and the 3D surface is there too:
heart = (scale,x,y)->
ctx.beginPath()
ctx.moveTo(x,y)
p1 = [x-75*scale,y+20*scale]
ctx.bezierCurveTo(x-20*scale,y-55*scale,p1[0]-50*scale,p1[1]-55*scale,p1...)
p2 = [x,p1[1]+60*scale]
ctx.bezierCurveTo(p1[0]+25*scale,p1[1]+22.5*scale,p2[0]-35*scale,p2[1]-40*scale,p2...)
ctx.moveTo(x,y)
p1 = [x+75*scale,y+20*scale]
ctx.bezierCurveTo(x+20*scale,y-55*scale,p1[0]+50*scale,p1[1]-55*scale,p1...)
p2 = [x,p1[1]+60*scale]
ctx.bezierCurveTo(p1[0]-25*scale,p1[1]+22.5*scale,p2[0]+35*scale,p2[1]-40*scale,p2...)
ctx.strokeStyle = 'rgba(255,40,20,0.7)'
ctx.stroke()
heart(1.0, 450, 250)"Roses are red. Violets are approximately blue. A paracompact manifold with a Lorentzian metric, can be a spacetime, if it has dimension greater than or equal to two."
EDIT: Woah. You got your answer at least.
http://www.wolframalpha.com/input/?i=x^2%2B%28y-sqrt%28abs%2...
http://www.wolframalpha.com/input/?i=(x2%2By2-1)^3+-x2y3+%3D...