Agilent Technologies 4288A Programming Manual page 46

Preparation for Accurate Measurement (Executing Compensation)
Executing OPEN/SHORT/LOAD Compensation
Example 4-2 Recovering the compensation state (comp_dat.bas)
10
20
30
40
50
60
70
80
90
100
110
120
130
140
d_para$
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
(Fr,2)
330
340
350
360
370
380
390
400
410
420
430
440
450
460 File_error: OFF ERROR
470
480
490
500
510
520 Prog_end: END
44
DIM File_name$[20],Load_para$[5],Img$[30]
REAL Freq(1:2),Open(1:2,1:2),Shor(1:2,1:2)
REAL Load(1:2,1:2),Load_ref(1:2,1:2)
INTEGER Cable,F_shift,Fr
CLEAR SCREEN
!
ASSIGN @Agt4288a TO 717
!
File_name$="Cmp_data"
!
PRINT "[Download Compensation data]"
ON ERROR GOTO File_error
ASSIGN @File TO File_name$;FORMAT OFF
ENTER @File;Cable,F_shift,Open(*),Shor(*),Load(*),Load_ref(*),Loa
ASSIGN @File TO *
OFF ERROR
!
OUTPUT @Agt4288a;":CAL:CABL ";Cable
OUTPUT @Agt4288a;":SYST:FSH ";F_shift
OUTPUT @Agt4288a;":CORR:CKIT:STAN3:FORM "&Load_para$
PRINT "Cable :";Cable;"m"
PRINT "1MHz Shift:";F_shift;"%"
PRINT "Load para : ";Load_para$
!
Freq(1)=1.E+3
Freq(2)=1.E+6
FOR Fr=1 TO 2
OUTPUT @Agt4288a;":SOUR:FREQ ";Freq(Fr)
OUTPUT @Agt4288a;":CORR:DATA STAN1,";Open(Fr,1);",";Open(Fr,2)
OUTPUT @Agt4288a;":CORR:DATA STAN2,";Shor(Fr,1);",";Shor(Fr,2)
OUTPUT @Agt4288a;":CORR:DATA STAN3,";Load(Fr,1);",";Load(Fr,2)
OUTPUT @Agt4288a;":CORR:CKIT:STAN3";Load_ref(Fr,1);",";Load_ref
Img$="7A,MD.5DE,3X,MD.5DE"
PRINT "Frequency :";Freq(Fr);"Hz"
PRINT USING Img$;"Open : ",Open(Fr,1),Open(Fr,2)
PRINT USING Img$;"Short: ",Shor(Fr,1),Shor(Fr,2)
PRINT USING Img$;"Load : ",Load(Fr,1),Load(Fr,2)
PRINT USING Img$;" Ref : ",Load_ref(Fr,1),Load_ref(Fr,2)
NEXT Fr
!
OUTPUT @Agt4288a;":CORR:OPEN ON"
OUTPUT @Agt4288a;":CORR:SHOR ON"
OUTPUT @Agt4288a;":CORR:LOAD ON"
!
GOTO Prog_end
PRINT "################## ERROR ##################"
PRINT "The CAL_DATA (cal. coef. file) is NOT exist."
PRINT "
PRINT "The CAL_DATA's size is UNSUITABLE."
!
or"
Chapter 4