Performance Test and Calibration - B

1080

Rp2=Vt2/Ip2

 

 

 

1090

OUTPUT @Ld;"CAL:DATA";Rp2

 

 

1100

OUTPUT @Ld;"INP:STAT OFF"

 

 

1110

!

 

 

 

 

1120

!

************ CALIBRATING RANGE 3

******************

 

1130

!

 

 

 

 

1140

CLEAR SCREEN

 

 

 

1150

INPUT "Enter value of current shunt for range 3 in OHMS",Rshunt3

 

1160

PRINT TABXY(10,10);"You have entered ";Rshunt3;" ohms"

 

1170

INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$

1180

IF UPC$(Y$)="Y" OR Y$="" THEN 1200

 

 

1190

IF UPC$(Y$)="N" OR Y$="n" THEN 1140

 

 

1200

CLEAR SCREEN

 

 

 

1210

!

 

 

 

 

1220

PRINT TABXY(10,12);"Set power source to voltage and current settings from"

1230

PRINT TABXY(10,13);"Table B-1 for resistance range 3 - Point P1"

 

1240

DISP "Press CONT when ready to calibrate resistance range 3"

 

1250

PAUSE

 

 

 

 

1260

CLEAR SCREEN

 

 

 

1270

PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 3 - P1 - 7 SECOND WAIT"

1280

OUTPUT @Ld;"INP:STAT ON"

 

 

1290

OUTPUT @Ld;"RES:RANG 200" !< resistance range 3 variable from table B-1

1300

OUTPUT @Ld;"CAL:LEV P1"

 

 

1310

WAIT 7

 

 

 

 

1320

INPUT "Measure voltage across current shunt - enter value in volts",Vp1

1330

Ip1=Vp1/Rshunt3

 

 

 

1340

INPUT "Measure voltage across +/- sense terminals and enter value in

 

 

volts",Vt1

 

 

 

1350

Rp1=Vt1/Ip1

 

 

 

1360

OUTPUT @Ld;"CAL:DATA";Rp1

 

 

1370

!

 

 

 

 

1380

CLEAR SCREEN

 

 

 

1390

PRINT TABXY(10,12);"Set power source to voltage and current settings from

 

Table B-2"

 

 

 

1400

PRINT TABXY(10,13);"for resistance range 3 - Point P2"

 

1410

DISP "Press Cont to continue resistance range 3 calibration"

 

1420

PAUSE

 

 

 

 

1430

OUTPUT @Ld;"CAL:LEV P2"

 

 

1440

CLEAR SCREEN

 

 

 

1450

PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 3 - P2 - 7 SECOND

WAIT"

1460

WAIT 7

 

 

 

 

1470

INPUT "Measure voltage across current shunt - enter value in volts",Vp2

1480

Ip2=Vp2/Rshunt3

 

 

 

1490

INPUT "Measure voltage across +/- sense terminals and enter value in

 

 

volts",Vt2

 

 

 

1500

Rp2=Vt2/Ip2

 

 

 

1510

OUTPUT @Ld;"CAL:DATA";Rp2

 

 

1520

OUTPUT @Ld;"INP:STAT OFF"

 

 

1530

!

 

 

 

 

1540

!

************

CALIBRATING RANGE 4

*********************

 

1550

!

 

 

 

 

1560

CLEAR SCREEN￿F1570

INPUT "Enter value of current shunt for range 4 in

 

OHMS",Rshunt4

 

 

 

1580

PRINT TABXY(10,10);"You have entered ";Rshunt4;" ohms"

 

1590

INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$

1600

IF UPC$(Y$)="Y" OR Y$="" THEN 1620

 

 

1610

IF UPC$(Y$)="N" OR Y$="n" THEN 1560

 

 

99

Page 96
Image 96
Agilent Technologies n3302a, n3305a, n3304a, n3301a, n3303a, n3306a, n3300a manual Performance Test and Calibration B