param N := 2;

var x{1..N};

minimize f:
(x[2] - x[1]^2)^2 + (1-x[1])^2;

data;
var x:=
1	-1.2
2	1;

solve;

display x;