Agilent Technologies Multiple Channel Controller 85330A - Manual (Page 104)

6-30 85330A Multiple Channel Controller
Programming
Programming Examples
1045 !
1046 Angle_start=-90
1047 Angle_stop=90
1048 Angle_incr=10
1049 Angle_pts=((Angle_stop-Angle_start)/Angle_incr)+1
1050 !
1051 Freq_start=3 ! GHz
1052 Freq_stop=5 ! GHz
1053 Freq_pts=11 ! Points
1054 Freq_offset=.020 ! Ghz
1055 Freq_step=(Freq_stop-Freq_start)/(Freq_pts-1)
1056 !
1057 Points=Angle_pts*Chan_pts*Freq_pts ! Total points to be measured for
1058 ! ! a singe angle scan.
1059 !
1060 REDIM Data_f1(1:Points,0:2) ! 6 byte format.
1061 ALLOCATE REAL Data_f3(1:Points,1:2) ! Real and imaginary pairs
1062 !
1063 Rec_averages=1
1064 !
1065 ! Set HP-IB addresses
1066 !
1067 ASSIGN @Rec TO 716 ! ASSIGN HP 8530A HP-IB.
1068 ASSIGN @Rec_data TO 716;FORMAT OFF ! ASSIGN HP 8530A DATA HP-IB.
1069 ASSIGN @Rf TO 719 ! ASSIGN HP 8360 RF SOURCE HP-IB.
1070 ASSIGN @Lo TO 718 ! ASSIGN HP 8360 LO SOURCE HP-IB.
1071 ASSIGN @Hp85330a TO 70918 ! Assign HP 85330A HP-IB
1072 ASSIGN @Buffer TO BUFFER Data_f1(*)! ASSIGN INPUT BUFFER.
1073 !
1074 Set_receiver: !
1075 !
1076 OUTPUT @Rec;”ADDRSOUR 31;” ! Since the HP 8530A does NOT have control of the
1077 OUTPUT @Rec;”ADDRSOU2 31;” ! sources, set the source address on the
1078 ! ! HP 8530A to 31.
1079 !
1080 OUTPUT @Rec;”FREQ;” ! Set to frequency domain
1081 OUTPUT @Rec;”SINC;” ! Set to single channel
1082 OUTPUT @Rec;”SINP;” ! Set to single point
1083 OUTPUT @Rec;”PARA1;” ! select b1/a1 ratio
1084 !
1085 IF Rec_averages>1 THEN
1086 OUTPUT @Rec;”AVERON”;Rec_averages;”;” ! Turn averaging on.
1087 ELSE
1088 OUTPUT @Rec;”AVEROFF;” ! Turn averaging off.
1089 END IF
1090 !
1091 Set_8360:!
1092 !
1093 ! Place the source in SCPI language