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