Agilent Technologies 4288A User Manual

236 Appendix B
Information for Replacing 4278A with 4288A
Example of Replacing Major Functions (comparison of programs)
Compensation
Table B-22 compares the programs used by the 4278A and 4288A to perform
Open/Short/Standard (Load) compensation.
Table B-22 Comparison of programs used to perform Open/Short/Standard (Load)
compensation
4278A 4288A
10 DIM Buff$[9],Inp_char$[9]
20 REAL Data1,Data2
30 ASSIGN @Agt4278a TO 717
40 !
50 !
60 OUTPUT @Agt4278a;"*SRE8"
70 !
80 OUTPUT @Agt4278a;"*CLS"
90 WAIT .1
100 !
110 ON INTR 7 GOTO Open_end
120 ENABLE INTR 7;2
130 PRINT "[Open mesurement]"
140 INPUT "Push [Enter] key to start",Inp_char$
150 OUTPUT @Agt4278a;"XOP"
160 Open_wait:GOTO Open_wait
170 Open_end:OFF INTR 7
180 OUTPUT @Agt4278a;"OPEN1" ! Open On
190 OUTPUT @Agt4278a;"OPM?"
200 ENTER @Agt4278a;Data1,Data2
210 PRINT " Open Compensation Data:"
220 PRINT " Cp:";Data1,"G:";Data2
230 !
240 OUTPUT @Agt4278a;"*CLS"
250 WAIT .1
260 !
270 ON INTR 7 GOTO Short_end
280 ENABLE INTR 7;2
290 PRINT "[Short mesurement]"
300 INPUT "Push [Enter] key to start",Inp_char$
310 OUTPUT @Agt4278a;"XSH"
320 Short_wait: GOTO Short_wait
330 Short_end: OFF INTR 7
340 OUTPUT @Agt4278a;"SHOR1" ! Short On
350 OUTPUT @Agt4278a;"SHM?"
360 ENTER @Agt4278a;Data1,Data2
370 PRINT " Short Compensation Data:"
380 PRINT " Ls:";Data1,"Rs:";Data2
390 !
400 ! Load standard definition
410 OUTPUT @Agt4278a;"SPAR1"
420 OUTPUT @Agt4278a;"CSTD=47E-12"
430 OUTPUT @Agt4278a;"DSTD=0"
440 OUTPUT @Agt4278a;"*CLS"
450 WAIT .1
460 !
470 ON INTR 7 GOTO Load_end
480 ENABLE INTR 7;2
490 PRINT "[Load mesurement]"
500 INPUT "Push [Enter] key to start",Inp_char$
510 OUTPUT @Agt4278a;"XSTD"
520 Load_wait: GOTO Load_wait
530 Load_end: OFF INTR 7
540 OUTPUT @Agt4278a;"STD1" ! Standard On
550 OUTPUT @Agt4278a;"STM?"
560 ENTER @Agt4278a;Data1,Data2
570 PRINT " Load Compensation Data:"
580 PRINT " Cp:";Data1,"D:";Data2
590 !
600 END
10 DIM Buff$[9],Inp_char$[9]
20 REAL Data1,Data2
30 ASSIGN @Agt4288a TO 717
40 !
50 OUTPUT @Agt4288a;":STAT:OPER:ENAB 128"
60 OUTPUT @Agt4288a;"*SRE 128"
70 !
80 OUTPUT @Agt4288a;"*CLS"
90 OUTPUT @Agt4288a;"*OPC?"
100 ENTER @Agt4288a;Buff$
110 ON INTR 7 GOTO Open_end
120 ENABLE INTR 7;2
130 PRINT "[Open mesurement]"
140 INPUT "Push [Enter] key to start",Inp_char$
150 OUTPUT @Agt4288a;":CORR:COLL STAN1"
160 Open_wait:GOTO Open_wait
170 Open_end:OFF INTR 7
180 !
190 OUTPUT @Agt4288a;":CORR:DATA? STAN1"
200 ENTER @Agt4288a;Data1,Data2
210 PRINT " Open Compensation Data:"
220 PRINT " G:";Data1,"B:";Data2
230 !
240 OUTPUT @Agt4288a;"*CLS"
250 OUTPUT @Agt4288a;"*OPC?"
260 ENTER @Agt4288a;Buff$
270 ON INTR 7 GOTO Short_end
280 ENABLE INTR 7;2
290 PRINT "[Short mesurement]"
300 INPUT "Push [Enter] key to start",Inp_char$
310 OUTPUT @Agt4288a;":CORR:COLL STAN2"
320 Short_wait: GOTO Short_wait
330 Short_end: OFF INTR 7
340 !
350 OUTPUT @Agt4288a;":CORR:DATA? STAN2"
360 ENTER @Agt4288a;Data1,Data2
370 PRINT " Short Compensation Data:"
380 PRINT " R:";Data1,"X:";Data2
390 !
400 ! Load standard definition
410 OUTPUT @Agt4288a;":CORR:CKIT:STAN3:FORM CPD"
420 OUTPUT @Agt4288a;":CORR:CKIT:STAN3 47E-12,0"
430 !
440 OUTPUT @Agt4288a;"*CLS"
450 OUTPUT @Agt4288a;"*OPC?"
460 ENTER @Agt4288a;Buff$
470 ON INTR 7 GOTO Load_end
480 ENABLE INTR 7;2
490 PRINT "[Load mesurement]"
500 INPUT "Push [Enter] key to start",Inp_char$
510 OUTPUT @Agt4288a;":CORR:COLL STAN3"
520 Load_wait: GOTO Load_wait
530 Load_end: OFF INTR 7
540 !
550 OUTPUT @Agt4288a;":CORR:DATA? STAN3"
560 ENTER @Agt4288a;Data1,Data2
570 PRINT " Load Compensation Data:"
580 PRINT " Cp:";Data1,"D:";Data2
590 !
600 END

Agilent Technologies 4288A Specifications

General

Brand	Agilent Technologies
Model	4288A
Category	Measuring Instruments
Language	English