Keysight E4990A - Page 274

E4990A Help
264
Analyzer.WriteString ":SENS1:CORR2:COLL:ACQ:LOAD", True
' Wait for measurement end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
End If
' Close IO
Analyzer.IO.Close
End Sub
Sub DefineTermination()
'
Dim LoadF() As String, n As Integer, i As Integer
' Define Short termination by equivalent circuit model
' Set equivalent circuit model for short
Analyzer.WriteString ":SENS1:CORR2:CKIT:SHOR:MOD EQU", True
' Set short termination parameter (L)
Analyzer.WriteString ":SENS1:CORR2:CKIT:SHOR:L 1E-9", True
' Set short termination parameter (R)
Analyzer.WriteString ":SENS1:CORR2:CKIT:SHOR:R 1E-4", True
'
' Define Load by f-Z table model
' Set f-Z table model for short
Analyzer.WriteString ":SENS1:CORR2:CKIT:LOAD:MOD TABL", True
n = 4
ReDim LoadF(n)
' Define f-Z table (freq, real, imaginary)
LoadF(1) = "20, 49.5, 1E-3"
LoadF(2) = "1E3, 49.9, 1.2E-3"
LoadF(3) = "1E6, 50, 1.5E-3"
LoadF(4) = "120E6, 50.9, 2E-3"
' :SENS1:CORR2:CKIT:LOAD:TABL {n}, {freq 1}, {real 1}, {imaginary 1}, ... , {freq n}, {real n},
{imaginary n}
Analyzer.WriteString ":SENS1:CORR2:CKIT:LOAD:TABL " & Str(n) & ",", False ' Set f-Z table
For i = 1 To n - 1
Analyzer.WriteString LoadF(i) & ",", False