// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA - Allan CORNET
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- Non-regression test for bug 2987 -->
//
// <-- Bugzilla URL -->
// http://bugzilla.scilab.org/show_bug.cgi?id=2987
head_comments('sinc')
function [y] = sinc(x,fl)
[ sin(x(i))/x(i) if x(i)~=0
computes y(i)=[
[ 1 if x(i)~=0
|