Chapter 5 Digitizing 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 !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=l !SORT SAMPLES
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 !CLEAR CONTROLLER CRT
420Time_div=l.0E-5 !TIME PER DIVISION FOR PLOT
430Volts_div=5 !VOLTS PER DIVISION FOR PLOT
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 VIEWPORT 20,110,20,90
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
To Next Page
Loading...
Need help?
General
