In Mathematica:
Plot[Sqrt[Cos[x]]*Cos[200*x] + Sqrt[Abs[x]] - 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)
