> restart:
> f:=piecewise(AA < 0.2,1 - exp(-13.436 + 101.14 * AA - 223.73 * AA^2),
> AA < 0.34, 1 - exp(-8.318 + 42.796 * AA - 59.938 * AA^2), AA < 0.6,
> exp(0.9177 - 4.279 * AA - 1.38 * AA^2), exp(1.2937 - 5.709 * AA +
> 0.0186 * AA^2));

       {                                        2
       { 1 - exp(-13.436 + 101.14 AA - 223.73 AA )        AA < 0.2
       {
       {                                       2
       { 1 - exp(-8.318 + 42.796 AA - 59.938 AA )         AA < 0.34
  f := {
       {                                    2
       {     exp(0.9177 - 4.279 AA - 1.38 AA )            AA < 0.6
       {
       {                                     2
       {    exp(1.2937 - 5.709 AA + 0.0186 AA )           otherwise

> plot(f,AA=-1..100);
> 

> evalf(subs(AA=200,f));

                                        -172
                         0.6302340598 10

> minimize(f);

  minimize(

        {                                        2
        { 1 - exp(-13.436 + 101.14 AA - 223.73 AA )        AA < 0.2
        {
        {                                       2
        { 1 - exp(-8.318 + 42.796 AA - 59.938 AA )         AA < 0.34
        {                                                           )
        {                                    2
        {     exp(0.9177 - 4.279 AA - 1.38 AA )            AA < 0.6
        {
        {                                     2
        {    exp(1.2937 - 5.709 AA + 0.0186 AA )           otherwise

> solve(diff(exp(1.2937-5.709*AA+.186e-1*AA^2),AA));

                             153.4677419

> 
