Specifications

Chapter 4 99
Preparation for Accurate Measurement
Fixture Compensation
4. Preparation for Accurate Measurement
180 ! Entry Electrical Length of User's Test Fixture
190 !
200 IF Fix_type$="USER" THEN
210 CALL Inp_data("User's Fixture Electrical
Delay(m)",E_length)
220 OUTPUT @Agte4991a;"SENS:CORR2:FIXT:EDEL:USER:DIST
"&VAL$(E_length)
230 END IF
240 !
250 PRINT "Do you want to entry the comp. standard values?"
260 PRINT
270 INPUT "[Y/N]",Inp_char$
280 IF UPC$(Inp_char$)="Y" THEN
290 !
300 OUTPUT @Agte4991a;"SENS:CORR2:CKIT:LIST OFF"
310 !
320 ! Entry Open Std. Value (G-C)
330 !
340 CALL Inp_data("Open(G)",Open_g)
350 CALL Inp_data("Open(C)",Open_c)
360 OUTPUT @Agte4991a;"SENS:CORR2:CKIT:STAN1:G "&VAL$(Open_g)
370 OUTPUT @Agte4991a;"SENS:CORR2:CKIT:STAN1:C "&VAL$(Open_c)
380 !
390 ! Entry Short Std. Value (R-L)
400 !
410 CALL Inp_data("Short(R)",Short_r)
420 CALL Inp_data("Short(L)",Short_l)
430 OUTPUT @Agte4991a;"SENS:CORR2:CKIT:STAN2:R "&VAL$(Short_r)
440 OUTPUT @Agte4991a;"SENS:CORR2:CKIT:STAN2:L "&VAL$(Short_l)
450 END IF
460 !
470 ! Open Data Measurement
480 !
490 Result=FNFixt_comp(@Agte4991a,"Open")
500 IF Result<>0 THEN Prog_end
510 !
520 ! Short Data Measurement
530 !
540 Result=FNFixt_comp(@Agte4991a,"Short")
550 IF Result<>0 THEN Prog_end
560 !
570 ! Fixture Compensation Done
580 !
590 OUTPUT @Agte4991a;"SENS:CORR2:COLL:SAVE"
600 OUTPUT @Agte4991a;"*OPC?"
610 ENTER @Agte4991a;Buff$
620 PRINT "All Data Measurement Complete"
630 PRINT
640 !
650 ! Fixture Compensation Coefficient Array Reading & Saving
660 !
670 OUTPUT @Agte4991a;"SWE:POIN?"
680 ENTER @Agte4991a;Nop_comp
690 REDIM Comp_a(1:Nop_comp,1:2),Comp_b(1:Nop_comp,1:2)
700 !
710 OUTPUT @Agte4991a;"FORM:DATA ASC"
720 OUTPUT @Agte4991a;"DATA:CMP1?"
730 ENTER @Agte4991a;Comp_a(*)