Add the <-- JVM NOT MANDATORY --> TAG
[scilab.git] / scilab / modules / fftw / tests / unit_tests / fftw.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2007-2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- JVM NOT MANDATORY -->
9
10 //=================================
11 //simple vector direct transform
12 a = rand(50,1)+%i*rand(50,1);
13 y = fftw(a);
14 y = fftw(a,-1);
15 //inverse transform
16 b = fftw(y,1);
17 //=================================
18 //2D transform
19 a = rand(512,512)+%i*rand(512,512);
20 y = fftw(a);
21 //=================================
22 //M-D transform -old calling sequence-
23 a = rand(120,1);
24 y = a;
25 dim=[5 6 4];incr=[1 5 30];
26 for i=1:3
27  y = fftw(y,-1,dim(i),incr(i));
28 end
29 //=================================
30 //M-D transform -new calling sequence-
31 //More efficient than old
32 y = fftw(a,-1,[5 6 4],[1 5 30]);
33 b = fftw(y,1,[5 6 4],[1 5 30]);
34 //=================================