$title 'Test correctness of ncpVUPow intrinsic' (FNNCPVUPOW2,SEQ=817)

* define some sets, etc.
$include fnset_xy.inc

$gdxIn fnncpvupow2
$load aeps reps relToInput T data
$gdxIn

loop {T,
  data(T,'fyx_') = data(T,'fxy_');
  data(T,  'f')    = ncpVUPow.value   (data(T,'x'),data(T,'y'));
  data(T, 'fx')    = ncpVUPow.grad(1:  data(T,'x'),data(T,'y'));
  data(T, 'fy')    = ncpVUPow.grad(2:  data(T,'x'),data(T,'y'));
  data(T,'fxx')    = ncpVUPow.hess(1:1:data(T,'x'),data(T,'y'));
  data(T,'fxy')    = ncpVUPow.hess(1:2:data(T,'x'),data(T,'y'));
  data(T,'fyx')    = ncpVUPow.hess(2:1:data(T,'x'),data(T,'y'));
  data(T,'fyy')    = ncpVUPow.hess(2:2:data(T,'x'),data(T,'y'));
  data(T, 'rc')    = mathlastrc;
  data(T, 'ec')    = mathlastec;
};

$include fntest_xy.inc