mencari waktu radiasi energi dengan SAC
r *II*KAPI*00*LHZ*SAC
rmean
rtrend
hp bu co 0.001 0.005 ! Highpass filter Butterworth frek cor
0.001 – 0.005 Hz
envelope ! Fungsi Hilbert transform e = sqrt (x^2 + y^2).
Kadang envelope harus terpisah dari program macro
smooth mean halfwidth 128 ! Algoritma diperhalus
write KAPI_E128.SAC
bd x
qdp off
r *II*KAPI*00*LHZ*SAC KAPI_INT.SAC KAPI_1H.SAC KAPI_ENV.SAC
KAPI_E8.SAC KAPI_E128.SAC
p1
# Bandpass
# BANDPASS BUTTER CORNER 0.1 0.4 NPOLES 2 PASSES 1 TRANBW 0.3 ATTEN 30.
Komentar
Posting Komentar