# Example 1 eq:=2*x^2+8*x+12: ans:=[solve(eq=0,x)]; eq1:=2*(x-ans[1])*(x-ans[2])=0; expand(eq1); # Example 2 f:=unapply(x^2+5*x+6,x): a:=-4: b:=-1: plot(f(x),x=a..b); # Example 3 y1:=3*x^4/(x+1)^2: y2:=sin(2*x): y3:=exp(x)*\cos(3*x): y1prime:=diff(y1,x); y2prime:=diff(y2,x); y3prime:=diff(y3,x); yprime:=y1prime+y2prime+y3prime; # Example 4 z:=2*y+x*y+(3*x+4*y)^2: dzdx:=diff(z,x);dzdy:=diff(z,y); # Example 5 z1:=(3*x+y+1)^2: z2:=x*y+2*x+3*y: J:=VectorCalculus[Jacobian]([z1,z2],[x,y]); DJ:=LinearAlgebra[Determinant](J); subs(x=0,y=0,J); subs(x=0,y=0,DJ); # Example 6 ?unapply ?plot, ?expand ?factor ?ifactor ?solve ?fsolve ?array ?set ?for ?do ?parse ?plot3d ?dsolve ?int ?diff ?newuser ?exp ?sin ?cos ?tan ?sinh ?cosh ?ln ?log # Example 7 ?newuser