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

!

 

 

6-22

85330A Multiple Channel Controller

Page 96
Image 96
Agilent Technologies 85330A service manual Pairs