create_CVS_panel.sh

#!/bin/sh
# Course: Geophysical Exploration
#
# Sample script : Constant-Velocity-Scan
# Apply NMO corrections with increasing velocity
# 
# by W.T.

# Edit the name of the input and oudput data
indata=demo_nmo.su
outdata=cvspanel_demo.su

# Parameters
vmin=1200 # Minimum velocity (m/s)
vmax=2500 # Maximum velocity (m/s)
dv=50     # Increment ofvelocity (m/s)
perc=98
#--

nt=`surange < $indata | grep ns | awk '{print $2}'`
dt=`surange < $indata | grep dt | awk '{print $2}'`

# Original traces
cat $indata > $outdata
sunull nt=$nt dt=$dt ntr=20 >>$outdata

# NMO'ed traces 
v=$vmin
while [ $v -le $vmax ]; do
    echo $v
    sunmo < $indata vnmo=$v | \
	sushw key=d2 a=$v >> $outdata
    sunull nt=$nt dt=$dt ntr=5 >>$outdata
    v=`expr $v + $dv`
done

# Plot
suximage < $outdata perc=$perc \
	 label1='Time (s)' &

exit