{"id":4030,"date":"2011-12-31T10:41:35","date_gmt":"2011-12-31T09:41:35","guid":{"rendered":"http:\/\/www.walkingrandomly.com\/?p=4030"},"modified":"2016-06-07T17:57:58","modified_gmt":"2016-06-07T16:57:58","slug":"how-to-plot-a-heart","status":"publish","type":"post","link":"https:\/\/walkingrandomly.com\/?p=4030","title":{"rendered":"How to plot a heart"},"content":{"rendered":"

I’ve seen several equations that plot a heart shape over the years but a recent google+ post by Lionel Favre<\/a> introduced me to a new one.\u00a0 I liked it so much that I didn’t want to wait until Valentine’s day to share it.\u00a0 In Mathematica:<\/p>\n

Plot[Sqrt[Cos[x]]*Cos[200*x] + Sqrt[Abs[x]] - 0.7*(4 - x*x)^0.01, {x, -2, 2}]<\/pre>\n
and in MATLAB:<\/p>\n
>> x=[-2:.001:2];\r\n>> y=(sqrt(cos(x)).*cos(200*x)+sqrt(abs(x))-0.7).*(4-x.*x).^0.01;\r\n>> plot(x,y)\r\nWarning: Imaginary parts of complex X and\/or Y arguments ignored<\/pre>\n
The result from the MATLAB version is shown below
\n\"Heart<\/p>\n
Update<\/strong><\/p>\n
Rene Grothmann has looked at this equation in a little more depth<\/a> and plotted it using Euler.<\/p>\n
Similar posts<\/strong><\/p>\n