Agilent Technologies 3458A User Manual page 250

SWEEP
250 Chapter 6 Command Reference
30 Num_samples=lOOO
40 Eff_int=2.0E-6
50 INTEGER Int_samp(1:1000) BUFFER!CREATE INTEGER BUFFER
60 ALLOCATE REAL Wave_form(1:Num_samples)!CREATE ARRAY FOR SORTED DATA
70 ALLOCATE REAL Samp(1:Num_samples)!CREATE ARRAY FOR SAMPLES
80 ASSIGN @Dvm TO 722
90 ASSIGN @Int_samp TO BUFFER Int_samp(*)!ASSIGN BUFFER I/O PATH NAME
100 OUTPUT @Dvm;"PRESET FAST;LEVEL;SLOPE;SSRC LEVEL;SSDC 10"
101 !FAST OPERATION, TARM SYN, LEVEL SYNC SOURCE 0V, POSITIVE SLOPE
105 !(DEFAULT VALUES) SUB-SAMPLING(SINT OUTPUT FORMAT), 10V RANGE
110 OUTPUT @Dvm;"SWEEP ";Eff_int,Num_samples
115 !2µs EFFECTIVE INTERVAL, 1000 SAMPLES
120 TRANSFER @Dvm TO @Int_samp;WAIT!SYN EVENT,TRANSFER READINGS INTO
121 !INTEGER ARRAY; SINCE THE COMPUTER'S INTEGER FORMAT IS THE SAME AS
125 !SINT, NO DATA CONVERSION IS NECESSARY HERE (INTEGER ARRAY REQUIRED)
130 OUTPUT @Dvm;"ISCALE?"
140 ENTER @Dvm; S
150 OUTPUT @Dvm;"SSPARM?"
160 ENTER @Dvm;N1,N2,N3
170 FOR I=1 TO Num_samples
180 Samp(I)=lnt_samp(I)
190 !FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT LINE)
190 R=ABS(Samp(I))
200 IF R>=32767 THEN PRINT "OVLD" !IF OVLD, PRINT OVERLOAD MESSAGE
210 Samp(I)=Samp(I)*S
220 Samp(I)=DROUND(Samp(I),4)
230 NEXT I
235 !--------------------------SORT SAMPLES------------------------------
240 Inc=N1+N2
250 K=1
260 FOR I=1 TO N1
270 L=1
280 FOR J=1 TO N3
290 Wave_form(L)=Samp(K)
300 K=K+1
310 L=L+Inc
320 NEXT J
330 NEXT I
340 FOR I=N1+l TO N1+N2
350 L=I
360 FOR J=1 TO N3-1
370 Wave_form(L)=Samp(K)
380 K=K+1
390 L=L+Inc
400 NEXT J
410 NEXT I
420 END
!DESIGNATE NUMBER OF SAMPLES
!DESIGNATE EFFECTIVE INTERVAL
!ASSIGN MULTIMETER ADDRESS
!QUERY SCALE FACTOR FOR SINT FORMAT
!ENTER SCALE FACTOR
!QUERY SUB-SAMPLING PARAMETERS
!ENTER SUB-SAMPLING PARAMETERS
!CONVERT EACH INTEGER READING TO REAL
!USE ABSOLUTE VALUE TO CHECK FOR OVLD
!MULTIPLY READING TIMES SCALE FACTOR
!ROUND TO 4 DIGITS
!TOTAL NUMBER OF BURSTS