HP 8712ES - Page 71

Automating Measurements 5-13
Automated Measurement Setup and Control
Using Single Sweep to Measure and View All Four S-Parameters
1230 !
1240 DIM A$[10],Data1(1:201)
1250 INTEGER Digits,Bytes
1260 COM /Sys_state/ @Hp87xx,Scode
1270 !
1280 CALL Iden_port ! Identify I/O Port
1290 !
1300 OUTPUT @Hp87xx;”SYST:PRES” ! System Preset
1310 OUTPUT @Hp87xx;”*OPC?”
1320 ENTER @Hp87xx;Opc_flag ! Operation complete
1330 !
1340 ! Select Default Two Port Calibration on MEAS 1 and 2
1350 !
1360 DISP “Enabling 2-Port Calibration...”
1370 OUTPUT @Hp87xx;”SENS2:STAT ON” ! Turn on MEAS 2
1380 OUTPUT @Hp87xx;”SENS1:FUNC ‘XFR:S 1,1’” ! MEAS 1 = S11
1390 OUTPUT @Hp87xx;”SENS2:FUNC ‘XFR:S 2,1’” ! MEAS 2 = S21
1400 OUTPUT @Hp87xx;”SENS1:CORR:CLASS:SEL DEFAULT2” ! Default
2-Port
1410 OUTPUT @Hp87xx;”SENS2:CORR:CLASS:SEL DEFAULT2” ! Default
2-Port
1420 OUTPUT @Hp87xx;”DISP:FORM ULOW” ! Split Display
1430 OUTPUT @Hp87xx;”*OPC?”
1440 ENTER @Hp87xx;Opc_flag ! Operation complete
1450 DISP ““
1460 !
1470 ! Take a single sweep, leaving the analyzer
1480 ! in trigger hold mode.
1490 !
1500 OUTPUT @Hp87xx;”ABOR;:INIT1:CONT OFF;:INIT1;*WAI”
1510 !
1520 ! Copy MEAS 1 Data (S11) into MEAS 1 Memory trace
1530 ! Copy MEAS 2 Data (S21) into MEAS 2 Memory trace
1540 !
1550 DISP “Copy S11 to Mem1”
1560 OUTPUT @Hp87xx;”TRAC CH1SMEM,CH1SDATA” ! Ch1 Data->Mem
1570 DISP “Copy S21 to Mem2”
1580 OUTPUT @Hp87xx;”TRAC CH2SMEM,CH2SDATA” ! Ch2 Data-> Mem
1590 OUTPUT @Hp87xx;”*OPC?”
1600 ENTER @Hp87xx;Opc_flag
1610 !
1620 ! Now select S22 on MEAS 1 and S12 on MEAS 2.
1630 !
1640 DISP “Meas S22 on ch1”
1650 OUTPUT @Hp87xx;”SENS1:FUNC ‘XFR:S 2,2’” ! MEAS 1 = S22
1660 OUTPUT @Hp87xx;”*OPC?”
1670 ENTER @Hp87xx;Opc_flag ! Opeation complete.
1680 !
1690 DISP “Meas S12 on ch2”
1700 OUTPUT @Hp87xx;”SENS2:FUNC ‘XFR:S 1,2’” ! MEAS 2 = S12
1710 OUTPUT @Hp87xx;”*OPC?”
1720 ENTER @Hp87xx;Opc_flag ! Opeation complete.
1730 !
1740 ! Display Data and Memory on both MEAS channels. Autoscale
result.
1750 !
1760 OUTPUT @Hp87xx;”CALC1:MATH (IMPL);:DISP:WIND1:TRAC1 ON;TRAC2
ON”
1770 OUTPUT @Hp87xx;”DISP:WIND1:TRAC:Y:AUTO ONCE”
1780 OUTPUT @Hp87xx;”CALC2:MATH (IMPL);:DISP:WIND2:TRAC1 ON;TRAC2