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

6-22 85330A Multiple Channel Controller
Programming
Programming Examples
1039 Chan_start=1 ! First Channel
1040 Chan_stop=4 ! Last Channel
1041 Chan_pts=(Chan_stop-Chan_start)+1 ! Number of channels
1042 Switch_start=Scu_addr*100+Chan_start ! Starting SWITCH ADDRESS
1043 Switch_stop=Scu_addr*100+Chan_stop ! Ending SWITCH ADDRESS
1044 !
1045 Angle_start=-90
1046 Angle_stop=90
1047 Angle_incr=10
1048 Angle_pts=((Angle_stop-Angle_start)/Angle_incr)+1
1049 !
1050 Freq_cw=2 ! GHz
1051 !
1052 Rec_averages=1
1053 !
1054 Points=Angle_pts*Chan_pts ! Total points to be taken.
1055 !
1056 REDIM Data_f1(1:Points,0:2) ! Re-dimension array to the number of points.
1057 ALLOCATE Data_f3(1:Points,1:2) ! Converted data in FORM3 (REAL AND IMAGINARY
1058 ! ! PAIRS).
1059 !
1060 ! Set HP-IB addresses
1061 !
1062 ASSIGN @Rec TO 716 ! ASSIGN 8530A HP-IB.
1063 ASSIGN @Rec_data TO 716;FORMAT OFF ! ASSIGN 8530A DATA HP-IB.
1064 ASSIGN @Hp85330a TO 70918 ! ASSIGN 85330A HP-IB
1065 ASSIGN @Buffer TO BUFFER Data_f1(*) ! ASSIGN input BUFFER for TRANFER
1066 ! ! statement.
1067 Set_receiver:!
1068 !
1069 OUTPUT @Rec;”FREQ;” ! Set to frequency domain
1070 OUTPUT @Rec;”SINC;” ! Set to single channel
1071 OUTPUT @Rec;”SINP;” ! Set to single point
1072 OUTPUT @Rec;”CENT “;Freq_cw;”GZ;” ! Set to single point
1073 OUTPUT @Rec;”PARA1;” ! select b1/a1 ratio
1074 !
1075 IF Rec_averages>1 THEN
1076 OUTPUT @Rec;”AVERON”;Rec_averages;”;” ! Turn averaging on.
1077 ELSE
1078 OUTPUT @Rec;”AVEROFF;” ! Turn averaging off.
1079 END IF
1080 !
1081 !
1082 Set_85330a:!
1083 !