signal_processing plugged.
[scilab.git] / scilab / modules / signal_processing / tests / unit_tests / fft.tst
index be4c6b8..96e03f1 100644 (file)
@@ -1,23 +1,23 @@
-// =============================================================================\r
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
-// Copyright (C) 2008 - DIGITEO\r
-//\r
-//  This file is distributed under the same license as the Scilab package.\r
-// =============================================================================\r
-\r
-a = [1;2;3];\r
-n=size(a,'*');\r
-r1 = norm(1/n*exp(2*%i*%pi*(0:n-1)'.*.(0:n-1)/n)*a -fft(a,1));\r
-if r1 > 10 *%eps then pause,end\r
-\r
-r2 = norm(exp(-2*%i*%pi*(0:n-1)'.*.(0:n-1)/n)*a -fft(a,-1));\r
-if r2 > 100 *%eps then pause,end\r
\r
-sample_rate = 1000;\r
-t = 0:1/sample_rate:0.6;\r
-N = size(t,'*');\r
-s = sin(2*%pi*50*t)+sin(2*%pi*70*t+%pi/4)+grand(1,N,'nor',0,1);\r
-y = fft(s);\r
-if or(size(y) <> [1 601]) then pause,end\r
-\r
\ No newline at end of file
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - Digiteo - unknown author
+// Copyright (C) 2009 - Digiteo - Vincent LIARD
+//
+// 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
+
+a = [1;2;3];
+n=size(a,'*');
+r1 = norm(1/n*exp(2*%i*%pi*(0:n-1)'.*.(0:n-1)/n)*a -fft([1;2;3],1));
+if r1 > 10 *%eps then pause,end
+r2 = norm(exp(-2*%i*%pi*(0:n-1)'.*.(0:n-1)/n)*a -fft(a,-1));
+if r2 > 100 *%eps then pause,end
+sample_rate = 1000;
+t = 0:1/sample_rate:0.6;
+N = size(t,'*');
+s = sin(2*%pi*50*t)+sin(2*%pi*70*t+%pi/4)+grand(1,N,'nor',0,1);
+y = fft(s);
+if size(y) <> [1 601] then pause,end
+