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
d) Emisor 4 Receptores 1-7
s41 data 23 〈 〉
:= s42 data 24 〈 〉
:= s43 data 25 〈 〉
:=
s44 data 26 〈 〉
:= s45 data 27 〈 〉
:= s46 data 28 〈 〉
:= s47 data 29 〈 〉
:=
e) Emisor 5 Receptores 1-7
s51 data 30 〈 〉
:= s52 data 31 〈 〉
:= s53 data 32 〈 〉
:=
s54 data 33 〈 〉
:= s55 data 34 〈 〉
:= s56 data 35 〈 〉
:= s57 data 36 〈 〉
:=
f) Emisor 6 Receptores 1-7
s61 data 37 〈 〉
:= s62 data 38 〈 〉
:= s63 data 39 〈 〉
:=
s64 data 40 〈 〉
:= s65 data 41 〈 〉
:= s66 data 42 〈 〉
:= s67 data 43 〈 〉
:=
g) Emisor 7 Receptores 1-7
s71 data 44 〈 〉
:= s72 data 45 〈 〉
:= s73 data 46 〈 〉
:=
s74 data 47 〈 〉
:= s75 data 48 〈 〉
:= s76 data 49 〈 〉
:= s77 data 50 〈 〉
:=
Para aumentar la resolución en frecuencia utilizar zero padding (agregar ceros en la cola del registro) a las
49 señales. Ver Santamarina & Fratta (1998).
l := 0.. NN
x := 0
l
s11zp := stack( s11, x)
s33zp := stack( s33, x)
s55zp := stack( s55, x)
s77zp := stack( s77, x)
s12zp := stack( s11, x)
s34zp := stack( s34, x)
s56zp := stack( s56, x)
s13zp := stack( s12, x)
s35zp := stack( s35, x)
s57zp := stack( s57, x)
s14zp := stack( s13, x)
s36zp := stack( s36, x)
s61zp := stack( s61, x)
s15zp := stack( s14, x)
s37zp := stack( s37, x)
s62zp := stack( s62, x)
s16zp := stack( s15, x)
s41zp := stack( s41, x)
s63zp := stack( s63, x)
s17zp := stack( s16, x)
s42zp := stack( s42, x)
s64zp := stack( s64, x)
s21zp := stack( s21, x)
s43zp := stack( s43, x)
s65zp := stack( s65, x)
s22zp := stack( s22, x)
s44zp := stack( s44, x)
s66zp := stack( s66, x)
s23zp := stack( s23, x)
s45zp := stack( s45, x)
s67zp := stack( s67, x)
s24zp := stack( s24, x)
s46zp := stack( s46, x)
s71zp := stack( s71, x)
273