xcshot

来自「su 的源代码库」· 代码 · 共 58 行

#! /bin/sh
# Run CSHOT with CWP X Graphics

demo=11

x1beg=0 x1end=2200 x2beg=0 x2end=10000

cp param1.1 param1
cshot1 |
cshotplot >demo${demo}plot  outpar=demo${demo}par
xgraph <demo${demo}plot par=demo${demo}par style=seismic \
	-geometry 400x250+700+0 \
	title="Primary Rays" \
	label1="Depth (ft)"  label2="Range (ft)" \
	x1beg=$x1beg x1end=$x1end x2beg=$x2beg x2end=$x2end &
cshot2
suaddhead <demo${demo}traces ftn=1 ns=501 |
sushw key=dt a=4000 |
sugain gagc=1 wagc=0.5 |
suxwigb title="Primaries (agc)" \
	xbox=50 ybox=75 \
	wbox=300 hbox=430 \
	label1="Time in Seconds" label2="Trace" &

cp param1.2 param1
cshot1 |
cshotplot >demo${demo}plot  outpar=demo${demo}par
xgraph <demo${demo}plot par=demo${demo}par style=seismic \
	-geometry 400x250+700+350 \
	title="Direct+Head" \
	label1="Depth (ft)"  label2="Range (ft)" \
	x1beg=$x1beg x1end=$x1end x2beg=$x2beg x2end=$x2end &
cshot2
suaddhead <demo${demo}traces ftn=1 ns=501 |
sushw key=dt a=4000 |
sugain gagc=1 wagc=0.5 |
suxwigb title="Direct+Head (agc)" \
	xbox=50 ybox=570 \
	wbox=300 hbox=430 \
	label1="Time in Seconds" label2="Trace" &

cp param1.3 param1
cshot1 |
cshotplot >demo${demo}plot  outpar=demo${demo}par
xgraph <demo${demo}plot par=demo${demo}par style=seismic \
	-geometry 400x250+700+700 \
	title="All the Rays" \
	label1="Depth (ft)"  label2="Range (ft)" \
	x1beg=$x1beg x1end=$x1end x2beg=$x2beg x2end=$x2end &
cshot2
suaddhead <demo${demo}traces ftn=1 ns=501 |
sushw key=dt a=4000 |
sugain gagc=1 wagc=0.5 |
suxwigb title="All (agc)" \
	xbox=370 ybox=250 \
	wbox=300 hbox=430 \
	label1="Time in Seconds" label2="Trace" &