* Bug #8395 fixed - dft has been deprecated to fft.
[scilab.git] / scilab / modules / signal_processing / macros / dft.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA - 1988 - C. Bunks
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 xf=dft(x,flag);
11 //xf=dft(x,flag);
12 //macro which computes dft of vector x
13 // x    :input vector
14 // flag :indicates dft or idft
15 // xf   :output vector
16 //!
17 warnobsolete('fft', '5.4.2');
18 n=max(size(x));
19 arg=(0:n-1);
20 am=-2*%pi*%i*arg'*arg/n;
21 if flag==1 then,
22   am=-am;
23 end,
24 xf=exp(am)*matrix(x,n,1);
25 if flag==1 then,
26   xf=xf/n;
27 end
28 endfunction