FKMIGR, line reversal, water botom pick, mute, filter gains
sioseis << eof
procs diskin tx2fk fkmigr fk2tx diskoa end
diskin
fno 306701 lno 313124 allno no
set 3 6.5
ipath stack29.segy end
end
wbt
thres 5 end
end
mute
fno 1 lno 99999 ttp 1 -.02 addwb yes end
end
tx2fk
nxpad 20 end # x pad 20 traces plus (2048-(1900+20+20))
end
fkmigr
vel 1520 deltax 6.25 end
end
fk2tx
end
end
prout
fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end
end
diskoa
opath fkmigr.line3D-29 end
end
end
eof
/usr/people/henkart/src/sioseis/sioseis << eof
procs sort diskin wbt mute filter gains diskoa end
sort
rev1 yes lkey1 6 ipath fkmigr.line3D-29 opath s end
end
diskin
spath s ipath fkmigr.line3D-29 end
end
wbt
thres 3 end
end
mute
fno 1 lno 999999 addwb yes ttp 1 -.004 end
end
filter
ftype 0 dbdrop 48 pass 20 220 end
end
gains
subwb yes tadd 3. type 3 alpha 2 end
end
diskoa
fon 29001
opath final.line29 end
end
end
eof
sioseis << eof
procs diskin plot end
diskin
ipath final.line29 end
end
plot
scalar 2.E-03
wiggle 0 clip .0025 nibs 7224
srpath sunfil
opath siofil
vscale 2.5 nsecs 3.5 trpin 200 def .05 ann rpno taginc 100 end
end
end
eof
Return to EW0008 example. Go to SIOSEIS examples.Go to the list of seismic processes. Go to SIOSEIS introduction.