Agilent Technologies 75000 Series C - Manual (Page 101)

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$(Test_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 error
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.2DESZ")
1600 Result_v$=FNFormat_num$(Flat_result,1.E+3,9,"M2D.5D","MD.3DESZ")
1610 Result_dbm$=FNFormat_num$(Flat_error_dbm,10,9,"M2D.5D","MD.3DESZ")
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 register level commands
1680 OUTPUT @Afg;"FREQ MAX"
!Get close with SCPI
(Continued on next page)
Agilent E1445A Service Manual Adjustments 99