function value = poly2 ( xy )

%*****************************************************************************80
%
%% poly2 evaluates the poly2 function.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    22 September 2019
%
%  Input:
%
%    real xy(2), the argument.
%
%  Output:
%
%    real value(2), the function value.
%
  x = xy(1);
  y = xy(2);

  value = [ ...
    x.^2+4.0*y.^2-9.0;
    18.0*y-14.0*x.^2+45.0 ];

  return
end

