plot.comp

弹性波动方程正演程序

suaddhead < seismicZ.H@ ns=401 | sushw key=dt a=1250 | suwind min=82 max=82 |
supswigp grid2=dot grid1=dot fill=0 f2num=200 d2num=200 \
        f1=0.0 f1num=0.0 d1num=0.05 n1tic=5 \
        title="UZ, z_rec=27m, x=300m; Z_source=18m" \
        titlesize=18 \
        > UZ.FD.ps
suaddhead < seismicX.H@ ns=401 | sushw key=dt a=1250 | suwind min=82 max=82 |
 sugain scale=-1.0 |
supswigp grid2=dot grid1=dot fill=0 f2num=200 d2num=200 \
        f1=0.0 f1num=0.0 d1num=0.05 n1tic=5 \
        title="UX, z_rec=24m, x=303m; Z_source=18m" \
        titlesize=18 \
        > UX.FD.ps


suaddhead < comp.ux ns=401 ftn=1 | sushw key=dt a=1250 | 
 supswigp tracecolor=red \
        d1num=2. f1=0.0\
        >  UX.CdH.ps

suaddhead < comp.uz ns=401 ftn=1 | sushw key=dt a=1250 | 
 supswigp tracecolor=red \
        d1num=2. f1=0.0\
        >  UZ.CdH.ps

psmerge in=UZ.CdH.ps in=UZ.FD.ps > UZ.ps
psmerge in=UX.CdH.ps in=UX.FD.ps > UX.ps



suaddhead < seismicZ.H@ ns=401 | sushw key=dt a=1250 | suwind min=128 max=128 |
supswigp grid2=dot grid1=dot fill=0 f2num=200 d2num=200 \
        f1=0.0 f1num=0.0 d1num=0.05 n1tic=5 \
        title="UZ, z_rec=123m, x=300m; Z_source=18m" \
        titlesize=18 \
        > UZ.FD.ps
suaddhead < seismicX.H@ ns=401 | sushw key=dt a=1250 | suwind min=128 max=128 |
 sugain scale=-1.0 |
supswigp grid2=dot grid1=dot fill=0 f2num=200 d2num=200 \
        f1=0.0 f1num=0.0 d1num=0.05 n1tic=5 \
        title="UX, z_rec=120m, x=303m; Z_source=18m" \
        titlesize=18 \
        > UX.FD.ps


suaddhead < comp2.ux ns=401 ftn=1 | sushw key=dt a=1250 | 
 supswigp tracecolor=red \
        d1num=2. f1=0.0\
        >  UX.CdH.ps

suaddhead < comp2.uz ns=401 ftn=1 | sushw key=dt a=1250 | 
 supswigp tracecolor=red \
        d1num=2. f1=0.0\
        >  UZ.CdH.ps

psmerge in=UZ.CdH.ps in=UZ.FD.ps > UZ2.ps
psmerge in=UX.CdH.ps in=UX.FD.ps > UX2.ps


merge4 UX.ps UZ.ps UX2.ps UZ2.ps > comp.ps

sleep 2
rm U*.ps