For comparison with other CAS choose from: Axiom Derive Maple Mathematica Reduce
plot(sin(%e
^
x), x, 0, %pi, "Time", "Signal", false);
plot([bessel_j[0](x), bessel_j[2](x), bessel_j[5](x)], x, 0, 10,
false, "Value", "Bessel Functions BesselJ(n, x)");