490 DISP "Press ’Continue’ when ready"
500 PAUSE
510 DISP
520 NEXT I
530 !
540 END
550 !
560 !---------- Measurement subprogram ----------
570 SUB Meas_thd(Frequency,Thd)
580 INTEGER Harmonic
590 CLEAR SCREEN
600 Harmonic=1
610 !
620 GOSUB Meas_fund
!Get fundamental amplitude
630 !
640 !Measure harmonics 2-5
650 Sum_amp_sqr=0
660 FOR Harmonic=2 TO 5
670 GOSUB Meas_amp
680 Sum_amp_sqr=Sum_10^(Result/10)
!Sum squared voltages
690 NEXT Harmonic
700 !
720 Thd=20*LGT(SQRT(Sum_amp_sqr))
!Calculate THD in dBc
720 SUBEXIT
730 !
740 Meas_fund: !
750 PRINT "FUNDAMENTAL"
760 PRINT "Set Spectrum Analyzer Center Freq to: "&VAL$(Frequency)&" Hz."
770 PRINT "Measure amplitude at the center frequency."
780 PRINT
790 INPUT "Enter amplitude (in dBm):",Baseline
800 RETURN
810 !
820 Meas_amp: !
830 PRINT "HARMONIC =";Harmonic
840 PRINT "Set Spectrum Analyzer Center Freq to: "&VAL$(Frequency*Harmonic)&" Hz."
850 PRINT "Measure amplitude at the center frequency."
860 PRINT
870 INPUT "Enter amplitude (in dBm):",Reading
880 Result=Reading-Baseline
890 RETURN
900 SUBEND
Chapter 2
Verification Tests 53
Содержание E1340A
Страница 6: ...Notes 6 HP E1340A Arbitrary Function Generator Service Manual ...
Страница 8: ......
Страница 10: ...Notes 12 What s in this Manual HP E1340A Service Manual ...
Страница 18: ...Notes 20 General Information Chapter 1 ...
Страница 74: ...Notes 76 Adjustments Chapter 3 ...
Страница 78: ...Notes 80 Replaceable Parts Chapter 4 ...
Страница 104: ...Notes 106 Verification Tests C Programs Appendix A ...