22.09.2015 Views

of Microprocessors

Musical-Applications-of-Microprocessors-2ed-Chamberlin-H-1987

Musical-Applications-of-Microprocessors-2ed-Chamberlin-H-1987

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

+4<br />

+3<br />

+2<br />

+1<br />

0<br />

-I<br />

-2<br />

-3<br />

-4<br />

AMPLITUDE (dBI<br />

DAC RESPDNSE /<br />

/COMPENSATOR RESPONSE<br />

COMPENSATED<br />

RESPONSE<br />

-6<br />

-8<br />

-10<br />

-12<br />

-14<br />

-16<br />

-18<br />

-2D<br />

0.1 0.15 0.2<br />

(AI<br />

0.3 0.4 0.5 0.6 08 1.0 I. 2 I. 5 2.0<br />

(AI<br />

3.0 4.0 5.0 6.0 8.0 10.0<br />

NORMALIZED FREQUENCY<br />

10 REM PROGRAM TO AID IN THE DESIGN OF 2-POLE COMPENSATION FILTERS FOR DACS<br />

11 REM USING FINITE OUTPUT PULSE WIDTHS AND TIME CONSTANT LIMITED DEGLITCHERS.<br />

20 REM IN STATEMENTS 101-105, SET THE VARIABLES AS FOLLOWS:<br />

21 REM F1 = SAMPLE RATE AS A MULTIPLE OF THE MAIN FILTER'S CUTOFF FREOUENCY<br />

22 REM TO = DAC OUTPUT PULSE WIDTH AS A FRACTION OF THE SAMPLE PERIOD<br />

23 REM T1 = DEGLITCHER TIME CONSTANT AS A FRACTION OF THE SAMPLE PERIOD<br />

24 REM FO = RESONANT FREQUENCY OF PROPOSED COMPENSATION FILTER<br />

25 REM QO = RESONANT Q OF PROPOSED COMPENSATION FILTER<br />

26 REM N = NUMBER OF FREQUENCY POINTS TO EVALUATE AND PRINT<br />

30 REM WHEN RUN, THE PROGRAM PRINTS THE NORMALIZED FREOUENCY BETWEEN 0.1 AND<br />

31 REM 10 TIMES THE MAIN FILTER CUTOFF FREOUENCY ON A LOG SCALE AND THEN FOR<br />

32 REM EACH FREQUENCY, THE RAW DAC OUTPUT AMPLITUDE INCLUDING SIN(X)/X AND<br />

33 REM DEGLITCHER TIME CONSTANT LOSSES, THE COMPENSATION FILTER GAIN, AND THE<br />

34 REM PRODUCT OF THE TWO WHICH IS THE COMPENSATED DAC OUTPUT.<br />

101 F1=2. 50<br />

102 TO=1.0<br />

103 T1=0.1<br />

104 FO=1.58<br />

105 QO=1.45<br />

106 N=100<br />

200 F2=F1/(6.283*T1): REM NORMALIZED 3DB DOWN POINT OF DEGLITCHER<br />

201 F3=FI/TO: REM NORMALIZED FREQUENCY OF FIRST SIN(X)/X NULL<br />

210 F=O.I: REM INITIAL STARTING FREOUENCY<br />

220 PRINT "FREQUENCY";TAB(l5);"DAC OUTPUT";TAB(30);"COMP. GAIN";TAR(45);<br />

221 PRINT "COMPOSITE"<br />

230 F=O.I: REM INITIAL FREQUENCY<br />

300 A=ABS(SIN(3.14159*F/F3)/(3.14159*F/F3)): REM SIN(X)/X LOSS<br />

301 A=A*((F2/F)/SOR(I+(F2/F)t2)): REM DEGLITCHER ADDITIONAL LOSS<br />

310 G=SQR(I/((F/FO)t4+(F/FO)t2*(1/QOt2-2)+I)): REM COMP FILTER GAIN<br />

320 R=A*G: REM COMPOSITE CORRECTED OUTPUT<br />

400 PRINT F;TAR(15);A;TAB(30);G;TAB(45);R<br />

500 F=F*10 (2/N)<br />

510 IF F

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!