Commit a36a237c authored by thomas.forbriger's avatar thomas.forbriger
Browse files

[WP] (i20_gremlin_example): add calculation of FB coefficients

parent 4e2778fb
...@@ -147,5 +147,24 @@ muted%.ps: muted%.$(FILETYPE) exp%.xxx layer%.tap.xxx ...@@ -147,5 +147,24 @@ muted%.ps: muted%.$(FILETYPE) exp%.xxx layer%.tap.xxx
-Sm 2 -Sr 0.37 -Eg -Se $$(cat $(word 2,$^)) -Sa 15. -Sc 5. \ -Sm 2 -Sr 0.37 -Eg -Se $$(cat $(word 2,$^)) -Sa 15. -Sc 5. \
-Tt "muted data with taper definition" $< -Tt "muted data with taper definition" $<
# ======================================================================
# calculate Fourier-Bessel expansion coefficients
# -----------------------------------------------
%.grn: muted%.$(FILETYPE)
gredax $< $@ -ty $(FILETYPE) -n 100 -s 3.5 -f 80. -t 0. -T 10. \
-1 -v -o
# display Fourier-Bessel expansion coefficients
%grn.ps: %.grn
export PGPLOT_PS_HEIGHT=7070 ; \
export PGPLOT_PS_WIDTH=10000 ; \
unset PGPLOT_IDENT ; \
grepg $< -d $@/vps \
-H 1.6 -q -l 5 -g -T "Fourier-Bessel expansion coefficients" \
-n 1.01 -E -s -f 15 -S -p 2.2 -r 72.,1. \
-X "frequency / Hz" \
-Y "phase-slowness / s km\u-1" \
-S -A "normalized magnitude"
# ----- END OF Makefile ----- # ----- END OF Makefile -----
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment