Keysight N3300A User Manual page 103

B - Performance Test and Calibration
1620 CLEAR SCREEN
1630 !
1640 PRINT TABXY(10,12);"Set power source to voltage and current settings from"
1650 PRINT TABXY(10,13);"Table B-1 for resistance range 4 - Point P1"
1660 DISP "Press CONT when ready to calibrate resistance range 4"
1670 PAUSE
1680 CLEAR SCREEN
1690 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 4 - P1 - 3 SECOND WAIT"
1700 OUTPUT @Ld;"INP:STAT ON"
1710 OUTPUT @Ld;"RES:RANG 2000"!< resistance range 4 variable from table B-1
1720 OUTPUT @Ld;"CAL:LEV P1"
1730 WAIT 3
1740 INPUT "Measure voltage across current shunt - enter value in volts",Vp1
1750 Ip1=Vp1/Rshunt4
1760 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt1
1770 Rp1=Vt1/Ip1
1780 OUTPUT @Ld;"CAL:DATA";Rp1
1790 !
1800 CLEAR SCREEN
1810 PRINT TABXY(10,12);"Set power source to voltage and current settings from
Table B-2"
1820 PRINT TABXY(10,13);"for resistance range 4 - Point P2"
1830 DISP "Press Cont to continue resistance range 4 calibration"
1840 PAUSE
1850 OUTPUT @Ld;"CAL:LEV P2"
1860 CLEAR SCREEN
1870 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 4 - P2 - 3 SECOND
1880 WAIT 3
1890 INPUT "Measure voltage across current shunt - enter value in volts",Vp2
1900 Ip2=Vp2/Rshunt4
1910 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt2
1920 Rp2=Vt2/Ip2
1930 OUTPUT @Ld;"CAL:DATA";Rp2
1940 OUTPUT @Ld;"INP:STAT OFF"
1950 !
1960 OUTPUT @Ld;"CAL:SAVE"
1970 OUTPUT @Ld;"CAL:STAT OFF"
1980 !
1990 CLEAR SCREEN
2000 PRINT TABXY(10,10);"Resistance calibration adjustments complete"
2010 PRINT TABXY(10,12);"Verify Resistance Adjustments"
2020 END
102
WAIT"