Agilent Technologies 6626A Welding System User Manual


 
Alignment Procedures
95
Alignment Program
10 ! This program called "ALIGN_6626" will align
20 ! the Agilent6625A, 26, 28 and 29A Power Supplies It
30 ! requires an Agilent3458A DMM and a four terminal
40 ! 0.1 ohm current shunt accurate to +/-50 ppm
50 !
60 ! May 06,l989 Rev A.03.01
70 !
80 Clear_screen ! Call program to clear display
90 !
100 COM /Specs/ Vrng_lo,Vrng_hi,Irng_lo,Irng_hi
110 COM /Ps/ Chan,Other_chan,@Ps,Model$[7]
120 COM /Outputs/ No_of_outputs
130 COM /Vm/ @Vm
140 COM /Shunt/ Shunt_r
150 !
160 ASSIGN @Ps TO 705 ! Set Supply address to 705
170 ASSIGN @Vm TO 722 ! Set DMM address to 722
180 PRINTER IS 1 ! Print to the CRT
190 Shunt_r= 1 ! Set value of current shunt
200 !
210 OUTPUT @Ps;"CLR" ! Preset Supply to turn on state
220 OUTPUT @Ps;"ID?" ! Queries Supply model number
230 ENTER @Ps;Model$ ! Enter model number
240 !
250 OUTPUT @Vm;"PRESET NORM;TRIG HOLD" ! Preset DMM
260 OUTPUT @Vm; “NPLC 100” ! Set DMM sample
270 !
280 !
290 !
300 OUTPUT @Ps;"CMODE 1" ! Turn on Supply CAL mode
310 !
320 IF Model$="Agilent6625A" OR Model$='Agilent6628A" THEN No_of_outputs=2
330 IF Model$="Agilent6626A" OR Model$="Agilent6629A" THEN No_of_outputs=4
340 !
350 FOR Chan=1 TO No_of_outputs ! Loop to test all outputs
360 Get_data ! Call program with range data
370 Cal_voltage(Vrng_lo) ! Call program to cal low range voltage
380 Cal_voltage(Vrng_hi) ! Call program to cal high range voltage
390 Cal_overvoltage(Vrng_hi) ! Call program to cal overvoltage
400 Cal_current(Irng_lo) ! Call program to cal low range current
410 Cal_current(Irng hi) ! Call program to cal high range current
420 NEXT Chan ! Test next output
430 !
440 Chan=l ! Select channel to cal sink (-CC)
450 Other_chan=2 ! Select current source channel
460 Get_data ! Call program with range data
470 Cal_sink(Irng_lo,1) ! Call program to cal low range sink
480 ! 1 is + polarity for DMM
490 Chan=2 ! Select channel to cal sink (-CC)
500 Other_chan=l ! Select current source channel
510 Get_data ! Call program with range data
520 Cal_sink(Irng_lo,-1) ! Call program to cal low range sink