function z=ctria(x,y)

% CTRIA       Canonical Triangular Kernel Function for univariate data.

if nargin==1,
  z=ktria(x/1.8882)/1.8882;
  elseif nargin==2,
    z=ktria(x/1.8882).*ktria(y/1.8882)/1.8882^2;
end;