function z = sinint(x)
%SININT Sine integral function.
%  SININT(x) = int(sin(t)/t,t,0,x).
%
%  See also COSINT.

%   Copyright (c) 1993-1999 The Mathworks, Inc. All Rights Reserved.
%  $Revision: 1.7 $  $Date: 1999/01/04 21:55:13 $

if findstr(num2str(x),'Inf')
   z = pi/2;
else
   z = double(sinint(sym(x)));
end
