> Stan := taylor(tan(x),x=0,6);

                                       3         5      6
                      Stan := x + 1/3 x  + 2/15 x  + O(x )
> Ttan := convert(Stan,polynom);

                                           3         5
                          Ttan := x + 1/3 x  + 2/15 x
> plot({Ttan,tan(x)},x=-1.5..1.5);
--------------------------------------------------------------------------------
> errTtan := abs(tan(x) - Ttan);

                                                   3         5
                  errTtan := abs(tan(x) - x - 1/3 x  - 2/15 x )
> errReg := abs(errTtan - 0.01);

                                                 3         5
             errReg := abs(abs(tan(x) - x - 1/3 x  - 2/15 x ) - .01)
--------------------------------------------------------------------------------
> fsolve(tan(x) - Ttan-0.01,x,0.5..0.9);

                                   .7568683840
> fsolve(tan(x) - Ttan+0.01,x,-0.9..-0.5);

                                  -.7568683840
--------------------------------------------------------------------------------
> plot({0.01,errTtan},x=-1.5..1.5,-0.02..0.02);
