SWEEP
250 Chapter 6 Command Reference
30 Num_samples=lOOO !DESIGNATE NUMBER OF SAMPLES
40 Eff_int=2.0E-6 !DESIGNATE EFFECTIVE INTERVAL
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 !ASSIGN MULTIMETER ADDRESS
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?" !QUERY SCALE FACTOR FOR SINT FORMAT
140 ENTER @Dvm; S !ENTER SCALE FACTOR
150 OUTPUT @Dvm;"SSPARM?" !QUERY SUB-SAMPLING PARAMETERS
160 ENTER @Dvm;N1,N2,N3 !ENTER SUB-SAMPLING PARAMETERS
170 FOR I=1 TO Num_samples
180 Samp(I)=lnt_samp(I) !CONVERT EACH INTEGER READING TO REAL
190 !FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT LINE)
190 R=ABS(Samp(I)) !USE ABSOLUTE VALUE TO CHECK FOR OVLD
200 IF R>=32767 THEN PRINT "OVLD" !IF OVLD, PRINT OVERLOAD MESSAGE
210 Samp(I)=Samp(I)*S !MULTIPLY READING TIMES SCALE FACTOR
220 Samp(I)=DROUND(Samp(I),4) !ROUND TO 4 DIGITS
230 NEXT I
235 !--------------------------SORT SAMPLES------------------------------
240 Inc=N1+N2 !TOTAL NUMBER OF BURSTS
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
To Next Page
Loading...
Need help?
General
