HP 8590 E & L Series Spectrum Analyzers and HP 8591C Cable TV ...

330 OUTPUT @Sa;"MKPK HI; TS;"
340 OUTPUT OSa;"MKTRACK ON; SP IOOKZ; TS;"
350 !turn off signal track:
360 OUTPUT QSa;"MKTRACK OFF;"
370 !find the peak of the signal; move peak to center
380 !of screen:
390 OUTPUT OSa;"AUNITS V;"! MAKE READOUT UNITS VOLTS
400 !find peak of signal; send amplitude value to
410 !computer
420 !enter the amplitude of the fundamental:
430 OUTPUT @Sa;"MKPK HI; MKA?;"
440 ENTER OSa;Fund,amptd-v
450 !send marker frequency to the computer, enter
460 !frequency value:
470 OUTPUT OSa;"MKF?;"
480 ENTER OSa;Fundamental
490 !make the fundamental frequency the center freq
500 !step size:
510 OUTPUT OSa;"MKSS;"
520 !set the fundamental frequency units to MHz:
530 Fundamental=Fundamental/l.E+6
540 Harmonics: !measure the amplitudes of the harmonics:,
550 FOR Number=2 TO Max-harmonic
560 DISP "MEASURING HARMONIC #";Number
570 OUTPUT @Sa;"SP 20MZ;" !set span to 20 MHz
580 OUTPUT @Sa;"CF UP; TS;" !tune to next harmonic
590 !take second sweep to allow spectrum analyzer to move to the
600 !center frequency; find the signal peak; activate
610 !signal track:
620 OUTPUT @Sa;"TS;"
630 OUTPUT @Sa;"MKPK HI; MKTRACK ON; SP IOOKZ; TS;"
640 !turn off signal track:
650 OUTPUT OSa;"MKTRACK OFF;"
660 !find signal peak; send amplitude value to computer
670 !enter the amplitude of the harmonic:
680 OUTPUT OSa;"MKPK HI; MKA?;"
690 ENTER QSa;Harmonic-v(Number)
700 NEXT Number
710 !set amplitude units to dBm:
720 OUTPUT OSa;"AUNITS DBM;"
730 !calculate the fundamental amplitude in dBm because
740 !it was measured in volts:
750 Fund,amptd_dbm=lO*LGT(Fund_amptd_v^2/.05)
760 !calculate the sum of the squares of the amplitudes
770 !of the harmonics; calculate amplitudes of
780 !harmonics (dBm):
790 Sum-sqr=O
800 FOR I=2 TO Max-harmonic
810 Sum,sqr=Sum,sqr+Harmonic,v(I)^2
820 Harmonic-dbc(I)=20*LGT(Fund-amptd-v/Harmonic-v(1))
830 NEXT I
3-l 6 Programming Topics