shotgather.doc

来自「this is the list program operated under 」· DOC 代码 · 共 43 行

#! /bin/sh
# shell for Kirchhoff modeling for arbitrary v(x,z)

out=shot
model=model
nt=400  dt=0.004 

nxo=24 fxo=0 dxo=.025
nxs=40 fxs=0 dxs=50
nx=161 fx=00 dx=25 
nz=101 dz=25 nxb=$nx/2 nxd=5 ls=0 verbose=0
fpeak=30


		
susynvxzcs <model.v  nt=$nt  dt=$dt  \
		nxo=$nxo fxo=$fxo dxo=$dxo \
		nxs=$nxs fxs=$fxs dxs=$dxs \
		nx=$nx fx=$fx dx=$dx \
		nz=$nz dz=$dz nxb=$nxb nxd=$nxd \
		fpeak=$fpeak \
		ls=$ls verbose=$verbose smooth=1 er=1\
	ref="1:0,250;5000,250"\
	ref="1:0,500;500,500;1750,300;3000,500;5000,500"\
	ref="1:0,800;750,800;1750,400;2750,800;5000,800"\
	ref="1:0,1800;1000,1500;1500,640;1750,500;2000,640;2600,1800;3500,2000;5000,2000"\
	ref="1:0,2000;5000,2000"|
	suchw key1=cdp key2=gx key3=sx  b=1 c=1 d=2|
	suchw key1=offset key2=gx key3=sx b=1 c=-1 d=1|
	suchw key1=tracf b=1 |
	sushw key=scalel a=100>$out.su
#	suaddnoise sn=8>$out.su
#	suwind key1=offset min=200 max=200 |susort tracr>$out.su
#	suaddhead ns=$nt nx=$nx nz=$nz d2=15>$out.su
#	sushw key=dt a=4000|
#	sushw key=offset a=2000>$out.su
suwind<$out.su key1=sx j=10|
suxwigb title="shot gather model$model ng=$nxg dg=$dxg;  ns=$nxs ds=$dxs"\



exit 0