AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
420 Flatness:SUB Flatness(Filter$,Mode$)
430 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer ,Secure_code$
440 COM /Flat/ INTEGER Num_points,Max_ con
450 INTEGER Filter,Ac_cal_int(1:2)
460 CLEAR SCREEN
470 !
480 !---------- In itialize variables ----------
490 Ampl_dbm=24 !AFG max amplitude
500 !
510 !---------- Main Program ----------
520 IF Filter$="250KHZ" THEN
530 Num_points=25 !Number of test points
540 Max_freq=2.50E+5
550 ELSE !Else, 10M filter will be used
560 Num_points=27 !Number of test points
570 Max_freq=1.08E+7
580 END IF
590 PRINT "FILTER = "&Filter$
600 !
610 ALLOCATE Test_freq(1:Num_points),Results(1 :Nu m_ poi nt s)
620 !
630 !Determine test frequencies
640 Step_size=Max_freq/Num_points
650 FOR I=1 TO Num_points
660 Test_freq(I)=Step_s ize*I
670 NEXT I
680 !
690 GOSUB Setup_afg
700 CALL Meas_flat(Test_freq(*),Results(*),Filter$)
710 !
720 IF Mode$="A" THEN
730 CALL Adj_flat(Results(*),Filter$,Test_freq(Num_points) )
740 END IF
750 !
760 DEALLOCATE Test_freq(*),Results(*)
770 SUBEXIT
780 !
790 Setup_afg: !
800 OUTPUT @Afg;"*RST;*CLS"
810 WAIT .5
820 !
(Continued on next page)
Agilent E1445A Service Manual Adjustments 97