Set svn:eol-style to native
[scilab.git] / scilab / modules / signal_processing / tests / unit_tests / fft.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 a = [1;2;3];
9 n=size(a,'*');
10 r1 = norm(1/n*exp(2*%i*%pi*(0:n-1)'.*.(0:n-1)/n)*a -fft(a,1));
11 if r1 > 10 *%eps then pause,end
12
13 r2 = norm(exp(-2*%i*%pi*(0:n-1)'.*.(0:n-1)/n)*a -fft(a,-1));
14 if r2 > 100 *%eps then pause,end
15  
16 sample_rate = 1000;
17 t = 0:1/sample_rate:0.6;
18 N = size(t,'*');
19 s = sin(2*%pi*50*t)+sin(2*%pi*70*t+%pi/4)+grand(1,N,'nor',0,1);
20 y = fft(s);
21 if or(size(y) <> [1 601]) then pause,end
22
23