function  retval = fcn(x)
% usage: y = fcn(x)
% description: Returns ordinate vector of values of fcn at abscissa vector x.

% programmer: t. shores
% last rev.: 2/6/16

retval = x.*sin(x);
