Agilent Technologies 3458A User Manual page 147

101!FAST OPERATION, TARM SYN, SUB-SAMPLING (SINT OUTPUT FORMAT), 10V RANGE
102!2ms EFFECTIVE INTERVAL, 1000 SAMPLES
110TRANSFER @Dvm TO @Int_samp;WAIT
120OUTPUT @Dvm;"ISCALE?"
130ENTER @Dvm;S
140OUTPUT @Dvm;"SSPARM?"
150ENTER @Dvm;Nl,N2,N3
160FOR I=1 TO Num_samples
170 Samp(I)=Int_samp(I)
175
LINE)
180 R=ABS(Samp(I))
190 IF R>=32767 THEN PRINT "OVLD"
200 Samp(I)=Samp(I)*S
210 Samp(I)=DROUND(Samp(I),4)
220NEXT I
230Inc=Nl+N2
240K=l
250FOR I=1 TO Nl
260 L=I
270 FOR J=l TO N3
280 Wave_form(L)=Samp(K)
290 K=K+l
300 L=L+Inc
310 NEXT J
320NEXT I
330FOR I=Nl+l TO Nl+N2
340 L=I
350 FOR J=l TO N3-1
360 Wave_form(L)=Samp(K)
370 K=K+l
380 L=L+Inc
390 NEXT J
400NEXT I
410DISP
420Time_div=l.0E-5
430Volts_div=5
440Plot_it(Time_div,Volts_div,Wave_form(*),Eff_int)
450END
460SUB Plot_it(Time_div,Volts_div,Wave_form(*),Time_base)
470DIM X_axis$[80],Y_axis$[80]
480GINIT
490GRAPHICS ON
500RAD
510MOVE 35,10
520LDIR 0
530X_axis$="TIME/DIV = "&VAL$(Time_div)
540LABEL X_axis$
550MOVE 15,35
560LDIR PI/2
570Y_axis$="VOLTS/DIV = "&VAL$(Volts_div)
580LABEL Y_axis$
590
600WINDOW 0,10*Time_div,-4*Volts_div,4*Volts_div
610AXES Time_div/5,Volts_div/5,0,0,1,1,1
620GRID Time_div,Volts_div
630Wave x=0
640MOVE Wave_x,Wave_form(BASE(Wav_form,l))
650FOR Wave_y=BASE(Wave_form,l)+l TO SIZE(Wave_form,l)-l+BASE (Wave_form,l)
660 Wave_x=Wave_x+Time_base
!SYN EVENT, TRANSFER READINGS
!QUERY SCALE FACTOR FOR SINT FORMAT
!ENTER SCALE FACTOR
!QUERY SUB-SAMPLING PARAMETERS
!ENTER SUB-SAMPLING PARAMETERS
!CONVERT EACH INTEGER READING TO REAL
!FORMAT (NECESSARY TO PREVENT POSSIBLE INTEGER OVERFLOW ON NEXT
!USE ABSOLUTE VALUE TO CHECK FOR OVLD
!IF OVLD, PRINT OVERLOAD MESSAGE
!MULTIPLY READING TIMES SCALE FACTOR
!ROUND TO 4 DIGITS
!Inc = TOTAL NUMBER OF BURSTS
!SORT SAMPLES
! "
! "
! "
! "
! "
! "
! "
! "
! "
! "
! "
! "
! "
! "
! "
! "
!CLEAR CONTROLLER CRT
!TIME PER DIVISION FOR PLOT
!VOLTS PER DIVISION FOR PLOT
VIEWPORT 20,110,20,90
Chapter 5 Digitizing 147