*--------------------------------------------------------------*
* Univariate Polynomial - Test Problem 4                       *
*--------------------------------------------------------------*
File  
    res  / results / ;
Put res ;

Variables
    x
    f;

x.lo = -5;
x.up = 5;

Equations
    Obj    objective function;

Obj .. 
    f =e= 4*power(x,2) - 4*power(x,3) + power(x,4);

Model
    problem /Obj/;

*   Two global minima
*    x.l = 0;
    x.l = 2;

    solve problem using nlp minimizing f;
    PUT "Min f",f.l:16:10//;
    PUT "x    ",x.l:16:10//;