Filter
Top Products
82 Calibration
Program Listing
10 ASSIGN @Ld TO 705
20 Chan=l
30 OUTPUT @Ld;”CHAN”;Chan;”;CAL ON"
40 Cal_curr(@Ld,Chan,Hi_curr_rng,Hi_curr_offset,l)
50 Cal_curr(@Ld,Chan,Lo_curr_rng,Lo_curr_offset,0)
60 Cal_volt(@Ld,Chan,Volt_hipt,Volt_lopt)
70 Cal_res(@Ld,Chan,Lo_res_rng,Lo_res_hipt,Lo_res_lopt,0)
80 Cal_res(@Ld,Chan,Mid_res_rng,Mid_res_hipt,Mid_res_lopt,l)
90 Cal_res(@Ld,Chan,Hi_res_rng,Hi_res_hipt,Hi_res_lopt,1)
100 OUTPUT @Ld;"CAL:SAV"
110 OUTPUT @Ld;"CAL OFF"
120 END
130 !
140 SUB Cal_curr(@Ld,Chan,Curr_rng,Curr_offset,Flag)
150 PRINT "CURRENT CALIBRATION, RANGE ";Curr_rng
160 PRINT "Set power supply according to calibration information table"
170 PRINT "Use the correct current shunt for the range you are calibrating"
180 PRINT "Press CONT when ready"
190 PAUSE
200 OUTPUT @Ld;"CHAN";Chan
210 OUTPUT @Ld;"MODE:CURR"
220 OUTPUT @Ld;"CURR:RANG";Curr_rng
230 OUTPUT @Ld;"CURR";.05*Curr_rng
240 INPUT "Enter current through shunt for low point in amps",Lopt_curr
250 OUTPUT @Ld;"CAL:LEV:LOW";Lopt_curr
260 OUTPUT @Ld;"CURR";.85*Curr_rng
270 IF Flag THEN WAIT 25
280 INPUT "Enter current through shunt for high point in amps",Hipt_curr
290 OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_curr
300 OUTPUT @Ld;"CURR";Curr_rng
310 INPUT "Enter current through shunt for high point in amps",Hipt_curr
320 OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_curr
330 IF Flag THEN OUTPUT @Ld;"CAL:MEAS:HIGH";Hipt_curr
340 IF Flag THEN WAIT 25
350 IF Flag THEN
360 OUTPUT @Ld;"CURR";4*(Curr_rng/3750)
370 WAIT 1
380 INPUT "Enter current through shunt for low point in amps",Lopt_curr
390 OUTPUT @Ld;"CAL:LEV:HIGH";(Lopt_curr-Curr_offset)
400 OUTPUT @Ld;"CAL:MEAS:HIGH";Lopt_curr
410 ELSE
420 OUTPUT @Ld;"CURR";10*(Curr_rng/3750)
430 INPUT "Enter current through shunt for low point in amps",Lopt_curr
440 OUTPUT @Ld;"CAL:LEV:LOW";(Lopt_curr-Curr_offset)
450 END IF
460 PRINT "Test unit to verify that program and readback values are in spec"
470 PRINT "Press CONT when ready to calibrate transient levels
480 PAUSE
490 OUTPUT @Ld;"CURR";.05*Curr_rng
500 OUTPUT @Ld;"TRAN:STAT ON;MODE TOGG;:TRIG:SOUR BUS"
510 OUTPUT @Ld;"CURR:TLEV";.85*Curr_rng