Table of Contents
Advertisement
410
REPEAT
420
430
440
450
460
470
480
490
500
510
515
520
530
540
550
560
570
580
Fmat2: IMAGE 3X,2D,11X,K,7X,2D.6D,6X,3D.4D
590
600
UNTIL (Err_num<>0) OR (This_point=0) OR (This_point>Max_cal_point)
610
!
620
CALL System_errs(@Afg,Syst_err)
630
!
640
!---------- End of loop ----------
650
!
660
PRINT
670
IF Err_num=0 AND Syst_err=0 THEN
680
690
ELSE
700
710
"&VAL$(This_point)
720
730
740
750
760
END IF
770
!
780
!---------- Quit ----------
790
OUTPUT @Afg;"*RST;*CLS"
800
OUTPUT @Pwr_mtr;"*IP"
810
LOCAL @Dmm
820
LOCAL @Pwr_mtr
830
DISP
840
STOP
850
!
Chapter 3
DISP "AC CALIBRATION IN PROGRESS: CAL POINT #"&VAL$(This_point)
Cal_point=This_point
!
IF This_point=1 THEN
Dmm_flat_rdg(1.E+3,Rdg,0)
Ref=Rdg*SQRT(2)
ELSE
Freq=Freq_step*This_point
Pm_flat_rdg(Freq,Rdg,Pm_setup)
Rdg=Rdg*Corr_factor
Rdg=Rdg*SQRT(2)
Error_db=20*LGT(Rdg/Ref)
END IF
!
OUTPUT @Afg;"CAL:AC:POINT? ";Rdg
ENTER @Afg;This_point,Err_num
PRINT USING Fmat2;Cal_point,Err_num,Rdg,Error_db
!
PRINT "CALIBRATION SUCCESSFUL"
IF Err_num THEN
PRINT "CALIBRATION ERROR NUMBER "&VAL$(Err_num)&" AT CAL POINT
END IF
IF Syst_err THEN
PRINT "ERROR DURING CALIBRATION -- CAL ABORTED."
END IF
(Continued on Next Page)
!Get reading
!Convert to peak volts
!Calculate corrected reading
!Convert to peak volts
!Send reading to AFG
!Returns current cal point,err code
!Reset AFG
!Reset power meter
!Return DMM to local control
Adjustments 73
Advertisement
Table of Contents
