Return to SIOSEIS examples.          Return to Revelle HiRes example.

SIOSEIS script to kill traces with noise bursts.

sioseis << eof
procs diskin tredit plot end
diskin
   fno 55 lno 100 allno no
   ipath 5a.cmp end
end
tredit
    set 3 4 thres -.1E+06 .1E+06 kill yes end
end
filter
   pass 40 400 dbdrop 48 ftype 0 end
end
 plot
  stime 1
    nibs 2858 srpath sunfil.ras ann rp&tr taginc 3
    recsp yes
    trpin 50 def .015  nsecs 3 vscale 1.25
    end
 end
end
eof