AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
3560 !Check for valid cal
3570 Max_filter_db=MAX(Cal_real(6),Cal_real(7),0)
3580 Min_filter_db=MIN(Cal_real(6),Cal_real(7),0)
3590 !
3600 Max_attn_db=0
3610 Min_attn_db=0
3620 FOR I=8 TO 12
3630 IF Cal_real(I)>0 THEN
3640 Max_attn_db=Max_attn_db+Cal_real(I)
3650 ELSE
3660 Min_attn_db=Min_attn_db+Cal_real(I)
3670 END IF
3680 NEXT I
3690 !
3700 Max_zout_db=MAX(Cal_real(22),Cal_real(23),Cal_real ( 24) ,Ca l_ rea l(25), 0)
3710 Min_zout_db=MIN(Cal_real(22),Cal_real(23),Cal_rea l(24) , Cal _re al(25 ),0)
3720 !
3730 Max_pos_gain_db=-1*MAX(Results(*),0)-(Max_f ilter _db+Max_attn_db+Max_zout_db)-1.02
3740 Min_pos_gain_db=-1*MIN(Results(*),0)-(Min_filter_db+M i n_attn_db+Min_zout_db)-1.02
3750 !
3760 !Calculate P_inc’s and N_inc’s
3770 Max_p_inc=10*(10^((Max_pos_gain_db)/20)-1)/M_p lus
3780 Min_p_inc=10*(10^((Min_pos_gain_db)/20)-1)/M_p lus
3790 Max_n_inc=(Max_p_inc*(M_plus-M_minus))/M_adj
3800 Min_n_inc=(Min_p_inc*(M_plus-M_minus))/M_adj
3810 Max_gain_dac=P_base+Max_p_inc
3820 Min_gain_dac=P_base+Min_p_inc
3830 Max_to_dac=N_base+Max_n_inc
3840 Min_to_dac=N_base+Min_n_inc
3850 !
3860 ! PRINT "GAIN DAC EXTREMES: MAX,MIN = "&VAL$(PROUND(Max_gain_dac,-1))&" ,
"&VAL$(PROUND(Min_gain_dac,-1))
3870 ! PRINT "TURNOVER DAC EXTREMES: MAX,MIN = "&VAL$(PROUND(Max_to_dac,-1))&" ,
"&VAL$(PROUND(Min_to_dac,-1))
3880 !
3890 IF Max_gain_dac>4075 OR Min_gain_dac<20 THEN ! If out of ran ge
3900 Cal_problem=1 ! Set flag
3910 PRINT "GAIN DAC OUT OF RANGE"
3920 END IF
3930 !
3940 IF Max_to_dac>247 OR Min_to_dac<8 THEN ! If out of range
3950 Cal_problem=1 ! Don’t store constants
3960 PRINT "TURNOVER DAC OUT OF RANGE"
3970 END IF
3980 !
3990 DEALLOCATE Cal_real(*)
4000 SUBEND
4010 !
(Continued on next page)
104 Adjustments Agilent E1445A Ser vice Manual