Licence added
Sylvestre Koumar [Fri, 15 Feb 2008 15:05:35 +0000 (15:05 +0000)]
87 files changed:
scilab/modules/signal_processing/includes/gw_signal.h
scilab/modules/signal_processing/macros/%asn.sci
scilab/modules/signal_processing/macros/%k.sci
scilab/modules/signal_processing/macros/%sn.sci
scilab/modules/signal_processing/macros/analpf.sci
scilab/modules/signal_processing/macros/bilt.sci
scilab/modules/signal_processing/macros/buttmag.sci
scilab/modules/signal_processing/macros/casc.sci
scilab/modules/signal_processing/macros/cepstrum.sci
scilab/modules/signal_processing/macros/cheb1mag.sci
scilab/modules/signal_processing/macros/cheb2mag.sci
scilab/modules/signal_processing/macros/chepol.sci
scilab/modules/signal_processing/macros/convol.sci
scilab/modules/signal_processing/macros/cspect.sci
scilab/modules/signal_processing/macros/czt.sci
scilab/modules/signal_processing/macros/dft.sci
scilab/modules/signal_processing/macros/ell1mag.sci
scilab/modules/signal_processing/macros/eqfir.sci
scilab/modules/signal_processing/macros/eqiir.sci
scilab/modules/signal_processing/macros/faurre.sci
scilab/modules/signal_processing/macros/ffilt.sci
scilab/modules/signal_processing/macros/fft2.sci
scilab/modules/signal_processing/macros/find_freq.sci
scilab/modules/signal_processing/macros/findm.sci
scilab/modules/signal_processing/macros/frfit.sci
scilab/modules/signal_processing/macros/frmag.sci
scilab/modules/signal_processing/macros/fsfirlin.sci
scilab/modules/signal_processing/macros/group.sci
scilab/modules/signal_processing/macros/hank.sci
scilab/modules/signal_processing/macros/hilb.sci
scilab/modules/signal_processing/macros/iir.sci
scilab/modules/signal_processing/macros/iirgroup.sci
scilab/modules/signal_processing/macros/iirlp.sci
scilab/modules/signal_processing/macros/iirmod.sci
scilab/modules/signal_processing/macros/intdec.sci
scilab/modules/signal_processing/macros/jmat.sci
scilab/modules/signal_processing/macros/kalm.sci
scilab/modules/signal_processing/macros/lattn.sci
scilab/modules/signal_processing/macros/lev.sci
scilab/modules/signal_processing/macros/levin.sci
scilab/modules/signal_processing/macros/lgfft.sci
scilab/modules/signal_processing/macros/lindquist.sci
scilab/modules/signal_processing/macros/mese.sci
scilab/modules/signal_processing/macros/mfft.sci
scilab/modules/signal_processing/macros/mrfit.sci
scilab/modules/signal_processing/macros/phc.sci
scilab/modules/signal_processing/macros/pspect.sci
scilab/modules/signal_processing/macros/remezb.sci
scilab/modules/signal_processing/macros/sincd.sci
scilab/modules/signal_processing/macros/srfaur.sci
scilab/modules/signal_processing/macros/srkf.sci
scilab/modules/signal_processing/macros/sskf.sci
scilab/modules/signal_processing/macros/trans.sci
scilab/modules/signal_processing/macros/wfir.sci
scilab/modules/signal_processing/macros/wiener.sci
scilab/modules/signal_processing/macros/wigner.sci
scilab/modules/signal_processing/macros/window.sci
scilab/modules/signal_processing/macros/yulewalk.sci
scilab/modules/signal_processing/macros/zpbutt.sci
scilab/modules/signal_processing/macros/zpch1.sci
scilab/modules/signal_processing/macros/zpch2.sci
scilab/modules/signal_processing/macros/zpell.sci
scilab/modules/signal_processing/sci_gateway/c/gw_signal.c
scilab/modules/signal_processing/sci_gateway/c/sci_amell.c
scilab/modules/signal_processing/sci_gateway/c/sci_corr.c
scilab/modules/signal_processing/sci_gateway/c/sci_delip.c
scilab/modules/signal_processing/sci_gateway/c/sci_ffir.c
scilab/modules/signal_processing/sci_gateway/c/sci_fft.c
scilab/modules/signal_processing/sci_gateway/c/sci_fiir.c
scilab/modules/signal_processing/sci_gateway/c/sci_remez.c
scilab/modules/signal_processing/sci_gateway/c/sci_rpem.c
scilab/modules/signal_processing/sci_gateway/c/sci_syredi.c
scilab/modules/signal_processing/sci_gateway/fortran/Ex-corr.f
scilab/modules/signal_processing/sci_gateway/fortran/bgetx.f
scilab/modules/signal_processing/sci_gateway/fortran/bgety.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_amell.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_corr.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_delip.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_fft.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_fiir.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_remez.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_rpem.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_syredi.f
scilab/modules/signal_processing/sci_gateway/signal_processing_gateway.xml
scilab/modules/signal_processing/src/c/corrtable.c
scilab/modules/signal_processing/src/fortran/sci_ffir.f
scilab/modules/signal_processing/version.xml

index 185e544..47663fd 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 #ifndef __GW_SIGNAL__
 #define __GW_SIGNAL__
 /*--------------------------------------------------------------------------*/
index a365a99..a537eab 100644 (file)
@@ -8,8 +8,14 @@ function [y]=%asn(x,m)
 //  y :Value of the integral
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 m=real(m);
 if m<0 then error('m must be positive');end 
 if m>1 then error('m must be lower than 1');end 
index bcac00a..f111204 100644 (file)
@@ -12,8 +12,14 @@ function [K]=%k(m)
 //    :on the real axis.
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [n1,n2]=size(m);
    un=ones(n1,n2);
index 7486ec1..719fb66 100644 (file)
@@ -11,8 +11,14 @@ function [y]=%sn(x,m)
 //  y :Result
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 [n1,n2]=size(x);
 n=n1*n2;
index 28b5be9..28a7f61 100644 (file)
@@ -22,8 +22,14 @@ function [hs,pols,zers,gain]=analpf(n,fdesign,rp,omega)
 //     hs=gain*poly(zers,'s')/poly(pols,'s')
 //
 //!
-// author: C. Bunks  date: 9 Sept 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    select fdesign
    case 'butt' then
index 68ce478..b246191 100644 (file)
@@ -11,10 +11,15 @@ function [npl,nzr,ngn]=bilt(pl,zr,gn,num,den)
 //  num :numerator of transform
 //  den :denominator of transform
 //!
-//author: C. Bunks  date: 5 May 1989
-//Updated: 15 Sep 1997
-
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - C. Bunks
+// Copyright (C) INRIA - 1997 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 n=coeff(num);
    d=coeff(den);
    order=maxi(size(n))-1;
index 2b922dd..d528416 100644 (file)
@@ -8,8 +8,14 @@ function [h]=buttmag(order,omegac,sample)
 //  h      :Butterworth filter values at sample points
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [n1,n2]=size(sample);
    un=ones(n1,n2);
index eb8ec68..461512d 100644 (file)
@@ -24,8 +24,14 @@ function cels=casc(x,z)
 //  !              2               2               2 !
 //  !   7 + 10z + z     8 + 11z + z     9 + 12z + z  !
 //!
-//author: F. D.  date: August 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 cels=[];
 for col=x,
index 1b1dd36..3ccf3cc 100644 (file)
@@ -1,11 +1,19 @@
 function fresp = cepstrum(w,mag)
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
 // Uses the complex-cepstrum (Oppenheim & Schafer, Digital
 //Signal Processing, p. 501) to generate, at the frequencies 
 //w, a complex frequency response fresp whose magnitude is 
 //equal to magnitude data mag and whose phase corresponds
 //to a stable, minimum phase transfer function. 
 //
-// Copyright INRIA
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
 [w,ind]=sort(-w);w=-w;mag=mag(ind);
 dnum=length(w);
 
index 019be96..ad83b1f 100644 (file)
@@ -12,8 +12,14 @@ function [h2]=cheb1mag(n,omegac,epsilon,sample)
 //  h2      :Chebyshev I filter values at sample points
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [n1,n2]=size(sample);
    un=ones(n1,n2);
index 517c05e..d7eb782 100644 (file)
@@ -11,8 +11,14 @@ function [h2]=cheb2mag(n,omegar,A,sample)
 //  h2      :Chebyshev II filter values at sample points
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [n1,n2]=size(sample);
    un=ones(n1,n2);
index 8a93b67..fb86d83 100644 (file)
@@ -5,8 +5,14 @@ function Tn=chepol(n,var)
 //  Tn  :Polynomial in var
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 if n==0 then
   Tn=poly(1,var,'coeff'),
 elseif n==1 then
index c9c2a6e..42c1a8d 100644 (file)
@@ -18,7 +18,14 @@ function [y,e1]=convol(h,x,e0)
 //  Final call : [yN]=convol(h,xN,eNm1)
 //  Finally y=[y1,y2,...,yNm1,yN]
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 [lhs,rhs]=argn(0)
 n=prod(size(x))
 m=prod(size(h))
index fde014d..f3673e2 100644 (file)
@@ -17,8 +17,14 @@ function [sm,cwp]=cspect(nlags,ntp,wtype,x,y,wpar)
 //           :window parameter
 //
 //!
-//author: C. Bunks  date: 16 Sept 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [lhs,rhs]=argn(0);
    cross=0;
index 015fc78..cd73685 100644 (file)
@@ -11,8 +11,14 @@ function [czx]=czt(x,m,w,phi,a,theta)
 //  theta :Initial phase
 //  czx   :Chirp z-transform output
 //!
-//author: C. Bunks  date: 10 July 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //get the size of x and find the maximum of (n,m)
  
index 2e391e1..b2ec264 100644 (file)
@@ -5,8 +5,14 @@ function xf=dft(x,flag);
 // flag :indicates dft or idft
 // xf   :output vector
 //!
-//author: C. Bunks  date: 29 Sept 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 n=maxi(size(x));
 arg=(0:n-1);
index 08f3eab..e76dd79 100644 (file)
@@ -7,7 +7,14 @@ function [v]=ell1mag(eps,m1,z)
 //  v       :Elliptic filter values at sample points
 //
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 s=%sn(z,m1);un=ones(z);
 v=real(un./(un+eps*eps*s.*s))
 
index 92c654b..18a33bd 100644 (file)
@@ -7,8 +7,14 @@ function [hn]=eqfir(nf,bedge,des,wate)
 //  wate  :M-vector giving relative weight of error in each band
 //  hn    :Output of linear-phase FIR filter coefficients
 //!
-//author: C. Bunks  date: 18 June 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //get number of cosines
  
index 6c7c781..0b7d2eb 100644 (file)
@@ -21,7 +21,14 @@ function [cells,fact,zzeros,zpoles]=eqiir(ftype,approx,om,deltap,deltas)
 //     hz=fact*prod(cells(2))./prod(cells(3))
 //
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 select part(approx,1);
    case 'b'
         iapro=1
index 7a7a4f5..489c529 100644 (file)
@@ -8,8 +8,14 @@ function [P,R,T]=faurre(n,H,F,G,R0)
 //   P    : solution of the Riccati equation after n iterations.
 //   R,T  : gain matrix of the filter.
 //!
-//author: G. Le Vey  Date: 16 Febr. 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - G. Le Vey
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //initialization
 Pn=G*inv(R0)*G'
index 078f567..048287a 100644 (file)
@@ -18,9 +18,15 @@ function x=ffilt(ft,n,fl,fh)
 //     :fl and the higher value is in fh.
 //  x  :Filter coefficients
 //!
-//author: C. Bunks  date: 12 March 1988
-//        sinc replaced by filt_sync S Steer Jan 2002
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// Copyright (C) INRIA - 2002 - S Steer
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //Pre-calculation
  
index a13df43..39ba7a8 100644 (file)
@@ -1,5 +1,13 @@
 function x=fft2(varargin)
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.B
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 // Two-dimensional fast Fourier transform
 // Syntax : y = fft2(x) or y = fft2(x,m,n)
 // Inputs :
@@ -8,7 +16,7 @@ function x=fft2(varargin)
 //
 // Outputs :
 // y : scalar, vector, matrix, array (real or complex), if there is one input argument x then y and x have the same size, else if there are 3 inputs arguments then the sizes of the first and second dimension of y are equal to m and n, the others dimension sizes are equal to the size of x
-// F.B
+
 
 if size(varargin) == 1 then
   a = varargin(1);
index 16f6057..c750870 100644 (file)
@@ -11,8 +11,14 @@ function [m]=find_freq(epsilon,A,n)
 //          :elliptic filter
 //
 //!
-//Author F.D.
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    m1=(epsilon*epsilon)/(A*A-1);
    chi1=%k(1-m1)/%k(m1);
index 6c27c5f..19a9670 100644 (file)
@@ -1,7 +1,14 @@
 function m=findm(chi)
 //Search for m such that chi = %k(1-m)/%k(m)
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 if chi < 1 then
   t=1;
index 6d4a805..189c475 100644 (file)
@@ -14,7 +14,14 @@ function [num,den]=frfit(w,fresp,order,weight)
 //  freq(num,den,%i*w) should be close to fresp
 //
 // changing frequencies to rad/s 
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 w=2*%pi*w;
 [LHS,RHS]=argn(0);
 if RHS==3 
index 361727d..97a7f1d 100644 (file)
@@ -16,8 +16,14 @@ function [xm,fr]=frmag(num,den,npts)
 //  fr   :Points in the frequency domain where
 //       :magnitude is evaluated
 //!
-//author: C. Bunks  date: 2 March 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [lhs,rhs]=argn(0);
    if rhs==2 then,
index 68a742d..c72844e 100644 (file)
@@ -8,8 +8,14 @@ function [hst]=fsfirlin(hd,flag)
 //  hst  : vector giving the approximated continuous response
 //         on a dense grid of frequencies
 //!
-//author: G. Le Vey  Date: 1 Febr. 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - G. Le Vey
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    n1=prod(size(hd));//filter length
    if int(n1/2)==n1/2,n=2*n1;else,n=2*n1+1;end;//even or odd length
index f6eac84..0ea7250 100644 (file)
@@ -21,8 +21,14 @@ function [tg,fr]=group(npts,a1i,a2i,b1i,b2i)
 //       h(z)=prod(a1i+a2i*z+z**2)/prod(b1i+b2i*z+z^2)
 //
 //!
-//author: C. Bunks  date: 2 March 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //get frequency grid values in [0,.5)
  
index d04e701..354a754 100644 (file)
@@ -7,8 +7,14 @@ function [hk]=hank(m,n,cov)
 //   cov: sequence of covariances; it must be given as :[R0 R1 R2...Rk]
 //   hk : computed hankel matrix
 //!
-//author: G. Le Vey  Date: 16 Febr. 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - G. Le Vey 
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    hk=[];
    d=mini(size(cov));
index 4c147c7..1e2ce30 100644 (file)
@@ -13,8 +13,14 @@ function [xh]=hilb(n,wtype,par)
 // xh    :Hilbert transform
 //
 //!
-// author: C. Bunks  date: 3 Jan 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [lhs,rhs]=argn(0);
    if rhs==1 then,
index 34a08a9..9cae13b 100644 (file)
@@ -25,8 +25,14 @@ function hz=iir(n,ftype,fdesign,frq,delta)
 //           :                    0<ripple<delta(2)   in stopband
 //
 //!
-// author: C. Bunks  date: 9 Sept 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //select analog filter design for low-pass filter with fc=.25
 
index c57fe96..af055d2 100644 (file)
@@ -5,8 +5,14 @@ function [lt,grad]=iirgroup(p,r,theta,omega,wt,td)
 //omega=frequencies corresponding to filters specs.
 //wt=weighting function for group delay
 //!
-//
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 [m,n]=size(td);if m>n,td=td';end;
 [m,n]=size(omega);if m>n,omega=omega';end;
 [m,n]=size(r);if n>m,r=r';m=n;end;
index e831a00..d112b03 100644 (file)
@@ -14,7 +14,14 @@ function [cout,grad,ind]=iirlp(x,ind,p,flag,lambda,omega,ad,wa,td,wt)
 //wa,wt=fonctions de ponderation pour l'amplitude et le
 //retard de groupe ad,td=amplitudes et retard de groupe desires
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 r=x(:,1);theta=x(:,2);
 [m,n]=size(ad);if m>n,ad=ad';end
 [m,n]=size(td);if m>n,td=td';end
index ad9ecb8..da0bed0 100644 (file)
@@ -5,8 +5,14 @@ function [la,grad,ind]=iirmod(x,ind)
 //omega=frequences ou sont donnees les specifications des filtres
 //wa=fonction de ponderation pour l'amplitude
 //!
-//
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 r=x(:,1);theta=x(:,2);
 [m,n]=size(ad);if m>n,ad=ad';end;
 [m,n]=size(omega);if m>n,omega=omega';end;
index 287fb4c..ceb162c 100644 (file)
@@ -7,8 +7,14 @@ function [y]=intdec(x,lom)
 //         :changes lom=(col rate change,row rate change)
 //  y      :Output sampled signal
 //!
-// author: C. Bunks  date: 8 August 1990
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1990 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //Get dimensions of vectors
  
index 2849cd6..26c4766 100644 (file)
@@ -5,7 +5,14 @@ function [j]=jmat(n,m)
 //   n   : number of block rows or block columns of the matrix
 //   m   : size of the (square) blocks
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 j=[];
 for k=1:n,j(k,n-k+1)=1;end;
 j=j.*.eye(m,m);
index cfb7f51..80dc128 100644 (file)
@@ -14,8 +14,14 @@ function [x1,p1,x,p]=kalm(y,x0,p0,f,g,h,q,r)
 // x,p    :updated estimate and error covariance at t=0
 //        :based on data up to t=0
 //!
-// author: C. Bunks  date: 9 August 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    k=p0*h'*(h*p0*h'+r)**(-1);
    p=(eye(p0)-k*h)*p0;
index f7b7928..a30a3cd 100644 (file)
@@ -33,8 +33,14 @@ function [la,lb]=lattn(n,p,cov)
 //   la  : list-type variable, giving the successively calculated
 //       : polynomials (degree 1 to degree n),with coefficients Ak
 //!
-//author: G. Le Vey  Date: 9 Febr. 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - G. Le Vey
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [lhs,rhs]=argn(0);
    [l,d]=size(cov);
index 3002f48..c7393e3 100644 (file)
@@ -14,9 +14,15 @@ function [ar,sigma2,rc]=lev(r)
 //  sigma2 :Scale constant
 //  rc     :Reflection coefficients
 //!
-// author: C. Bunks  date: 24 August 1988
-// revised: 9 April 1991
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// Copyright (C) INRIA - 1991 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //get the size of the correlation vector
  
index 8e04205..12c503c 100644 (file)
@@ -33,8 +33,14 @@ function [la,sig,lb]=levin(n,cov)
 //  sig : list-type variable, giving the successive
 //      : mean-square errors.
 //!
-//author: G. Le Vey
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - G. Le Vey
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [lhs,rhs]=argn(0);
    if rhs<>2,error('wrong number of arguments');end
index 63d400d..3530324 100644 (file)
@@ -1,5 +1,12 @@
 function [y]=lgfft(x)
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 [o,i]=argn(0);
    if i < 1 then error(58); end;
    if type(x) <> 1 then error(53,1); end;
index 023326d..ba00a67 100644 (file)
@@ -9,8 +9,14 @@ function [P,R,T]=lindquist(n,H,F,G,R0)
 //   Pn    : solution of the Riccati equation after n iterations.
 //   Rn,Tn : gain matrices of the filter.
 //!
-//author: G. Le Vey  Date: 16 Febr. 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - G. Le Vey
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 [d,m]=size(H);
 //initialization
 Gn=G;
index 9498856..76cc534 100644 (file)
@@ -7,9 +7,15 @@ function [sm,fr]=mese(x,npts);
 //  sm   :Samples of spectral estimate on the frequency grid fr
 //  fr   :npts equally spaced frequency samples in [0,.5)
 //!
-// author: C. Bunks  date: 24 August 1988
-// revised: 9 April 1991
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// Copyright (C) INRIA - 1991 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //default evaluation
  
index 60e882d..92361f2 100644 (file)
@@ -26,8 +26,14 @@ function [xk]=mfft(x,flag,dim)
 //      dim=<3,2,3>
 //
 //!
-//author: C. Bunks  date: 30 Sept 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    xk=x;
    dims=[1 matrix(dim,1,maxi(size(dim)))];
index e22cc3d..79c0b37 100644 (file)
@@ -13,7 +13,14 @@ function [num,den]=mrfit(w,mod,r)
 //
 //  abs(freq(num,den,%i*w)) should be close to mod
 //
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 w=w(:);mod=mod(:);
 [LHS,RHS]=argn(0);
 if w(1)==0 then w(1)=%eps;end
index a0a61b1..b03f0f2 100644 (file)
@@ -9,8 +9,14 @@ function [h,f,g]=phc(hk,d,r)
 //       : for the approximated model
 //   h,f,g  : relevant matrices of the state-space model
 //!
-//author G. Le Vey  Date: 16 Febr. 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - G. Le Vey
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [p,q]=size(hk);
    [u,s,v]=svd(hk);
index 416f89f..54dd152 100644 (file)
@@ -14,8 +14,14 @@ function [sm,cwp]=pspect(sec_step,sec_leng,wtype,x,y,wpar)
 // sm       :power spectral estimate in the interval [0,1]
 // cwp      :unspecified Chebyshev window parameter
 //!
-//author: C. Bunks  date: 14 Sept 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    [lhs,rhs]=argn(0);
    cross=0;
index 7b71075..a9dad6e 100644 (file)
@@ -20,8 +20,14 @@ function an=remezb(nc,fg,ds,wt)
 //  wt :Weighting function on error on grid fg
 //  an :Cosine filter coefficients
 //!
-// author: C. Bunks  date: 24 August 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //get frequency grid size
  
index 945eb78..6772889 100644 (file)
@@ -7,8 +7,14 @@ function [s]=sincd(n,flag)
 //  s    : vector of values of the function on a dense
 //       : grid of frequencies
 //!
-//author: G. Le Vey  Date: 1 Febr 1989
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - G. Le Vey
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    npt=4*n;
    pas=%pi/npt;
index 76b0ecf..692a5bb 100644 (file)
@@ -13,7 +13,14 @@ function [p,s,t,l,rt,tt]=srfaur(h,f,g,r0,n,p,s,t,l)
 //          : p,s,t,l may be given as input if more than one recursion
 //          : is desired (evaluation of intermediate values of p, e.g.).
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 [lhs,rhs]=argn(0);
 [d,m]=size(h);
 if rhs==5,
index 35e49d9..d4f8665 100644 (file)
@@ -12,8 +12,14 @@ function [x1,p1]=srkf(y,x0,p0,f,h,q,r)
 // x1,p1  :updated estimate and error covariance
 //        :at t=1 based on data up to t=0
 //!
-// author: C. Bunks  date: 9 August 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
    n=maxi(size(x0));
    p=maxi(size(y));
index 1fdd653..26b8dcf 100644 (file)
@@ -9,7 +9,14 @@ function [xe]=sskf(y,f,h,q,r,x0)
 //
 // xe  :estimated state
 //!
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //get steady-state Kalman gain
  
index 60d16ba..800c31b 100644 (file)
@@ -8,9 +8,15 @@ function [hzt]=trans(pd,zd,gd,tr_type,frq)
 // frq     :frequency values
 // hzt     :output polynomial
 //!
-//author: C. Bunks  date: 9 Sept 1988
-//corrections: C. Bunks date 14 Feb. 1998
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// Copyright (C) INRIA - 1998 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
   if typeof(pd)=="rational" then
     hz=pd;
     tr_type=zd
index 1b2bf64..597f903 100644 (file)
@@ -17,8 +17,14 @@ function [wft,wfm,fr]=wfir(ftype,forder,cfreq,wtype,fpar)
 //  wfm    :Frequency domain filter response on the grid fr
 //  fr     :Frequency grid
 //!
-//author: C. Bunks  date: 12 March 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 wft=[];wfm=[];fr=[]
 //check arguments of macro call
  
index fd82382..04ba7da 100644 (file)
@@ -22,8 +22,14 @@ function [xs,ps,xf,pf]=wiener(y,x0,p0,f,g,h,q,r)
 //form of xs and xf:  [x0,x1,...,xf], and xk is a column n-vector
 //form of ps and pf:  [p0,p1,...,pf], and pk is a nxn matrix
 //!
-//author: C. Bunks  date: 20 August 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 //obtain the dimensions of xk and yk.
 //Get the time interval [t0,tf].
index 4bca320..f364cc2 100644 (file)
@@ -11,7 +11,14 @@ function tab=wigner(x,h,deltat,zp)
 //
 //   Initializations
 //
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 l=prod(size(x));
 n=prod(size(h));
 npr=2*n;
index 797f199..0b573a9 100644 (file)
@@ -10,8 +10,14 @@ function [win_l,cwp]=window(wtype,n,par)
 // win   :window
 // cwp   :unspecified Chebyshev window parameter
 //!
-//author: C. Bunks   date: 8 Sept 1988
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1988 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
   [lhs,rhs]=argn(0);
   cwp=-1;
index 8286d9f..2a5c5be 100644 (file)
@@ -22,7 +22,14 @@ function [Nz,Dz]=yulewalk(Norder, frq, mag)
 //xbasc(1);xset('window',1);plot2d(fs*frq',abs(repf'));
 //xtitle('Obtained Frequency Response')
 //
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 [LHS,RHS]=argn(0);
 if RHS <>3
    error('Wrong number of input parameters.')
index cefa900..7b9a931 100644 (file)
@@ -9,10 +9,16 @@ function [pols,gain]=zpbutt(n,omegac)
 //  pols   :Resulting poles of filter
 //  gain   :Resulting gain of filter
 //
-//!
-//Author F.D.
-//Revised by C. Bunks Oct. 24, 1996  
-// Copyright INRIA
+//! 
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// Copyright (C) INRIA - 1996 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 angles=ones(1,n)*(%pi/2+%pi/(2*n))+(0:n-1)*%pi/n;
 pols=omegac*exp(%i*angles);
 gain=abs((-omegac)^n);
index f03e10d..9e832ea 100644 (file)
@@ -9,9 +9,15 @@ function [pols,gain]=zpch1(n,epsilon,omegac)
 //  gain    :Resulting filter gain
 //
 //!
-//Author F.D.
-//Revised by C. Bunks Oct. 24, 1996  
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// Copyright (C) INRIA - 1996 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 Gamma=((1+sqrt(1+epsilon**2))/epsilon)^(1/n);
 a=omegac*(Gamma-1/Gamma)/2;
 b=omegac*(Gamma+1/Gamma)/2;
index 1038fb7..7e22540 100644 (file)
@@ -11,9 +11,15 @@ function [zers,pols,gain]=zpch2(n,A,omegar)
 //  gain   :Resulting filter gain
 //
 //!
-//Author F.D.
-//Revised by C. Bunks Oct. 24, 1996  
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - F.D
+// Copyright (C) INRIA - 1996 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 un=ones(1,n);
 v=%pi/(2*n)*(1:2:2*n-1);
 w=exp(%i*v);
index 768697b..567d444 100644 (file)
@@ -11,9 +11,15 @@ function [ze,po,gain]=zpell(epsilon,A,omegac,omegar)
 //  gain    :Resulting gain of filter
 //
 //!
-//Author F.Delebecque INRIA 1989
-//Revised by C. Bunks Oct. 24, 1996  
-// Copyright INRIA
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 1989 - F.Delebecque
+// Copyright (C) INRIA - 1996 - C. Bunks
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 m1=(epsilon*epsilon)/(A*A-1);
    K1=%asn(1,m1);
    K1t=imag(%asn(1/sqrt(m1),m1));
index 2e8f1c0..2c4c46d 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 #include <string.h>
 #include "gw_signal.h"
 #include "callFunctionFromGateway.h"
index 4cebd2c..f5e0d0b 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index cfa67b4..47a55fc 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index 7451c1f..e0c7d3f 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index d0290f2..ddacd0b 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index fde5cf8..dc1ad76 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index d0e8182..2fadbe0 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index 213167b..ce4a3ae 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index 162d39c..d144255 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index f00d01d..5150c5e 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 #include <string.h>
 #include "gw_signal.h"
 #include "machine.h"
index 0360185..c1ea02d 100644 (file)
@@ -1,6 +1,13 @@
 c     Exemple for corr
 c     ----------------
-c     Copyright INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       
       subroutine corexx(x, incr, istart)
       integer incr,istart
index 0df74b9..fa3970b 100644 (file)
@@ -3,7 +3,16 @@ c ======================================================================
 c     macros or list externals for corr 
 c ======================================================================
 
-c     Copyright INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
+
       INCLUDE 'stack.h'
       integer iadr,sadr
       double precision x(*)
index 324c618..c6e6407 100644 (file)
@@ -3,7 +3,15 @@ c ======================================================================
 c     macros or list externals for corr 
 c ======================================================================
 
-c     Copyright INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
       INCLUDE 'stack.h'
       integer iadr,sadr
       double precision y(*)
index b61b98b..380a76f 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine sciamell(fname)
 c      
index bbbd14e..415287e 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine scicorr(fname)
 c     implicit undefined (a-z)
index 442b8a3..3de0912 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine scidelip(fname)
 c      
index c4e3694..4c26fe5 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine scifft(fname)
 c     implicit undefined (a-z)
index 8ec1a15..70067dd 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine scifiir(fname)
 c     implicit undefined (a-z)
index ade5ebc..5afd5a7 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine sciremez(fname)
 c      
index b894770..6dae034 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine scirpem(fname)
 c      
index b84cc25..f953dd5 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine scisyredi(fname)
 c      
index d572329..3978a40 100644 (file)
@@ -1,28 +1,34 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007 - INRIA - Allan CORNET
+ * Copyright (C) 2007 - INRIA - Sylvestre LEDRU
+ * 
+ * Scilab
+ * Interface description. In this file, we define the list of the function which
+ * will be available into Scilab and the link to the "native" function.
+ *
+ * gatewayId is the position in the hashtable 'Interfaces' defined in the
+ * file SCI/modules/core/src/c/callinterf.h
+ *
+ * primitiveId is the position in the hashtable '<module>Table Tab[]' defined
+ * in the file modules/<module>/sci_gateway/c/gw_<module>.c
+ *
+ * primitiveName is the name of the Scilab function
+ *
+ * Don't touch if you do not know what you are doing
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 
 <!DOCTYPE GATEWAY SYSTEM "../../functions/xml/gateway.dtd">
 <GATEWAY name="signal_processing">
-<!-- =================== -->
-<!--
- Scilab
- Interface description. In this file, we define the list of the function which
- will be available into Scilab and the link to the "native" function.
-
- gatewayId is the position in the hashtable 'Interfaces' defined in the
- file SCI/modules/core/src/c/callinterf.h
-
- primitiveId is the position in the hashtable '<module>Table Tab[]' defined
- in the file modules/<module>/sci_gateway/c/gw_<module>.c
-
- primitiveName is the name of the Scilab function
 
- @author Allan CORNET
- @author Sylvestre LEDRU
- @date INRIA 2007
- ===================
- Don't touch if you do not know what you are doing
--->
-<!-- =================== -->
 
 <PRIMITIVE gatewayId="18" primitiveId="2" primitiveName="fft" />
 <PRIMITIVE gatewayId="18" primitiveId="4" primitiveName="corr" />
index 34223f9..ec39153 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA */
-/*--------------------------------------------------------------------------*/
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
 #include "machine.h"
 #include "AddFunctionInTable.h"
 /***********************************
index 16e1582..859e6ac 100644 (file)
@@ -1,5 +1,12 @@
 c     =======================================
-c     INRIA
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+c 
+c This file must be used under the terms of the CeCILL.
+c This source file is licensed as described in the file COPYING, which
+c you should have received as part of this distribution.  The terms
+c are also available at    
+c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     =======================================
       subroutine sciffir(fname)
 c     implicit undefined (a-z)
index 191eebd..607746b 100644 (file)
@@ -1,19 +1,21 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007 - INRIA - Allan CORNET
+ * Copyright (C) 2007 - INRIA - Sylvestre LEDRU
+ *  Scilab
+ * Defines the version of a module
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 
 <!DOCTYPE MODULE_VERSION SYSTEM "../core/xml/version.dtd">
 <MODULE_VERSION name="signal_processing">
-<!-- =================== -->
-<!--
- Scilab
- Defines the version of a module
-
- @author Allan CORNET
- @author Sylvestre LEDRU
- @date INRIA 2007
- ===================
-
--->
-<!-- =================== -->
 
 <VERSION major="5" minor="0" maintenance="0" revision="0" string="unstable-svn" />
 </MODULE_VERSION>
\ No newline at end of file