a0b52034c415bd2fe2eb2456c1e5abe13e57561d
[scilab.git] / scilab / modules / functions / tests / nonreg_tests / bug_2987.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - INRIA - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- Non-regression test for bug 2987 -->
8 //
9 // <-- Bugzilla URL -->
10 // http://bugzilla.scilab.org/show_bug.cgi?id=2987
11 head_comments('sinc')
12 function [y] = sinc(x,fl)
13                [  sin(x(i))/x(i) if x(i)~=0
14  computes y(i)=[
15                [  1 if x(i)~=0