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
END SUB
SUB writesignal
PRINT "Sumaci¢n de señales (S/N): ?"
21 a$ = INKEY$: IF a$ = "" THEN 21
a$ = UCASE$(a$)
SELECT CASE a$
CASE IS = "S"
stacking
CASE IS = "N"
PRINT "no stack"
CASE ELSE
GOTO 21
END SELECT
' a continuacion se grabaran los registros a file
OPEN datafile$ FOR APPEND AS #2
IF n = 1 THEN
FOR i = 1 TO 2500
PRINT #2, tiempos(i);
NEXT
PRINT #2, CHR$(13)
END IF
FOR i = 1 TO 2500
PRINT #2, ValorVolt1(i);
NEXT
PRINT #2, CHR$(13)
IF cnr nr THEN
FOR i = 1 TO 2500
PRINT #2, ValorVolt2(i);
NEXT
n = n + 2
ELSE
n = n + 1
END IF
PRINT #2, CHR$(13)
CLOSE #2
END SUB
Fin de Documento
305