CoCalc Public Filessupport / 2016-02-12-heart.sagewsOpen with one click!
Authors: Gihan Marasingha, Harald Schilly, ℏal Snyder, William A. Stein
Description: Jupyter notebook support/2015-06-04-141749-bokeh.ipynb

In Mathematica:

Plot[Sqrt[Cos☑]*Cos[200*x] + Sqrt[Abs☑] - 0.7*(4 - x*x)^0.01, {x, -2, 2}]

plot(sqrt(cos(x))*cos(200*x) + sqrt(abs(x)) - 0.7*(4 - x*x)^0.01, (x, -pi/2, pi/2), aspect_ratio=1)