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

Variables
    x
    f;

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

Equations
    Obj    objective function;

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

Model
    problem /Obj/;

    x.l = -1;

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