Giga-tronics 58542 - Page 216

58542 VXIbus Universal Power Meter
A-34 Publication 21555, Rev. E, September 2002
940 Corr_freq=Strt_freq+(I-1)*(Stop_freq-Strt_freq)/(Swep_pnts-1)
! Corr_freq is freq corresponding to Clf_corr(I)
950 FOR K=1 TO No_cal_pnts ! Find next highest and lowest Cal Factor
! frequency from Corr_freq
960 IF Freqs(K)>=Corr_freq THEN
970 Next_higher_f=Freqs(K)
980 Next_higher_clf=Clfcs(K)
990 Next_lower_f=Freqs(K-1)
1000 Next_lower_clf=Clfcs(K-1)
1010 K=No_cal_pnts
1020 !
1030 END IF
1040 NEXT K
1050 F_delta_multpl=(Corr_freq-Next_lower_f)/(Next_higher_f-Next_lower_f)
! Multiplier for next formula
1060 Corr_clf(I)=Next_lower_clf+F_delta_multpl*(Next_higher_clf-Next_lower_clf)
! Interpolates the Cal Factor Value
1070 PRINT Corr_freq,Corr_clf(I)
1080 NEXT I
1090 !
1100 ! Set the source for swept operation
1110 !
1120 PRINT Configuring Gigatronics 7200 Microwave Sweeper.
1130 OUTPUT @Sweeper,HP ! Set Giga-tronics 7200 to HP emulation mode
1140 OUTPUT @Sweeper;OPFA;Strt_freq
1150 OUTPUT @Sweeper;OPFB;Stop_freq
1160 OUTPUT @Sweeper;FC;Tim_per_pnt*Swep_pnts;MS
1170 !
1180 ! Perform Measurement in Burst Mode or Swift Mode for Fast measurements.
1190 ! Shared Variables may include Sweep_pnts and Tim_per_pnt
1200 !
1210 GOSUB Burst_mode_swp ! Goes to the swept frequency, Burst/Swift Mode Data
! acquisition subroutine
1220 !
1230 ! Data comes back in from Burst Mode-or Swift Mode-as rdgs(*). Always in log units, dBm.
1240 !
1250 MAT Rdgs_corr=Rdgs+Corr_clf ! Array math function that adds the measurement
! data to the cal factor array
1260 !
1270 GOSUB Output_data ! Output to screen graph, printout, file, etc.....
1280 !
1290 END