For comparison with other CAS choose from: Derive Macsyma Maple Mathematica Reduce
draw(sin(%e
^
x), x = 0..%pi)
title == "Bessel Functions BesselJ(n, x)")
draw([besselJ(0, x), besselJ(2, x), besselJ(5, x)], x = 0..10, _