> plot3d(x^3-3*x*y^2,x=-5..5,y=-5..5,title=`Monkey Saddle`,numpoints=10000,style=PATCHCONTOUR,orientation=[0,0],contours=13,shading=Z);
> with(plots):animate(sin(x)*cos(t),x=0..Pi,t=0..2*Pi,frames=16,title=`Vibrating String`,color=red);
> eqn:=x^2-x-6=0;ans:=solve(eqn);
> subs(x=ans[1],eqn);
> int(x*sin(x),x);
>