> restart:
> f:=piecewise(WW < 0.0275, 1 - exp(-13.953 + 775.5 * WW - 12542.61 *
> WW^2),WW < 0.051, 1 - exp(-5.903 + 179.546 * WW - 1515.29 * WW^2), WW
> < 0.092, exp(0.886 - 31.62 * WW + 10.897 * WW^2), exp(1.111 - 34.242 *
> WW + 12.832 * WW^2));

  f := {                                         2
       { 1 - exp(-13.953 + 775.5 WW - 12542.61 WW ) , WW < 0.0275

                                                2
        1 - exp(-5.903 + 179.546 WW - 1515.29 WW ) , WW < 0.051

                                        2
        exp(0.886 - 31.62 WW + 10.897 WW ) , WW < 0.092

                                         2
        exp(1.111 - 34.242 WW + 12.832 WW ) , otherwise

> plot(f,WW=-1..2);

> solve(1.111 - 34.242 * WW + 12.832 * WW^2);

                      2.635635109, 0.03284992814

> solve(exp(-13.953 + 775.5 * WW - 12542.61 * WW^2)=1.0e-253,WW);

                     -0.1842347785, 0.2460640150

> 
