intpoll.ps

DSP6000＋AD535语音采集的单频噪声消除的C语音代码

%%IncludeResource: font Times-Italic
7500 VM?
/Times-Italic FontHasEuro not
{
/Euro.Times-Italic
 [500 0 23 -7 578 676 ] 
<A2F8880DDBDB03F7F8A003F88D9D0384A701F79DBB01F802BB01F91CA7018F0ADBDB03F7
F8A003F88D9D0384A701F79DBB01F802BB01F89CF71301F8BFF93315770680758A89818B
08848B79947592088F0ADBDB03F7F8A003F88D9D0384A701F79DBB01F802BB01F91CA701
75916F926D8B08FB0E8B27FB0A5BFB24084606735B05D6068879857A8A79084A06745B05
DD068A7D8A7C8B7C08FB01B3FB0BF7101EA28BA4919E94089D94948F928B08928B8D858D
7508A006B0F72205780679674E3D438B08477BD1D11F8BB290B28FA508F76306A2BB05FB
71068D9D929C8F9D08F77E06A3BB05FB88069FDEC8F72BEC8B08D9B757461F84078F0ADB
DB03F7F8A003F88D9D0384A701F79DBB01F802BB01F89CF713019D06090E>
AddEuroGlyph
/Euro /Times-Italic /Times-Italic-Copy BuildNewFont
} if
F /F3 0 /256 T /Times-Italic mF 
/F3S64 F3 [100 0 0 -100 0 0 ] mFS
F3S64 Ji 
475 1552 M (## )[50 51  0]xS 
601 1552 M (Answer the following:)[61 50 39 67 44 39 25 28 50 44 25 28 50 28 28 49 67 28 50 50  0]xS 
1483 1552 M ( )S 
475 1667 M (1.  What operating system are you using?)[50 25 25 26 81 50 50 28 25 50 51 44 39 50 28 28 50 50 25 39 44 39 28 44 72 25 50 39 44 25 44 50
50 25 50 39 28 50 50  0]xS 
2135 1667 M ( )S 
475 1782 M (2.  How much time does it take to complete the lab)[50 25 25 25 72 50 67 25 72 50 44 50 25 28 28 72 44 25 50 50 44 39 25 29 28 25 28 50 44 44 25 28
50 25 44 50 72 50 28 44 28 44 25 28 50 44 25 28 50  0]xS 
2497 1782 M ( \(do not include the time to write )[25 32 50 50 25 50 50 28 25 28 50 44 28 50 50 44 25 28 51 44 25 28 28 72 44 26 28 50 25 67 39 28
28 44  0]xS 
3831 1782 M (your)[44 50 50  0]xS 
4014 1782 M ( )S 
475 1897 M (program\))[50 39 50 50 39 50 72  0]xS 
857 1897 M (?)S 
907 1897 M ( )S 
F1S64 Ji 
475 2012 M ( )S 
F0S64 Ji 
475 2129 M (I.)[39  0]xS 
539 2129 M (  )[25  0]xS 
589 2129 M (INTERRUPT)[39 72 61 67 67 67 72 61  0]xS 
1156 2129 M (-)S 
1189 2129 M (DRIVEN DATA ACQUISITION)[72 67 40 66 67 72 25 72 67 61 67 25 67 67 72 72 39 56 39 61 38 72  0]xS 
2545 2129 M ( )S 
475 2244 M ( )S 
F2S64 Ji 
475 2359 M (Build and Create the Project:)[67 56 28 28 56 25 49 56 56 25 72 44 44 50 33 44 25 33 56 44 26 60 45 50 33 44 44 34  0]xS 
1735 2359 M ( )S 
475 2474 M ( )S 
F1S64 Ji 
475 2587 M (For)[55 50  0]xS 
613 2587 M ( the purposes of this lab, the following files will be called )
[25 28 50 44 25 50 50 33 50 50 40 44 39 25 50 33 25 28 50 28 39 25 28 44 50 25 25 28 50 44 25 33
50 28 28 50 72 28 50 49 26 33 28 28 44 39 25 72 29 28 28 25 50 44 25 44 44 28 28 44 50  0]xS 
F3S64 Ji 
2938 2587 M (support)[39 50 50 50 50 39  0]xS 
Pscript_WinNT_Incr begin
%%BeginResource: file Pscript_Win_GdiObject 5.0 0
/SavedCTM null d/CTMsave{/SavedCTM SavedCTM currentmatrix d}b/CTMrestore
{SavedCTM setmatrix}b/mp null d/ADO_mxRot null d/GDIHMatrix null d
/GDIHPatternDict 22 dict d GDIHPatternDict `/PatternType 1 d/PaintType 2 d/Reps
L2?{1}{5}? d/XStep 8 Reps mul d/YStep XStep d/BBox[0 0 XStep YStep]d/TilingType
1 d/PaintProc{` 1 Lw[]0 sd PaintData , exec E}b/FGnd null d/BGnd null d
/HS_Horizontal{horiz}b/HS_Vertical{vert}b/HS_FDiagonal{fdiag}b/HS_BDiagonal
{biag}b/HS_Cross{horiz vert}b/HS_DiagCross{fdiag biag}b/MaxXYStep XStep YStep
gt{XStep}{YStep}? d/horiz{Reps{0 4 M XStep 0 - 0 8 +}repeat 0 -8 Reps mul + K}b
/vert{Reps{4 0 M 0 YStep - 8 0 +}repeat 0 -8 Reps mul + K}b/biag{Reps{0 0 M
MaxXYStep @ - 0 YStep neg M MaxXYStep @ - 0 8 +}repeat 0 -8 Reps mul + 0 YStep
M 8 8 - K}b/fdiag{Reps{0 0 M MaxXYStep @ neg - 0 YStep M MaxXYStep @ neg - 0 8
+}repeat 0 -8 Reps mul + MaxXYStep @ M 8 -8 - K}b E/makehatch{4 -2 $/yOrg ~ d
/xOrg ~ d GDIHPatternDict/PaintData 3 -1 $ put CTMsave GDIHMatrix setmatrix
GDIHPatternDict matrix xOrg yOrg + mp CTMrestore ~ U ~ 2 ^ put}b/h0{/h0
/HS_Horizontal makehatch}b/h1{/h1/HS_Vertical makehatch}b/h2{/h2/HS_FDiagonal
makehatch}b/h3{/h3/HS_BDiagonal makehatch}b/h4{/h4/HS_Cross makehatch}b/h5{/h5
/HS_DiagCross makehatch}b/GDIBWPatternMx null d/pfprep{save 8 1 $
/PatternOfTheDay 8 1 $ GDIBWPatternDict `/yOrg ~ d/xOrg ~ d/PaintData ~ d/yExt
~ d/Width ~ d/BGnd ~ d/FGnd ~ d/Height yExt RepsV mul d/mx[Width 0 0 Height 0
0]d E build_pattern ~ !}b/pfbf{/fEOFill ~ d pfprep hbf fEOFill{O}{L}? restore}b
/GraphInit{GDIHMatrix null eq{/SavedCTM matrix d : ADO_mxRot concat 0 0 snap +
: 0.48 @ GDIHPatternDict ` YStep mul ~ XStep mul ~ nonzero_dsnap YStep V ~
XStep V ~ E +S/GDIHMatrix matrix currentmatrix readonly d ; : 0.24 -0.24 +S
GDIBWPatternDict ` Width Height E nonzero_dsnap +S/GDIBWPatternMx matrix
currentmatrix readonly d ; ;}if}b
%%EndResource
%%BeginResource: file Pscript_Win_GdiObject_L2 5.0 0
/GDIBWPatternDict 25 dict @ `/PatternType 1 d/PaintType 1 d/RepsV 1 d/RepsH 1 d
/BBox[0 0 RepsH 1]d/TilingType 1 d/XStep 1 d/YStep 1 d/Height 8 RepsV mul d
/Width 8 d/mx[Width 0 0 Height neg 0 Height]d/FGnd null d/BGnd null d
/SetBGndFGnd{BGnd null ne{BGnd aload ! scol BBox aload ! 2 ^ sub ~ 3 ^ sub ~
rf}if FGnd null ne{FGnd aload ! scol}if}b/PaintProc{` SetBGndFGnd RepsH{Width
Height F mx PaintData imagemask Width 0 +}repeat E}b E d/mp/makepattern , d
/build_pattern{CTMsave GDIBWPatternMx setmatrix/nupangle where{! nupangle -90
eq{nupangle R}if}if GDIBWPatternDict @ ` Width Height ne{Width Height gt{Width
Height V 1}{1 Height Width V}? +S}if xOrg yOrg E matrix + mp CTMrestore}b/hbf
{setpattern}b/hf{:/fEOFill ~ d ~ ! setpattern fEOFill{O}{L}? ;}b/pbf{: !
/fEOFill ~ d GDIBWPatternDict `/yOrg ~ d/xOrg ~ d/PaintData ~ d/OutputBPP ~ d
/Height ~ d/Width ~ d/PaintType 1 d/PatternType 1 d/TilingType 1 d/BBox[0 0
Width Height]d/XStep Width d/YStep Height d/mx xOrg yOrg matrix + d 20 dict @ `
/ImageType 1 d/Width Width d/Height Height d/ImageMatrix[1 0 0 1 0 0]d
/BitsPerComponent 8 d OutputBPP 24 eq{/Decode[0 1 0 1 0 1]d}{OutputBPP 8 eq{
/Decode[0 1]d}{/Decode[0 1 0 1 0 1 0 1]d}?}?/DataSource{PaintData}d E/ImageDict
~ d/PaintProc{` ImageDict image E}b & mx makepattern setpattern E fEOFill{O}{L}
? ;}b/mask_pbf{:/fEOFill ~ d 20 dict `/yOrg ~ d/xOrg ~ d/PaintData ~ d/Height ~
d/Width ~ d/PatternType 1 d/PaintType 2 d/TilingType 1 d/BBox[0 0 Width Height]
d/XStep Width d/YStep Height d/mx xOrg yOrg matrix + d/PaintProc{` Width Height
T 1 1 dtransform abs ~ abs ~ 0 0 3 -1 $ 0 0 6 array astore{PaintData}imagemask
E}b & mx makepattern setpattern E fEOFill{O}{L}? ;}b
%%EndResource
end reinitialize
: N 2938 2598 306 5 rp C 
 L ; 3244 2587 M ( )S 
F1S64 Ji 
3269 2587 M (files:)[33 28 28 44 39  0]xS 
3469 2587 M ( )S 
475 2702 M ( )S 
775 2817 M (C6xdsk.cmd, c6x11dsk.h, C6xdsk.h, c6xdskinit.c, c6xdskinit.h, c6xinterrupts.h, )
[67 50 51 50 39 50 25 44 78 50 25 25 44 49 51 50 50 50 39 50 25 49 25 25 67 50 51 50 39 50 25 50
25 25 44 49 51 50 39 50 28 50 27 28 25 44 25 25 44 50 51 50 39 50 28 50 28 28 25 50 25 25 44 49
51 28 50 28 44 33 33 50 50 28 39 25 50 25  0]xS 
775 2932 M (vectors_11.asm)[50 44 44 28 50 33 39 50 50 50 25 44 39  0]xS 
1399 2932 M ( )S 
625 3047 M ( )S 
775 3162 M (We basically discussed these files in class.  They specifically set up interrupt 11)
[95 44 25 50 44 39 28 44 44 28 29 48 25 50 28 39 44 50 39 40 44 50 25 28 50 44 39 44 25 33 28 28
44 39 25 28 50 25 44 28 44 39 39 25 25 25 61 51 46 48 26 39 50 44 44 28 33 28 44 44 28 30 48 25
39 44 28 25 50 50 25 28 50 28 44 34 33 51 50 28 25 50  0]xS 
3975 3162 M ( to )[25 28 50  0]xS 
775 3277 M (correspond to an interrupt from the McBSP saying that it is ready to send data.)
[44 50 33 33 44 39 50 50 50 50 25 28 50 26 44 50 25 28 50 28 44 33 33 50 51 28 25 33 33 50 78 25
28 50 44 25 89 44 66 56 56 25 39 46 48 28 51 50 25 28 50 44 28 25 28 28 25 28 39 25 33 44 44 51
48 25 28 50 25 39 44 50 50 25 51 44 28 44  0]xS 
3921 3277 M ( )S 
775 3392 M ( )S 
625 3507 M ( )S 
775 3507 M (vectors_11.asm )[50 44 44 28 50 33 39 50 50 50 25 44 39 78  0]xS 
1424 3507 M (is the vector table with)[28 39 25 28 50 44 25 50 45 44 28 50 33 25 28 44 50 28 44 25 72 28 28  0]xS 
2335 3507 M ( a branch to the interrupt service routine for )[25 44 25 50 34 44 50 44 50 25 29 50 25 28 50 44 25 28 50 28 44 33 33 50 50 28 25 39 44 33 50 28
45 44 25 33 51 50 28 28 50 44 25 33 50 33  0]xS 
775 3622 M (interrupt 11.)[28 50 28 44 33 33 50 50 28 25 50 50  0]xS 
1269 3622 M ( )S 
475 3737 M ( )S 
475 3852 M (You will need to create a project and add the following files:)
[72 50 50 25 72 28 28 28 25 50 44 44 50 25 28 50 25 44 33 45 44 28 44 25 45 25 50 33 50 28 44 44
28 25 44 50 50 25 44 50 50 25 28 51 44 25 33 50 28 28 51 72 28 50 49 25 33 28 28 44 39  0]xS 
2904 3852 M ( )S 
775 3967 M ( )S 
775 4082 M (loop_)[28 50 50 50  0]xS 
1003 4082 M (intr)[28 50 28  0]xS 
1142 4082 M (.)S 
1167 4082 M (c)S 
1211 4082 M ( and the relevant support files)[25 44 50 50 25 28 50 44 25 33 44 29 44 50 45 50 28 25 39 50 50 50 50 33 28 25 33 28 28 44  0]xS 
2397 4082 M ( \(*.h files are not added )[25 33 50 25 50 25 33 28 28 44 39 25 44 33 44 25 50 50 28 25 44 50 51 44 50  0]xS 
3365 4082 M <96>S 
3415 4082 M ( Scan  All )[25 56 44 44 50 25 25 72 28 29  0]xS 
775 4197 M (Dependencies instead\))[72 44 50 44 50 50 44 51 44 28 44 39 25 28 50 39 28 44 44 50  0]xS 
1676 4197 M ( )S 
475 4312 M ( )S 
775 4427 M (When the McBSP says that it is ready to send data, the interrupt service routine \(ISR\) )
[95 50 44 50 25 28 50 44 25 89 44 66 56 56 25 39 46 47 39 25 28 51 44 28 25 28 28 25 28 39 25 33
44 44 52 48 25 28 50 25 39 44 50 50 25 50 44 28 44 26 25 28 50 44 25 28 50 28 44 33 33 50 50 28
25 39 44 33 50 28 45 44 25 33 50 50 29 28 50 44 25 34 31 56 67 33  0]xS 
775 4542 M (is run.  The interrupt service routine acquires a sample from the input)
[28 39 25 33 50 50 25 25 25 61 50 44 25 28 50 28 44 33 33 50 50 28 25 39 44 33 51 28 44 44 25 33
50 50 28 28 50 44 25 45 44 50 50 28 33 44 39 25 44 25 40 45 78 50 28 44 25 33 33 50 78 25 28 50
44 25 28 50 50 50  0]xS 
3549 4542 M ( and then sends )[25 44 50 50 25 28 50 44 50 25 39 44 50 50 39  0]xS 
775 4657 M (this to the output.  After the data is sent out, the McBSP sends an interrupt saying that )
[28 50 28 39 25 28 50 25 28 50 44 25 50 50 28 50 50 28 25 25 25 72 33 28 44 33 25 28 50 44 25 50
44 28 44 25 28 39 25 39 44 50 28 25 50 50 28 25 25 28 50 44 25 90 44 66 56 56 25 39 44 50 50 39
25 44 50 25 28 50 28 44 34 33 50 50 28 25 39 45 48 28 51 49 25 28 50 44 28  0]xS 
775 4772 M (is ready again to send another sample.  Since the ISR runs in less than 0.125 ms and )
[28 39 25 33 44 44 52 48 25 45 50 44 28 50 25 28 50 25 39 44 50 50 25 44 51 50 28 50 44 33 25 39
44 78 50 28 44 25 25 25 56 28 50 44 44 25 28 50 44 26 33 56 67 25 33 50 50 39 25 28 50 25 28 44
39 39 25 28 50 44 50 25 50 25 50 50 50 25 78 39 25 44 50 50  0]xS 
775 4887 M (since the codec samples at a frequency of 8 kHz \(T=0.125 ms\), tha)
[39 28 50 44 44 25 28 50 44 25 44 50 50 45 44 25 39 44 78 50 28 44 39 26 44 28 25 44 25 33 34 44
50 50 44 50 46 48 25 51 33 25 50 25 50 72 45 25 34 61 56 50 25 50 50 50 25 78 39 33 25 25 28 50
 0]xS 
3447 4887 M (t means we output )[28 25 78 44 44 50 39 26 72 44 25 50 50 28 50 50 28  0]xS 
775 5002 M (data at a frequency of 8kHz.)[50 44 28 44 25 44 28 25 44 25 34 33 44 50 51 44 50 46 48 25 50 33 25 50 51 72 45  0]xS 
1908 5002 M ( )S 
775 5117 M ( )S 
775 5232 M (This routine also stores data in a buffer of size 512 which is rewritten from the )
[61 50 28 39 25 33 50 50 28 28 50 44 25 44 28 39 50 25 39 28 50 33 44 39 25 50 44 28 44 25 28 50
25 44 25 50 50 33 34 44 33 25 50 33 25 39 28 45 44 25 50 50 51 25 72 50 28 44 50 25 28 39 25 33
44 72 33 28 28 28 44 50 25 34 33 50 78 25 28 50 44  0]xS 
775 5347 M (beginning after the end of the buffer is reached.)[50 44 49 28 50 50 28 51 49 25 45 33 28 44 33 25 28 50 44 26 44 50 50 25 51 33 25 28 50 44 25 50
50 33 33 45 33 25 28 39 25 33 45 44 44 50 44 50  0]xS 
2676 5347 M ( )S 
475 5462 M ( )S 
F2S64 Ji 
475 5579 M (Goldwave)[77 50 28 56 73 50 50  0]xS 
903 5579 M ( )S 
F1S64 Ji 
475 5692 M ( )S 
475 5807 M (To generate the input signal for the lab, we will use Goldwave wh)
[61 50 25 49 44 51 44 34 44 28 44 25 28 50 44 25 28 50 50 50 28 25 39 28 50 50 44 28 25 33 50 33
25 28 50 44 25 28 44 50 25 25 73 44 25 72 28 28 28 25 50 39 44 25 72 50 28 50 72 44 50 44 26 72
 0]xS 
3115 5807 M (ich has a function generator )[28 44 50 25 50 44 39 26 44 26 33 50 50 44 28 28 50 50 25 50 44 50 44 34 44 28 50 33  0]xS 
475 5922 M (capability.)[44 44 50 44 50 28 28 28 29 48  0]xS 
893 5922 M ( )S 
475 6037 M ( )S 
475 6152 M (Launch Goldwave and then open a New file which is a mono voice signal.)
[60 44 50 51 44 50 25 72 50 28 50 73 44 50 44 25 44 50 50 25 28 51 44 50 25 50 50 44 50 25 44 25
73 44 72 25 33 28 28 44 26 72 50 28 45 50 25 28 39 25 44 25 78 50 50 50 25 50 50 28 44 44 25 39
28 49 51 44 28  0]xS 
3452 6152 M ( )S 
LH
(%%[Page: 1]%%) = 
%%PageTrailer

%%Page: 2 2
%%PageBoundingBox: 15 15 582 819
%%EndPageComments
%%BeginPageSetup
/DeviceRGB dup setcolorspace /colspABC exch def
mysetup concat colspRefresh
%%EndPageSetup

0 0 0 1 scol 475 498 M ( )S 
475 613 M (Then go to Tools > Expression evaluator.  In the Expression block, type sin\(2*pi*f*t\).  In the )
[61 50 44 50 25 49 50 25 28 50 25 61 50 50 28 39 25 56 26 61 51 50 33 44 39 39 28 50 50 25 44 50
44 28 50 44 28 50 33 25 25 26 32 50 25 28 51 44 26 61 51 50 33 44 39 39 28 50 50 25 50 28 50 44
50 25 25 29 47 51 44 25 39 28 50 33 50 50 50 28 50 33 50 28 33 25 25 26 32 50 25 28 50 44  0]xS 
475 728 M (f= block, type 1000.  Then hit Start.  After th)[33 56 25 50 28 50 44 50 25 25 30 48 50 44 25 50 50 50 50 25 25 25 61 51 45 50 25 50 28 28 25 56