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

Sets
    i    /1*2/;

Variables
    x(i)
    f;

x.lo('1') = 0;
x.lo('2') = 0;
x.up('1') = 2;
x.up('2') = 3;

Equations
    Obj    objective function
    Con    constraint function;

Obj .. 
    f =e= -12*x('1') - 7*x('2') + power(x('2'),2);

Con ..
    -2*power(x('1'),4) + 2 - x('2') =e= 0;

Model
    problem /Obj, Con/;

     x.l('1') = 0.7175;
     x.l('2') = 1.47;

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