FFTW tests must be available in nwni mode
[scilab.git] / scilab / modules / fftw / tests / nonreg_tests / bug_5081.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 5081 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=5081
12 //
13 // <-- Short Description -->
14 //
15 // demo "Signal Processing" --> "Spectral Estimation" fails (Windows)
16  rand('normal');
17  rand('seed',0);
18  x = rand(1:1024-33+1);
19  nf = 33;
20  bedge = [0 .1;.125 .5];
21  des = [1 0];
22  wate = [1 1];
23  h = eqfir(nf,bedge,des,wate);
24  h1 = [h 0*ones(1:max(size(x))-1)];
25  x1 = [x 0*ones(1:max(size(h))-1)];
26  hf = fft(h1,-1);
27  xf = fft(x1,-1);
28  yf = hf.*xf;
29  y = real(fft(yf,1));
30  ierr = execstr("[sm2] = cspect(100,200,''tr'',y);","errcatch");
31  if ierr <> 0 then bugmes();quit;end