Chapter 4 69
Preparing For Accurate Measurement
Fixture Compensation
1. Chapter Title
2. Chapter Title 3. Chapter Title
4. Getting Ready For
5. Chapter Title
Accurate Measurement
150 Cal_point$="FIXED"
160 Point=100
170 File$="COM_DATA"
180 Std_file$="STD_VAL"
190 !
200 ! Initial Setting
210 !
220 OUTPUT @Hp4294a;"PRES"
230 OUTPUT @Hp4294a;"*OPC?"
240 ENTER @Hp4294a;Buff$
250 OUTPUT @Hp4294a;"CALP ";Cal_point$
260 !
270 ! Load Data
280 !
290 ASSIGN @File TO File$
300 ENTER @File;Com_o(*),Com_s(*),Com_l(*)
310 ASSIGN @File TO *
320 !
330 ASSIGN @File TO Std_file$
340 ENTER @File;Open_g,Open_c,Short_r,Short_l,Load_r,Load_l
350 ASSIGN @File TO *
360 !
370 ! Define Standard Value
380 !
390 OUTPUT @Hp4294a;"DCOMOPENG ";Open_g
400 OUTPUT @Hp4294a;"DCOMOPENC ";Open_c/1.E-15
410 OUTPUT @Hp4294a;"DCOMSHORR ";Short_r
420 OUTPUT @Hp4294a;"DCOMSHORL ";Short_l
430 OUTPUT @Hp4294a;"DCOMLOADR ";Load_r
440 OUTPUT @Hp4294a;"DCOMLOADL ";Load_l
450 !
460 ! Input Compensation Data
470 !
480 OUTPUT @Hp4294a;"FORM3"
490 Header$="#6"&IVAL$(Point*2*8,10)
500 !
510 OUTPUT @Hp4294a;"INPUCOMC1 "&Header$;
520 OUTPUT @Binary;Com_o(*),END
530 !
540 OUTPUT @Hp4294a;"INPUCOMC2 "&Header$;
550 OUTPUT @Binary;Com_s(*),END
560 !
570 OUTPUT @Hp4294a;"INPUCOMC3 "&Header$;
580 OUTPUT @Binary;Com_l(*),END
590 !
600 END