Keysight Technologies 3458A Guide D'utilisation page 219

Digitizing 5
10OPTION BASE 1!COMPUTER ARRAY NUMBERING STARTS AT 1
20INTEGER Num_samples,Inc,I,J,K,L!DECLARE VARIABLES
30INTEGER Int_samp(1:1000) BUFFER!CREATE INTEGER BUFFER
40ALLOCATE REAL Wave_form(1:Num_samples)!CREATE ARRAY FOR SORTED DATA
50ALLOCATE REAL Samp(1:Num_samples)!CREATE ARRAY FOR SAMPLES
60Num_samples=1000!DESIGNATE NUMBER OF SAMPLES
70Eff_int=2.0E-6!DESIGNATE EFFECTIVE INTERVAL
80ASSIGN @Dvm TO 722!ASSIGN MULTIMETER ADDRESS
90ASSIGN @Int_samp TO BUFFER Int_samp(*)!ASSIGN I/O PATH NAME TO BUFFER
100OUTPUT @Dvm;"PRESET FAST;SSDC 10;SWEEP ";Eff_int, Num_samples
101!FAST OPERATION, TARM SYN, SUB-SAMPLING (SINT OUTPUT FORMAT), 10 V
RANGE
102!2 μs EFFECTIVE INTERVAL, 1000 SAMPLES
110TRANSFER @Dvm TO @Int_samp;WAIT!SYN EVENT, TRANSFER READINGS
120OUTPUT @Dvm;"ISCALE?"!QUERY SCALE FACTOR FOR SINT FORMAT
130ENTER @Dvm;S!ENTER SCALE FACTOR
140OUTPUT @Dvm;"SSPARM?"!QUERY SUB-SAMPLING PARAMETERS
150ENTER @Dvm;Nl,N2,N3!ENTER SUB-SAMPLING PARAMETERS
160FOR I=1 TO Num_samples
170 Samp(I)=Int_samp(I)!CONVERT EACH INTEGER READING TO REAL
175!FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT LINE)
180 R=ABS(Samp(I))!USE ABSOLUTE VALUE TO CHECK FOR OVLD
190 IF R>=32767 THEN PRINT "OVLD"!IF OVLD, PRINT OVERLOAD MESSAGE
200 Samp(I)=Samp(I)*S!MULTIPLY READING TIMES SCALE FACTOR
210 Samp(I)=DROUND(Samp(I),4)!ROUND TO 4 DIGITS
220NEXT I
230Inc=Nl+N2!Inc = TOTAL NUMBER OF BURSTS
240K=1!SORT SAMPLES
250FOR I=1 TO Nl! "
260 L=I! "
Keysight 3458A User's Guide 219