Add non reg test for bug 12373: pmodulo(n,m<0) returned a negative result.
[scilab.git] / scilab / modules / signal_processing / macros / chepol.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA - F.D
3 // 
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at    
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function Tn=chepol(n,var)
11 //Chebychev polynomial
12 //  n   :Polynomial order
13 //  var :Polynomial variable (character string)
14 //  Tn  :Polynomial in var
15 //
16 //!
17 if n==0 then
18   Tn=poly(1,var,'coeff'),
19 elseif n==1 then
20   Tn=poly(0,var);
21 else
22   T0=poly(1,var,'coeff');
23   T1=poly(0,var)
24   for k=2:n
25     Tn=2*poly(0,var)*T1-T0
26     [T1,T0]=(Tn,T1);
27   end
28 end
29     
30 endfunction