Agilent Technologies 4288A Programming Manual page 50

Preparation for Accurate Measurement (Executing Compensation)
Using the Multi-compensation Function
Example 4-3 Executing the multi compensation (multi.bas)
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300 Prog_end:
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
48
INTEGER Ch,Result
CLEAR SCREEN
!
ASSIGN @Agt4288a TO 717
!
OUTPUT @Agt4288a;":SYST:PRES"
OUTPUT @Agt4288a;":CORR:MULT ON"
OUTPUT @Agt4288a;":CORR:MULT:CKIT:STAN3 ON"
OUTPUT @Agt4288a;":DISP:TEXT2:PAGE 5"
!
FOR Ch=0 TO 3
PRINT "## Channel No.: ";Ch;"##"
OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
Result=FNCompen(@Agt4288a,"Open",.00002)
IF Result<>0 THEN Prog_end
NEXT Ch
FOR Ch=0 TO 3
PRINT "## Channel No.: ";Ch;"##"
OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
Result=FNCompen(@Agt4288a,"Short",20)
IF Result<>0 THEN Prog_end
NEXT Ch
FOR Ch=0 TO 3
PRINT "## Channel No.: ";Ch;"##"
OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
Result=FNCompen(@Agt4288a,"Load",.2)
IF Result<>0 THEN Prog_end
NEXT Ch
!
END
!=============================================
! Compensation Data Measurement Function
!=============================================
DEF FNCompen(@Agt4288a,Standard$,Limit)
DIM Inp_char$[9],Buff$[9],Std$[9],Err$[50]
REAL Curr_freq,Freq(1:2),Para1,Para2,Zm,Ym,Gm,Bm
REAL Cpref,Dref,Zref,Gref,Bref
INTEGER Err_flag
OUTPUT @Agt4288a;":SOUR:FREQ?"
ENTER @Agt4288a;Curr_freq
Freq(1)=1.E+3
Freq(2)=1.E+6
Load_para$="CPD"
OUTPUT @Agt4288a;":STAT:OPER:ENAB 128"
OUTPUT @Agt4288a;"*SRE 128"
SELECT Standard$
CASE "Open"
Std$="STAN1"
CASE "Short"
Std$="STAN2"
CASE "Load"
Std$="STAN3"
CALL Inp_data("Load(Cp) Value @1kHz",Load1(1))
CALL Inp_data("Load(D)
CALL Inp_data("Load(Cp) Value @1MHz",Load1(2))
CALL Inp_data("Load(D)
OUTPUT @Agt4288a;":CORR:CKIT:STAN3:FORM "&Load_para$
FOR I=1 TO 2
OUTPUT @Agt4288a;":SOUR:FREQ ";Freq(I)
OUTPUT @Agt4288a;":CORR:CKIT:STAN3 ";Load1(I);",";Load2(I)
NEXT I
Value @1kHz",Load2(1))
Value @1MHz",Load2(2))
Chapter 4