Giga-tronics 58542 - Relative or Referenced Measurement Examples; Relative or Referenced Measurements Example 1; Relative or Referenced Measurements Example 2

Program Examples
Publication 21555, Rev. E, September 2002 A-43
A.9 Relative or Referenced Measurement Examples
A.9.1 Relative or Referenced Measurements Example 1
The following program automatically sets a power level reference when the computer’s ENTER key is
actuated. From that point forward the power level - relative to the power level at the time the ENTER
key was actuated - is monitored and displayed with minimum and maximum values since the reference
was set.
290 ASSIGN @Pwr_mtr to 70101
300 CLEAR @Pwr_mtr
310 WAIT 1
320 !
330 OUTPUT @Pwr_mtr;CALC1:MODE NORMAL! Can ONLY use REFerence commands in NORMal Mode!!
340 OUTPUT @Pwr_mtr;CALC2:POW 2 ! Channel 2 configured to measure sensor 2 power
350 !
360 OUTPUT @Pwr_mtr;TRIG:SOUR IMM ! TRIG:SOUR must be IMM when using READ#?
370 OUTPUT @Pwr_mtr;INIT:CONT OFF ! INITiate:CONTinuous arming must be OFF when using
! READ#?
380 !
390 OUTPUT @Pwr_mtr;SENS2:AVER:COUN 1 ! Sets averaging to manual and one sample per
! measurement reading.
400 !
410 OUTPUT @Pwr_mtr;SENS2:CORR:FREQ 17.4E9
! Applies Cal Factor for 17.4 GHz to measurement data.
420 !
430 !###########################################
440 !
450 ! Relative measurement setup using CALC#:REF:COLL.
460 !
470 OUTPUT @Pwr_mtr;CALC2:REF:MAG 0.00 ! Resets REFerence level from value set with
CALC2:REF:COLL
480 OUTPUT @Pwr_mtr;CALC2:REF:STAT ON ! Enables REFerence operation.
490 !
500 INPUT Press ENTER key to set to 0.0dB reference operation,Dmy
510 OUTPUT @Pwr_mtr;CALC2:REF:COLL ! Takes current measurement and adds inverse to further
! measurements
520 !
530 ! Setup power meters’ MIN and MAX monitors
540 !
550 OUTPUT @Pwr_mtr;CALC2:MIN:STAT ON
560 OUTPUT @Pwr_mtr;CALC2:MAX:STAT ON
570 !
580 PRINT Power Variation, Largest Min, Largest Max.
590 WHILE Cont_meas=1
600 OUTPUT @Pwr_mtr;MEAS2? ! Measures Power at sensor.
610 ENTER @Pwr_mtr;Rdg
620 !
630 OUTPUT @Pwr_mtr;CALC2:MIN? ! Grabs minimum since CALC2:MIN:STAT ON
640 ENTER @Pwr_mtr;Min
650 OUTPUT @Pwr_mtr;CALC2:MAX? ! Grabs maximum since CALC2:MAX:STAT ON
660 ENTER @Pwr_mtr;Max
670 PRINT Rdg,"",Min,"",Max
680 END WHILE
690 !
890 END