Sharedsupport / 2016-02-12-heart.sagewsOpen in CoCalc
Authors: Harald Schilly, ℏal Snyder, William A. Stein
License: GNU General Public License v3.0
Description: Examples for support purposes.

In Mathematica:

Plot[Sqrt[Cos<i class='fa fa-check-square-o'></i>]*Cos[200*x] + Sqrt[Abs<i class='fa fa-check-square-o'></i>] - 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)