Caracterización de Arenas y Gravas con Ondas Elásticas

Doctorado en Ingeniería – Facultad de Ingeniería – Universidad Nacional de Cuyo – Año 2007
Lic. Armando Luis Imhof
INPUT "Ingrese nro de emisores:"; ns
INPUT "Ingrese nro de receptores:"; nr
PRINT
PRINT "Asegurese que en la opcion siguiente el archivo no exista en disco,"
PRINT "a menos que quiera agregar mas señales"
PRINT
INPUT "Ingrese Nombre de archivo de datos de resguardo: ", datafile$
PRINT
PRINT , , datafile$
PRINT
PRINT
nstack = 0
10 PRINT "Esperando Orden (SP:adquirir y esperar otro evento CR:end :"
20 a$ = INKEY$: IF a$ = "" THEN 20
SELECT CASE a$
CASE IS = CHR$(13)
END
CASE IS = " "
adquisicion
writesignal
CASE ELSE
GOTO 20
END SELECT
CLS
GOTO 10
END
' RUTINAS
REM $STATIC
SUB adquisicion
' subrutina para capturar datos desde el TDS210
ordrayo
IF cnr = nr THEN
PRINT "procesando señal Nro:"; n
PRINT "Emisor:"; cns
PRINT "Receptor:"; cnr
ELSE
PRINT "procesando se¤ales Nro:"; n; n + 1
PRINT "Emisor:"; cns
PRINT "Receptores:"; cnr; cnr + 1
END IF
PRINT "leyendo del TDS210 ..."
OPEN "COM1:9600,N,8,1,LF,RB5000" FOR RANDOM AS #scope% LEN = 4096
PRINT #1, "*cls"
PRINT #1, "*wai"
PRINT #1, "wfmpre:encdg ASC"
PRINT #1, "wfmpre:pt_fmt y"
PRINT #1, "data:start 1"
PRINT #1, "data:stop 2500"
PRINT #1, "data:width 1"
' Channel 1
PRINT #1, "data:source ch1"
PRINT #1, "wfmpre:ch1:yzero?"
INPUT #1, ycero
PRINT #1, "wfmpre:ch1:ymult?"
INPUT #1, ymulti
PRINT #1, "wfmpre:ch1:yoff?"
INPUT #1, yofff
PRINT #1, "curve?"
PRINT
FOR i = 1 TO 2500
303