Ac flatness adjustment procedure (cont’d), Example program (cont’d) – Agilent Technologies 75000 Series C User Manual
Page 105
AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
3080 FOR I=1 TO Max_con
3090 Cal_real(I)=Cal_reflect(I)
3100 IF I=1 THEN Cal_real(I)=Cal_reflect(I)/Scale(1)
! M_plus
3110 IF I=2 THEN Cal_real(I)=Cal_real(I)/Scale(11)
! P_base
3120 IF I=3 THEN Cal_real(I)=Cal_reflect(I)/Scale(2)
! M_minus
3130 IF I=4 THEN Cal_real(I)=Cal_reflect(I)/Scale(3)
! M_adj
3140 IF I=5 THEN Cal_real(I)=Cal_real(I)/Scale(11)
! N_base
3150 IF I>5 AND I<13 THEN Cal_real(I)=Cal_real(I)/Scale(10) !Filter and
3160
! ATTN gain errors
3170 IF I=13 THEN Cal_real(I)=Cal_reflect(I)/Scale(4)
! M_off
3180 IF I=14 THEN Cal_real(I)=Cal_reflect(I)/Scale(5)
! M_cust
3190 IF I=15 THEN Cal_real(I)=Cal_reflect(I)/Scale(6)
! Vpwro
3200 IF I=16 THEN Cal_real(I)=Cal_reflect(I)/Scale(6)
! Vpwri
3210 IF I=17 THEN Cal_real(I)=Cal_reflect(I)/Scale(7)
! Vbuf
3220 IF I=18 THEN Cal_real(I)=Cal_reflect(I)/Scale(8)
! M_sum
3230 IF I=19 THEN Cal_real(I)=Cal_reflect(I)/Scale(9)
! B_sum
3240
! Z_inc_0db (not scaled)
3250
! Z_inc_14db (not scaled)
3260 IF I>21 THEN Cal_real(I)=Cal_real(I)/Scale(10)
! Zout gain errors
3270 NEXT I
3280 !
3290 DEALLOCATE Scale(*),Cal_reflect(*)
3300 SUBEND
3310 !
3320 Valid_cons:SUB Valid_cons(Results(*),INTEGER Cal_problem)
3330 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secure_code$
3340 COM /Flat/ INTEGER Num_points,Max_con
3360 Max_con=25
3370 Cal_problem=0
3380 !
3390 ALLOCATE Cal_real(1:Max_con)
3400 !
3410 CALL Read_dc_cal_con(Cal_real(*))
3420 !CHECK FOR VALID CAL
3430 M_plus=Cal_real(1)
! key cal constant
3440 P_base=Cal_real(2)
! +base
3450 M_minus=Cal_real(3)
! key cal constant
3460 M_adj=Cal_real(4)
! key cal constant
3470 N_base=Cal_real(5)
! -base
3480 !
3490 !Check that cal constants are reasonable--if not, use nominal values
3500 IF (M_plus<-.005 OR M_plus>-.003) THEN M_plus=-3.834E-3
3510 IF (M_minus<-.005 OR M_minus>-.003) THEN M_minus=-3.834E-3
3520 IF (M_adj<-.0012 OR M_adj>-.0009) THEN M_adj=-.001021
3530 IF (P_base<3180 OR P_base>3889) THEN P_base=3535
3540 IF (N_base<10 OR N_base>245) THEN N_base=128
3550 !
(Continued on next page)
Agilent E1445A Service Manual
Adjustments 103