function varargout = xsinx2(x)
%
% 
%
%  [y]    = xsinx2(x)  returns the function value in y
%  [y,yp] = xsinx2(x)  returns the function value in y and 
%                      the derivative in yp
%
%  Matthias Heinkenschloss
%  Department of Computational and Applied Mathematics
%  Rice University
%  March 29, 2001
%


% return the function value
varargout{1} = x.*sin(x).^2;
if( nargout > 1 )
  % return the derivative as the second argument
  varargout{2} = sin(x).^2 + 2*x.*sin(x).*cos(x);
end