t12.h

利用DSP５０００系列的５５０９编写的一个关于ＦＩＲ滤波器算法的一个程序

/* Test for rfft: both */
#define NX 300
#define FNAME "t12"
#define MAXERROR 10

#pragma DATA_SECTION (x,".input")

DATA h[200] =
{
 -19177 ,    
-31035   ,  
 -31438   ,  
 -20568    ,  
 -2571       ,
16146       ,
29243       ,
32559       ,
25314,



       
10126,      
 -8049 ,    
 -23603,      
-32001  ,   
 -31035  ,    
-21281    ,   
-5735       ,
11197       ,
24984,


       
32168,       
31164 ,      
22506 ,       
8547    ,  
 -7249   ,  
 -21203  ,   
 -30274   ,  
 -32675    ,  
-28152,


      
-17904 ,     
 -4209 ,     
 10126 ,      
22356 ,      
30313 ,      
32748 ,      
29472,       
21281 ,       
9733,


      
 -3186,      
-15424,      
-25182  ,   
 -31164,     
 -32710,      
-29822 ,    
 -23098,     
 -13578 ,     
 -2571,


  8547 ,     
 18503,       
26266,       
31132 ,      
32768  ,     
31196 ,      
26750 ,      
20002   ,   
 11679,


        2571 ,     
 -6544,      
-14968  ,    
-22129 ,    
 -27612,     
 -31164 ,    
 -32697,     
 -32262 ,     
-30032,


      -26266  ,  
  -21281,      
-15424,      
 -9043 ,     
 -2468 ,      
 4005 ,     
 10126,       
15696 ,      
20568,


  24648 ,     
 27885,       
30274  ,     
31838,       
32632,       
32727  ,     
32207 ,      
31164,       
29693,



       
27885 ,     
 25829  ,     
23603 ,      
21281,       
18926 ,     
 16592,       
14323 ,     
 12158 ,      
10126,



       
 8249  ,     
 6544,        
5024 ,       
3698  ,     
 2571,        
1646 ,        
926  ,      
 412 ,        
103,



         
  0   ,     
 103  ,      
 412 ,        
926  ,      
1646  ,      
2571 ,       
3698  ,     
 5024,        
6544,



        
8249,      
 10126  ,     
12158,       
14323 ,      
16592,       
18926 ,      
21281 ,      
23603 ,      
25829,



  27885,      
 29693   ,    
31164,       
32207,      
 32727,       
32632,       
31838  ,    
 30274 ,     
27885,


       24648  ,     
20568 ,      
15696,      
 1012 ,      
 4005 ,     
 -2468   ,   
 -9043 ,   
 -15424,      
-21281,



      -26266,  
   -30032 ,  
   -32262,      
-32697,      
-31164 ,    
 -27612,     
-22129 ,    
-14968,       
-6544,


        2571  ,    
 11679 ,      
20002 ,      
26750  ,    
31196   ,   
32768   ,    
31132  ,    
26266   ,    
18503,



        8547  ,   
  -2571  ,    
-13578  ,   
-23098   , 
 -29822 ,   
-32710   ,  
-31164  ,    
-25182   ,
 -15424,



       -3186  ,     
 9733  ,     
21281   ,  
29472 ,     
32748 ,  
30313 ,    
 22356 ,    
10126   ,   
-4209,



      -17904 ,   
 -28152 ,    
-32675  ,    
-30274 ,    
-21203,      
 -7249,      
 8547 ,      
22506  ,     
31164,



       32168 ,     
 24984 ,     
11197 ,      
-5735 ,     
-21281 ,     
-31035  ,    
-32001,     
-23603       
-8049,



  10126,      
 25314 ,     
 32559,       
29243,       
16146 ,      
-2571,      
-20568,      
-31438  ,    
-31035,
  -19177 , };              



#pragma DATA_SECTION (rtest,".test")

/* format: y(0)Re,y(N/2)Re,y(1)Re,y(1)Im,y(2)Re,y(2)Im,..y(N/2-1)Re,y(N/2-1)Im */

DATA xn[300] ={
  
-5276,        
5425,        
3737,
5293,      
 -2257,        
 5810  ,     
 -6363 ,      
 -6589  ,     
 -6887,
6747 ,       
7171 ,      
-4219 ,      
 5203 ,      
 -7291,       
 -9835,        
 3398 ,      
 -2387,        
 3207,
-6357,       
-5932,       
-3817,       
-6903,      
 -3119,         
 799  ,     
 -1544,       
 -1479,       
 -1562,
-839  ,     
-3208 ,      
-4051 ,       
1007  ,      
3586  ,       
564   ,   
-11588,       
-1158 ,      
-2609,
11179,        
3162 ,      
-3343 ,      
-2674  ,      
8345  ,       
749   ,     
6863  ,      
1176  ,    
 -1468,
-4285 ,      
-1956 ,      
-5162 ,       
1688  ,      
4101  ,    
-24948 ,     
-30104  ,   
 -36840 ,     
 -23943,
-829   ,    
16156 ,     
 29238 ,      
 36033  ,    
  26325 ,      
  10148 ,      
  -9475 ,     
  -16565,      
  -38133,
-32241  , 
 -5887  ,    
 -2959  ,     
 11204  ,     
 19720  ,     
 26773  ,     
 30702  ,     
 28234   ,    
 18605,
-348  ,    
-15150 ,    
 -22280 ,     
 -27569  ,    
 -19483  ,   
  -27386 ,    
  2342   ,    
  14389  ,     
  29295,
28437   ,    
25909   ,   
23317   ,   
14161   ,     
8423    ,  
-10729  ,    
-15718  ,    
-28291 ,     
-33596,
-36535 ,     
-29130,      
-26066 ,     
-12493 ,       
4406   ,    
17003  ,     
20480  ,     
32357  ,     
40411,
27977 ,      
32201  ,     
18026   ,    
20897  ,     
13921  ,      
1990   ,    
-9185  ,    
-16033 ,     
-16095,
-32213,      
-28612 ,     
-39349  ,    
-33847   ,   
-30053   ,   
-22866   ,  
 -17066  ,    
 -13085   ,    
 -2558,
1046   ,    
 4086   ,       
 81     ,  
 30778  ,    
 12254  ,     
 26581  ,      
 9948   ,    
 28642  ,     
 37067,
25807  ,     
30887  ,     
33447 ,      
32893  ,     
29944  ,     
25993  ,     
23225  ,     
21868  ,     
24756,
18559 ,      
13590  ,     
13353  ,    
 -1500 ,      
  5790 ,      
  16380,      
  11502 ,      
11881  ,      
3757,
-11163,        
7963   ,    
-3170   ,    
-7209   ,     
2435    ,    
6299    ,   
-4306   ,    
-4609   ,     
-812,
945  ,     
-3750 ,      
10918  ,       
961   ,    
 6317  ,      
 7110  ,      
 4701  ,     
 15035 ,      
 21381,
25573 ,      
13274 ,      
35602 ,      
26518 ,      
30493 ,      
18012 ,     
35742 ,      
27026 ,      
38603,
28427 ,      
38775  ,     
26025   ,    
27580  ,     
26945  ,     
22787  ,    
 25653 ,     
  18929,       
  -1431,
3265   ,    
-5084  ,    
-14028 ,     
-20671 ,     
-22581 ,     
-30775 ,     
-30644 ,    
 -30901,      
 -25414,
  -22217,      
  -27482 ,     
  -16488 ,     
  -17247 ,      
  -5084  ,     
  13788  ,     
  14190  ,     
  17961  ,     
  24266,
25691  ,     
28480  ,     
34833  ,     
17157 ,      
15340 ,      
 6791 ,      
 -3560 ,     
 -16510,      
 -20697,
-20510,      
-27015,      
-31662,      
-24509,      
-15880,         
976   ,     
4796  ,     
26790 ,      
32018,
28301 ,      
17529  ,     
29204 ,      
16432 ,     
-12607,      
-19358,      
-36779,      
-37971,      
-26928,
-21627 ,     
-16028 ,       
7687  ,     
21836 ,      
33078 ,      
46089 ,     
 23727,       
 10831,       
 -6374,
 -20331,      
 -19102 ,     
 -33655 ,     
 -18598 ,     
 -18006 ,       
 3302   ,    
 15830  ,     
 31504  ,     
 31167,
18976  ,      
9272   ,   
-19227  ,    
-35428   ,   
-27347   ,   
-10762   ,     
1535     ,   
1547     ,   
6986,
813  ,     
-2542 ,       
 927  ,     
 10311,       
  1642 ,      
-3222  ,      
  3689 ,     
  -2654 ,      
  -4163,
10301  ,      
8187   ,     
4048   ,     
-150   ,     
2655   ,     
3720   ,    
 9001  ,      
3804   ,     
7967,
13424,        
2555 ,       
4411 ,      
9266 ,        
118  ,      
6613 ,     
-7771,           
4    ,  
-10454,
345   ,     
3727  ,      
7089  ,     
-2135 ,       
9285   ,     
5515   ,     
4406   ,     
4160   ,    
-4308,
5919  ,     
10369  ,      
 209   ,     
 4863  ,     
 -5507 ,      
  2298 ,      
  11018,        
  3595 ,       
  5178,
-2782,        
3701,       -
5423,
};




DATA error;