Programming
Programming Examples
1039 | Chan_start=1 |
| ! First Channel |
1040 | Chan_stop=4 |
| ! Last Channel |
1041 | ! 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 |
|
| |
1046 | Angle_stop=90 |
|
|
1047 | Angle_incr=10 |
|
|
1048 | |||
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) | ! | |
1057 | ALLOCATE Data_f3(1:Points,1:2) ! Converted data in FORM3 (REAL AND IMAGINARY | ||
1058 | ! | ! PAIRS). | |
1059 | ! |
|
|
1060 | ! Set |
|
|
1061 | ! |
|
|
1062 | ASSIGN @Rec TO 716 |
| ! ASSIGN 8530A |
1063 | ASSIGN @Rec_data TO 716;FORMAT OFF | ! ASSIGN 8530A DATA | |
1064 | ASSIGN @Hp85330a TO 70918 |
| ! ASSIGN 85330A |
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 | ! |
|
|
85330A Multiple Channel Controller |