Filter
Top Products
B - Verification and Calibration
68
Figure B-2. Calibration Program Listing (Sheet 1 of 2)
10 !
20 ! AC Source calibration program Rev B.00.00
30 !
40 ASSIGN @Ac TO 705
50 !
60 PRINT TABXY(3,3),"This program will calibrate the 6814B/34B/43A AC Power Solutions."
70 PRINT TABXY(3,5),"Equipment requirements are: Agilent 3458A or equivalent DVM"
80 PRINT TABXY(35,6),"0.01 ohm <200ppm Current Shunt for 6814B/6834B"
90 PRINT TABXY(35,7),"0.001 ohm <200ppm Current Shunt for 6843A"
100 PRINT TABXY(35,8),"0 - 5 ohm > 4.8 kW power resistor for 6843A"
110 PRINT TABXY(35,9),"2 - 15 ohm > 1.5 kW power resistor for 6814B/6834B"
120 PRINT TABXY(35,10),"1 - 1 ohm > 100 watt impedance resistor for 6843A"
130 PRINT TABXY(35,11),"30:1 <50ppm Ratio Transformer"
140 PRINT TABXY(3,13),"Ratio Transformer is required when calibrating to MIL-STD-45662A. If the ratio"
150 PRINT TABXY(3,14),"transformer is not used, the measurement uncertainty must be recalculated."
160 PRINT TABXY(3,16),"IF YOU ARE CALIBRATING A 6843B, SELECT THE PHASE TO CALIBRATE USING THE FRONT"
170 PRINT TABXY(3,17),"PANEL KEYPAD. *** NOTE: THIS PROGRAM WILL ONLY CALIBRATE 1 PHASE. ***"
180 PRINT TABXY(3,18),"YOU MUST RUN THIS PROGRAM 3 TIMES TO CALIBRATE ALL PHASES OF A 6843B."
190 DISP "Press CONT to continue"
200 PAUSE
210 CLEAR SCREEN
220 PRINT TABXY(10,5),"1. Turn the AC Source off"
230 PRINT TABXY(10,7),"2. Disconnect all loads"
240 PRINT TABXY(10,9),"3. Connect the 3458A to the rear terminal block"
250 PRINT TABXY(10,11),"4. Set the 3458A to AC VOLTS"
260 PRINT TABXY(10,13),"5. Turn on the AC Source"
270 !
280 DISP "Press CONT to begin AC PROGRAMMING and MEASUREMENT calibration"
290 PAUSE
300 CLEAR SCREEN
310 PRINT TABXY(18,5),"CALIBRATING AC POGRAMMING and MEASUREMENT"
320 PRINT TABXY(20,7),"There are 4 points to be calibrated"
330 OUTPUT @Ac;"CAL:STATE:ON"
340 OUTPUT @Ac;"CAL:VOLT:AC"
350 OUTPUT @Ac;"CAL:LEV P1"
360 WAIT 10
370 INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p1
380 PRINT TABXY(25,9),"Point 1 entered"
390 OUTPUT @Ac;"CAL:DATA";Ac_p1
400 OUTPUT @Ac;"CAL:LEV P2"
410 WAIT 10
420 INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p2
430 PRINT TABXY(25,11),"Point 2 entered"
440 OUTPUT @Ac;"CAL:DATA";Ac_p2
450 OUTPUT @Ac;"CAL:LEV P3"
460 WAIT 10
470 INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p3
480 PRINT TABXY(25,13),"Point 3 entered"
490 OUTPUT @Ac;"CAL:DATA";Ac_p3
500 OUTPUT @Ac;"CAL:LEV P4"
510 WAIT 10
520 INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p4
530 PRINT TABXY(25,15),"Point 4 entered"
540 OUTPUT @Ac;"CAL:DATA";Ac_p4
550 WAIT 3
560 CLEAR SCREEN
570 !
580 ! Only include lines 580 - 690 if calibrating Agilent 6843
590 !
600 PRINT TABXY(18,5),"CALIBRATING REALTIME VOLTAGE (Agilent 6834A ONLY)"
610 PRINT TABXY(20,7),"There is 1 point to be calibrated"
620 OUTPUT @Ac;"CAL:VOLT:RTIM"
630 OUTPUT @Ac;"CAL:LEV P1"
640 WAIT 10
650 INPUT "Enter realtime rms ( transformer ratio * DVM reading)",Rt_p1
660 PRINT TABXY(25,9),"Point 1 entered"
670 OUTPUT @Ac;"CAL:DATA";Rt_p1
680 WAIT 3
690 CLEAR SCREEN