410 REPEAT
420 DISP "AC CALIBRATION IN PROGRESS: CAL POINT #"&VAL$(This_point)
430 Cal_point=This_point
440 !
450 IF This_point=1 THEN
460 Dmm_flat_rdg(1.E+3,Rdg,0)
!Get reading
470 Ref=Rdg*SQRT(2)
!Convert to peak volts
480 ELSE
490 Freq=Freq_step*This_point
500 Pm_flat_rdg(Freq,Rdg,Pm_setup)
510 Rdg=Rdg*Corr_factor
!Calculate corrected reading
515 Rdg=Rdg*SQRT(2)
!Convert to peak volts
520 Error_db=20*LGT(Rdg/Ref)
530 END IF
540 !
550 OUTPUT @Afg;"CAL:AC:POINT? ";Rdg
!Send reading to AFG
560 ENTER @Afg;This_point,Err_num
!Returns current cal point,err code
570 PRINT USING Fmat2;Cal_point,Err_num,Rdg,Error_db
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 PRINT "CALIBRATION SUCCESSFUL"
690 ELSE
700 IF Err_num THEN
710 PRINT "CALIBRATION ERROR NUMBER "&VAL$(Err_num)&" AT CAL POINT
"&VAL$(This_point)
720 END IF
730 IF Syst_err THEN
740 PRINT "ERROR DURING CALIBRATION -- CAL ABORTED."
750 END IF
760 END IF
770 !
780 !---------- Quit ----------
790 OUTPUT @Afg;"*RST;*CLS"
!Reset AFG
800 OUTPUT @Pwr_mtr;"*IP"
!Reset power meter
810 LOCAL @Dmm
!Return DMM to local control
820 LOCAL @Pwr_mtr
830 DISP
840 STOP
850 !
(Continued on Next Page)
Chapter 3
Adjustments 73
Содержание E1340A
Страница 6: ...Notes 6 HP E1340A Arbitrary Function Generator Service Manual ...
Страница 8: ......
Страница 10: ...Notes 12 What s in this Manual HP E1340A Service Manual ...
Страница 18: ...Notes 20 General Information Chapter 1 ...
Страница 74: ...Notes 76 Adjustments Chapter 3 ...
Страница 78: ...Notes 80 Replaceable Parts Chapter 4 ...
Страница 104: ...Notes 106 Verification Tests C Programs Appendix A ...