Specifications

Chapter 7 171
Measurement Result Processing
Equivalent Circuit Analysis
7. Measurement Result Processing
670 OUTPUT @Agte4991a;"FORM:DATA ASC"
680 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":DATA? FMEM"
690 ENTER @Agte4991a;Sim_data_z(*)
700 OUTPUT @Agte4991a;"CALC"&VAL$(Trc2)&":DATA? FMEM"
710 ENTER @Agte4991a;Sim_data_thd(*)
720 !
730 File$="equ_trace"
740 Data_size=(Nop*2)*8
750 CREATE File$,Data_size
760 ASSIGN @File TO File$;FORMAT OFF
770 OUTPUT @File;Sim_data_z(*),Sim_data_thd(*)
780 ASSIGN @File TO *
790 !
800 END
810 !
820 SUB Sweep(@Agte4991a)
830 DIM Buff$[9]
840 INTEGER Swp_bool
850 !
860 OUTPUT @Agte4991a;"CALC:AVER?"
870 ENTER @Agte4991a;Swp_bool
880 IF Swp_bool=1 THEN OUTPUT @Agte4991a;"CALC:AVER:CLE"
890 !
900 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
910 OUTPUT @Agte4991a;"STAT:OPER:NTR 16"
920 OUTPUT @Agte4991a;"STAT:OPER:ENAB 16"
930 OUTPUT @Agte4991a;"*SRE 128"
940 OUTPUT @Agte4991a;"*CLS"
950 OUTPUT @Agte4991a;"*OPC?"
960 ENTER @Agte4991a;Buff$
970 !
980 ON INTR 7 GOTO Swp_end
990 ENABLE INTR 7;2
1000 OUTPUT @Agte4991a;"INIT"
1010 DISP "Now Measuring..."
1020 Swp_wait: GOTO Swp_wait
1030 Swp_end: DISP "Sweep Complete"
1040 OFF INTR 7
1050 SUBEND