Specifications

174 Chapter 7
Measurement Result Processing
Equivalent Circuit Analysis
610
620 SCPI.Output "CALC" & CStr(trc1) & ":EPAR:SIM"
630 SCPI.Output "CALC" & CStr(trc2) & ":EPAR:SIM"
640 SCPI.Output "DISP:TRAC" & CStr(trc1) & ":Y:FOR AND"
650 SCPI.Output "DISP:TRAC" & CStr(trc2) & ":Y:FOR AND"
660 SCPI.Output "DISP:TRAC" & CStr(trc1) & ":Y:AUTO"
670 SCPI.Output "DISP:TRAC" & CStr(trc2) & ":Y:AUTO"
680
690 SCPI.Output "FORM:DATA ASC"
700 SCPI.Output "CALC" & CStr(trc1) & ":DATA? FMEM"
710 SCPI.Enter sim_data_z, "#"
720 SCPI.Output "CALC" & CStr(trc2) & ":DATA? FMEM"
730 SCPI.Enter sim_data_thd, "#"
740
750 file = "a:\equ_trace"
760 fileNum = FreeFile
770 Open file For Output As #fileNum
780 For i = 1 To nop
790 Print #fileNum, Val(sim_data_z(i - 1))
800 Next i
810 For i = 1 To nop
820 Print #fileNum, Val(sim_data_thd(i - 1))
830 Next i
840 Close #fileNum
850 End If
860
870 End
880 End Sub