j.psprint

来自「seismic software,very useful」· PSPRINT 代码 · 共 25 行

#! /bin/sh

printer=HilbertPrinter

F1=5
F2=10
F3=50
F4=60

SN=8
suband <noise.su f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suaddnoise sn=$SN f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
supswigp \
label1="Time"  label2="Trace" title="S/N:\ $SN,\ f=$F1,$F2,$F3,$F4" |
rsh dix lpr -P$printer

sleep 90

SN=4
suband <noise.su f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suaddnoise sn=$SN f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
supswigp \
label1="Time"  label2="Trace" title="S/N:\ $SN,\ f=$F1,$F2,$F3,$F4" |
rsh dix lpr -P$printer