Anritsu MG3642A Portable Generator User Manual


 
SECTION 6 GPIB
6-54
100 *************************************************
110 **
120 * INPUT vs OUTPUT characteristic of amplifier *
130 * measurement program *
140 **
150 *************************************************
160
170 ************** initialize GPIB system ****************
180
190 ISET IFC ........................................................................................................ Sends interface clear
200 ISET REN ................................................................................................ Makes remote enable true
210 CMD DELIM=2 ....................................................................................................Sets the delimiter to LF
220 CMD TIMEOUT=5 ............................................................................... Sets the time-out parameter to 5 sec.
230
240 *********** input measurement parameter *************
250
260 INPUT MEASUREMENT FREQUENCY (MHz) ;MF
270
280 ************** setting the MG3641A/MG3642A *****************
290
300 PRINT @3; *RST ............................................................................... Initializes the MG3641A/MG3642A
310 PRINT @3; :FREQ+STR$(MF)+MHz ............................................................................. Sets a frequency
320 PRINT @3; :AMPL:STAT OFF ..................................................................................... Turns off the output
330
340 ************** setting the MS2651A *****************
350
360 PRINT @1; INI .................................................................................................. Initializes the MS2651A
370 PRINT @1; SP 100KHZ .........................................................................Sets the frequency span to 100 kHz
380 PRINT @1; CF+STR$(MF)+MHZ ........................................................................ Sets a center frequency
390 PRINT @1; RL 20DBM .......................................................................... Sets the reference level to 20 dBm
400
410 ****************** measurement *******************
420
430 PRINT INPUT OUTPUT GAIN
440 PRINT @3; :AMPL:STAT ON ...................................................................................... Turns on the output
450 FOR LEVEL1 = 30 TO 0 STEP 2
460 PRINT @3; :AMPL:LEV+STR$(LEVEL1)+dBm .................................................... Sets the output level
470 FOR TIMER = 0 TO 1000:NEXT TIMER
480 PRINT @1; TS;MKPK ........................................................................ Sweeps once and searches for a peak
490 PRINT @1; MKL? .................................................................. Issues a marker level reading data request
500 INPUT @1;LEVEL2
510 PRINT USING ###.#dBm ###.#dBm ###.#dB;LEVEL1,LEVEL2,LEVEL2-LEVEL1
520 NEXT LEVEL1
530
540 END