|\^/|     Maple V Release 3 (SUNY at Albany)
._|\|   |/|_. Copyright (c) 1981-1994 by Waterloo Maple Software and the
 \  MAPLE  /  University of Waterloo. All rights reserved. Maple and Maple V
 <____ ____>  are registered trademarks of Waterloo Maple Software.
      |       Type ? for help.


> f := x -> (x+2) / (3+(x^2+1)^3);

                                          x + 2
                            f := x -> -------------
                                            2     3
                                      3 + (x  + 1)

> D(f);

                                                    2     2
                              1           (x + 2) (x  + 1)  x
                   x -> ------------- - 6 -------------------
                              2     3              2     3 2
                        3 + (x  + 1)        (3 + (x  + 1) )

> plot(f);


                                       +A                                     
                                   0.5 * A                                    
                                       * A                                    
                                      A* A                                    
                                      A+  A                                   
                                   0.4A+  A                                   
                                      A+  A                                   
                                      A+  A                                   
                                     A +  A                                   
                                   0.3 +  AA                                  
                                     A +   A                                  
                                     A +   A                                  
                                     A +   A                                  
                                   0.2 +   A                                  
                                    A  +   AA                                 
                                    A  +    A                                 
                                    A  +    A                                 
                                   0.1 +    AA                                
                                   A   +     A                                
                                  AA   +     AA                               
                                 AA    +      AAA                             
  ********************************-+---+---+--+-***************************** 
 -10               -5                0 0                  5                10 
> f(0);

                                      1/2

> plot(f(x), x=-5..5, y=-0.1..0.1);

                                A  0.1 +          A                           
                               AA      +          A                           
                               A       +           A                          
                               A       +           A                          
                               A       +            A                         
                              A   0.05 +            A                         
                              A        +             A                        
                             A         +              A                       
                             A         +              AA                      
                           AA          +                AAA                   
  -+--+--+--+--+--+--+--****--+--+--+--+--+--+--+--+--+--+-****************** 
  AAAAAAAAAAAAAAAAAAAAAA               +                                      
        -4             -2            0 0              2              4        
                                       +                                      
                                       +                                      
                                       +                                      
                                 -0.05 +                                      
                                       +                                      
                                       +                                      
                                       +                                      
                                       +                                      
                                  -0.1 +                                      
                                                                              
> d := simplify(D(f)(x));

                             6      4      2       5       3
                    - 4 + 5 x  + 9 x  + 3 x  + 12 x  + 24 x  + 12 x
             d := - -----------------------------------------------
                                      6      4      2 2
                                (4 + x  + 3 x  + 3 x )

> fsolve(numer(d));

                           -2.485165927, .2700964050

> s := ";

                         s := -2.485165927, .2700964050

> D(f)(s[2]);

                                         -9
                                    .1*10

> # Now the inflection points...

> diff(d,x);

      5       3             4       2
  30 x  + 36 x  + 6 x + 60 x  + 72 x  + 12
- ----------------------------------------
                 6      4      2 2
           (4 + x  + 3 x  + 3 x )

                   6      4      2       5       3             5       3
         (- 4 + 5 x  + 9 x  + 3 x  + 12 x  + 24 x  + 12 x) (6 x  + 12 x  + 6 x)
     + 2 ----------------------------------------------------------------------
                                       6      4      2 3
                                 (4 + x  + 3 x  + 3 x )

> simplify(");
simplify(");

            5      11       9       7       3              4       10       8
   6 (- 19 x  + 5 x   + 17 x  + 18 x  - 37 x  - 12 x + 14 x  + 14 x   + 54 x

              6       2        /       6      4      2 3
        + 76 x  - 30 x  - 8)  /  (4 + x  + 3 x  + 3 x )
                             /

> fsolve(numer("));

                    -2.964270928, -.5472819999, .8702050673

> plot(f(x), x=-4..0, y=-0.01..0.01);
plot(f(x), x=-4..0, y=-0.01..0.01);

                                               A                          0.01
                                               A                            + 
                                              A                             + 
                                              A                             + 
                                             A                              + 
                                            AA                           0.005
                                            A                               + 
                                           AA                               + 
                                          AA                                + 
                                         A                                  + 
  +---+--+---+---+--+---+---+---+--+---**--+--+---+---+---+--+---+---+--+---+ 
  AAAAAAAAAAAAAAAAA                 AAA                                     |0
 -4                -3AAAAAAAAAAAAAAA  -2                 -1                 0 
                                                                            + 
                                                                            + 
                                                                            + 
                                                                        -0.005
                                                                            + 
                                                                            + 
                                                                            + 
                                                                            + 
                                                                         -0.01
                                                                              
> # Do you see the inflection pt. around -3 ?

>