![](/images/new-backgrounds/1204431/204431199x1.webp)
Programming
Programming Examples
1044 | OUTPUT @Rec;”LISFREQ;” |
| ! Turn on FREQ LIST. |
1045 | ! |
|
|
1046 | IF Rec_averages>1 THEN |
|
|
1047 | OUTPUT @Rec;”AVERON”;Rec_averages;”;” | ! Turn averaging on. | |
1048 | ELSE |
|
|
1049 | OUTPUT @Rec;”AVEROFF;” | ! Turn averaging off. | |
1050 | END IF |
|
|
1051 | ! |
|
|
1052 | ! | ||
1053 | ! |
|
|
1054 | OUTPUT @Rec;”STITOFF;”! STIMULUS TRIGGER OFF | ||
1055 | OUTPUT @Rec;”PAR1TON;”! PARAMETER 1 TRIGGER ON | ||
1056 | OUTPUT @Rec;”PAR2TON;”! PARAMETER 2 TRIGGER ON | ||
1057 | OUTPUT @Rec;”PAR3TON;”! PARAMETER 3 TRIGGER ON | ||
1058 | OUTPUT @Rec;”PAR4TON;”! PARAMETER 4 TRIGGER ON | ||
1059 | ! |
|
|
1060 | ! Set all ratios for each displayed parameter to a common channel | ||
1061 | ! |
|
|
1062 | OUTPUT @Rec;”PARA1;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio | ||
1063 | OUTPUT @Rec;”PARA2;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio | ||
1064 | OUTPUT @Rec;”PARA3;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio | ||
1065 | OUTPUT @Rec;”PARA4;NUMEB1;DENOA1;LOCKNONE;DRIVNONE;REDD;” ! b1/a1 ratio | ||
1066 | ! |
|
|
1067 | ! Set the active channels using the | ||
1068 | ! |
|
|
1069 | IF Chan_pts=1 THEN OUTPUT @Rec;”SINC;” |
| |
1070 | IF Chan_pts=2 THEN OUTPUT @Rec;”TWOP;” |
| |
1071 | IF Chan_pts=3 THEN OUTPUT @Rec;”THREEP;” |
| |
1072 | IF Chan_pts=4 THEN OUTPUT @Rec;”FOURP;” |
| |
1073 | ! |
|
|
1074 | ! The first pass of a frequency sweep for the HP 8360A source is slower than | ||
1075 | ! subsequent sweeps, since the source is in learn mode. Take one slow one, | ||
1076 | ! then one fast one. |
|
|
1077 | ! |
|
|
1078 | FOR Passes=1 TO 2 | ! Take two passes: one slow, one fast. | |
1079 | OUTPUT @Rec;”TRGSFRE;HOLD;” ! Use internal triggering for these sweeps. | ||
1080 | OUTPUT @Rec;”SING;” | ! take a single sweep. | |
1081 | FOR N=1 TO Chan_pts |
|
|
1082 | OUTPUT @Rec;”PARA”&VAL$(N)&”;” |
| |
1083 | OUTPUT @Rec;”FORM3;OUTPDATA;” |
| |
1084 | ENTER @Rec_data;Preamble,Data_bytes |
| |
1085 | ENTER @Rec_data;Data_freq(*) |
| |
1086 | NEXT N |
|
|
1087 | NEXT Passes |
|
|
1088 | ! |
|
|
85330A Multiple Channel Controller |