Specifications

68 Chapter 3
Setting Measurement Conditions
Example program for setting the segment sweep conditions
410 DATA 100E6, 1E9, 101, 4, 0.1
420 DATA 1E9, 3E9, 51, 4, 0.1
430 !
440 RESTORE Data_wo_bias
450 FOR Segm_no=1 TO No_of_segment
460 READ Start_f,Stop_f,Nop,Point_avg,Osc
470 CALL
Segm_tbl(@Agte4991a,Segm_no,Start_f,Stop_f,Nop,Point_avg,Osc_unit$,
Osc)
480 NEXT Segm_no
490 END IF
500 !
510 Finish_entry:!
520 OUTPUT @Agte4991a;"SEGM:COUN?"
530 ENTER @Agte4991a;Seg_count
540 PRINT "Preparation of Segment Table finished. (No. of
Segmnet: "&VAL$(Seg_count)&")"
550 !
560 END
570 !
580 ! Segment Table Setting with DC Bias
590 !
600 SUB Segm_tbl_bias(@Agte4991a,INTEGER Seg_no,REAL
Start_f,Stop_f,INTEGER Nop,Point_avg,Osc_unit$,REAL
Osc,Dcbias_unit$,REAL Dcbias,Dcbias_lim)
610 !
620 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":FREQ:STAR
"&VAL$(Start_f)
630 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":FREQ:STOP
"&VAL$(Stop_f)
640 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":SWE:POIN
"&VAL$(Nop)
650 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":AVER:COUN
"&VAL$(Point_avg)
660 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":"&Osc_unit$&"
"&VAL$(Osc)
670 SELECT Dcbias_unit$
680 CASE "VOLT"
690 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":VOLT:OFFS
"&VAL$(Dcbias)
700 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":CURR:LIM
"&VAL$(Dcbias_lim)
710 CASE "CURR"
720 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":CURR:OFFS
"&VAL$(Dcbias)
730 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":VOLT:LIM
"&VAL$(Dcbias_lim)
740 END SELECT
750 !
760 SUBEND
770 !
780 ! Segment Table Setting w/o DC Bias
790 !
800 SUB Segm_tbl(@Agte4991a,INTEGER Seg_no,REAL
Start_f,Stop_f,INTEGER Nop,Point_avg,Osc_unit$,REAL Osc)
810 !
820 OUTPUT @Agte4991a;"SEGM"&VAL$(Seg_no)&":FREQ:STAR
"&VAL$(Start_f)