Heave Removal Using User Picked Water Bottom Times Smaller header mix (28 vs 34 traces) The only difference between this and the earlier "pick mix" example is that the water bottom picks are averaged across 28 traces in this example and 34 traces in the previous example. This one (28 trace mix) is better because the heave period is closer to 28 traces than 34. I guess a better scheme would be to filter the picks rather than average them with mix. If anyone reads this and wants a filter, mail me (phenkart@ucsd.edu). sioseis << eof1 procs diskin filter wbt header diskoa end diskin fno 469 lno 1475 allno no set .190 .240 ipath L001_001.anal end end filter fno 1 lno 99999 pass 500 2000 ftype 0 end end diskoa opath L001_001.heave end end wbt thres 5000 end end header fno 0 lno 99999 r59 = r50 end end end eof1 sioseis << eof2 procs diskin mix header shift agc plot end diskin ipath L001_001.heave end end agc winlen .01 end end mix type 4 hdr 59 weight 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 end end header fno 0 lno 99999 ftr 0 ltr 99 r60 = r59 - r50 end end shift fno 0 lno 99999 indices r60 end end plot wiggle 0 ann gmtint anninc 1 trpin 150 def .008 tlines .001 srpath sunfil nibs 2859 nsecs .04 vscale 75.75758 end end end eof2 xloadimage -r 90 sunfil &BACK to New Horizon echosounder example.