/[marvin]/marvin/src/libsip/test/test.sci
ViewVC logotype

Diff of /marvin/src/libsip/test/test.sci

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by exos, Thu Sep 11 20:34:49 2003 UTC revision 1.3 by exos, Thu Sep 11 23:21:23 2003 UTC
# Line 7  newmat(10, '/tmp/tmp2.mat'); Line 7  newmat(10, '/tmp/tmp2.mat');
7  [len2, mat2] = loadmat('/tmp/tmp2.mat');  [len2, mat2] = loadmat('/tmp/tmp2.mat');
8    
9  GCC="g++ -g "  GCC="g++ -g "
10  GCCEND=" -o /tmp/a.out -I. -I.. -I../type -L.. -lsip ./common.cc `perl -MExtUtils::Embed -e ldopts` && /tmp/a.out"  GCCEND=" -o /tmp/a.out -I. -I.. -I../type -I../algo -L.. -lsip ./common.cc `perl -MExtUtils::Embed -e ldopts` && /tmp/a.out"
11    
12  //TEST 1 addition de signaux discrets  //TEST 1 addition de signaux discrets
13  unix("echo TEST ADDITION de signaux && " + GCC + " ./test_discsignal_add.cpp " + GCCEND)  unix("echo TEST ADDITION de signaux && " + GCC + " ./test_discsignal_add.cpp " + GCCEND)
# Line 22  differ("/tmp/out.mat", "/tmp/my_res.mat" Line 22  differ("/tmp/out.mat", "/tmp/my_res.mat"
22    
23    
24    
25    //TEST 3 FFT sur signaux discret
26    newmat(1024, '/tmp/tmp3.mat');
27    [len3, mat3] = loadmat('/tmp/tmp3.mat');
28    
29    FF=fft(mat3, 1);
30    for i=1:len3
31        Res(i) = sqrt(real(FF(i)) * real(FF(i)) + imag(FF(i)) * imag(FF(i)));
32    end;
33    
34    unix("echo TEST FFT && " + GCC + " ./test_discsignal_fft.cpp " + GCCEND)
35    savemat(len3, Res , '/tmp/my_res.mat');
36    differ("/tmp/out.mat", "/tmp/my_res.mat");
37    
38    
39    
40    
41    
42    
43  exit;  exit;
44    
45    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26