MapleApproxIntEx2.mws

>    with(plots): 

Warning, the name changecoords has been redefined

>    with(Student[Calculus1]):

>    f:=x->5*sin(x^2)+8+2*x-x^4;

f := x -> 5*sin(x^2)+8+2*x-x^4

>    plot(f(x),x=-2..2,y=-2..14,thickness=3);

[Maple Plot]

>    fsolve({f(x)},{x},-2..-1);

{x = -1.630312971}

>    fsolve({f(x)},{x},1..2);

{x = 1.815448517}

>    Int(f(x),x=-1.630312971..1.815448517);

Int(5*sin(x^2)+8+2*x-x^4,x = -1.630312971 .. 1.815448517)

>    int(f(x),x=-1.630312971..1.815448517);

30.71740072

>    plot(f(x),x=-1.630312971..1.815448517,filled=true);

[Maple Plot]

>