AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
1270 Offset_factor=Dmm_ref
1280 PRINT "CORRECTION FACTOR =";Correct_factor
1290 PRINT
1300 PRINT
1310 PRINTER IS CRT
1320 !
1330 !
1340 !---------- Perform measurements at test freqs ----------
1350 !
1360 PRINT " FREQ READING (V) ERROR (dBm)"
1370 PRINT " ---- ------ ----- -----------"
1380 PRINT
1390 !
1400 FOR I=1 TO Num_points
1410 !Set AFG to test freq
1420 IF Test_freq(I)>1.073741824E+7 THEN !SCPI can’t do 10.8MHz
1430 GOSUB Max_afg_freq !so use register commands
1440 ELSE
1450 OUTPUT @Afg;"FREQ "&VAL$(T est_freq(I))
1460 END IF
1470 !
1480 !Get reading
1490 IF Filter$="250KHZ" THEN !If 250K filter,
1500 CALL Dmm_flat_rdg(Test_freq(I),Reading,Dmm_setup)
1510 ELSE !If 10M filter,
1520 CALL Pm_flat_rdg(Test_freq(I),Reading,Pm_setup)
1530 END IF
1540 Flat_result=Reading*Correct_factor !Adjust reading
1550 !Convert to dBm er ror
1560 Flat_error_dbm=PROUND((20*LGT(Flat_result)+13.0103)-(20*LGT(Offset_factor)+13.0103),-4)
1570 Results(I)=Flat_error _dbm !Store result in array
1580 !
1590 Freq$=FNFormat_num$(Test_freq(I),1.E+5,9,"M6D", "MD. 2DE SZ")
1600 Result_v$=FNFormat_num$(Flat_result,1.E+3,9,"M2 D .5D ","M D .3D ES Z")
1610 Result_dbm$=FNFormat_num$(Flat_error_dbm,10,9, "M2D. 5D" , "MD. 3DE SZ")
1620 PRINT USING "9A,5X,9A,5X,9A" ;Freq$,Result_v$,Result_dbm$
1630 NEXT I !End of loop
1640 PRINT
1650 SUBEXIT
1660 !
1670 Max_afg_freq: !Set AFG to 10.8MHz with regi ster level commands
1680 OUTPUT @Afg;"FREQ MAX" !Get c lose with SCPI
(Continued on next page)
Agilent E1445A Service Manual Adjustments 99