j.cplot

来自「seismic software,very useful」· CPLOT 代码 · 共 60 行

#! /bin/sh
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 |
suctwig \
	fill=1				\
	overlap=1				\
	label1="Time"				\
	label2="Trace"				\
	title="S/N: $SN, f=$F1,$F2,$F3,$F4"	| hpen >junk1
rcp junk1 timna:~jkc
rsh timna lp <junk1
rm junk1

SN=4
suband <noise.su f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suaddnoise sn=$SN f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suctwig \
	fill=1					\
	overlap=1				\
	label1="Time"				\
	label2="Trace"				\
	title="S/N: $SN, f=$F1,$F2,$F3,$F4"	| hpen>junk2
rcp junk2 timna:~jkc
rsh timna lp <junk2
rm junk2

SN=2
suband <noise.su f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suaddnoise sn=$SN f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suctwig \
	fill=1				\
	overlap=1				\
	label1="Time"				\
	label2="Trace"				\
	title="S/N: $SN, f=$F1,$F2,$F3,$F4"	| hpen>junk3
rcp junk3 timna:~jkc
rsh timna lp <junk3
rm junk3


SN=1
suband <noise.su f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suaddnoise sn=$SN f1=$F1 f2=$F2 f3=$F3 f4=$F4 |
suctwig \
	fill=1				\
	overlap=1				\
	label1="Time"				\
	label2="Trace"				\
	title="S/N: $SN, f=$F1,$F2,$F3,$F4"	| hpen>junk4
rcp junk4 timna:~jkc
rsh timna lp <junk4
rm junk4