Specifications

152 Chapter 7
Measurement Result Processing
Using Marker Function
"&VAL$(Delta_x)
480 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK:APE:EXC:Y
"&VAL$(Delta_y)
490 !
500 PRINT "Search Range: "&VAL$(Sear_start/1.E+6)&"MHz -
"&VAL$(Sear_stop/1.E+6)&"MHz"
510 !
520 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr1)&":X
"&VAL$(Sear_start)
530 OUTPUT
@Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr1)&":ACT"
540 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK:FUNC:EXEC PPE"
550 IF FNPeak_found(@Agte4991a,Trc1)=0 THEN
560 OUTPUT
@Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr1)&":X?"
570 ENTER @Agte4991a;P_peak_x
580 OUTPUT
@Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr1)&":Y?"
590 ENTER @Agte4991a;P_peak_y
600 PRINT "Positive Peak: ";P_peak_y;"[ohm]
@";P_peak_x/1.E+6;"MHz"
610 ELSE
620 PRINT "Positive Peak: Not Found"
630 END IF
640 !
650 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr2)&":X
"&VAL$(Sear_start)
660 OUTPUT
@Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr2)&":ACT"
670 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK:FUNC:EXEC NPE"
680 IF FNPeak_found(@Agte4991a,Trc1)=0 THEN
690 OUTPUT
@Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr2)&":X?"
700 ENTER @Agte4991a;N_peak_x
710 OUTPUT
@Agte4991a;"CALC"&VAL$(Trc1)&":MARK"&VAL$(Mkr2)&":Y?"
720 ENTER @Agte4991a;N_peak_y
730 PRINT "Negative Peak: ";N_peak_y;"[ohm]
@";N_peak_x/1.E+6;"MHz"
740 ELSE
750 PRINT "Negative Peak: Not Found"
760 END IF
770 !
780 END
790 !
800 SUB Sweep(@Agte4991a)
810 DIM Buff$[9]
820 INTEGER Swp_bool
830 !
840 OUTPUT @Agte4991a;"CALC:AVER?"
850 ENTER @Agte4991a;Swp_bool
860 IF Swp_bool=1 THEN OUTPUT @Agte4991a;"CALC:AVER:CLE"
870 !
880 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
890 OUTPUT @Agte4991a;"STAT:OPER:NTR 16"
900 OUTPUT @Agte4991a;"STAT:OPER:ENAB 16"
910 OUTPUT @Agte4991a;"*SRE 128"
920 OUTPUT @Agte4991a;"*CLS"