psvibro

su 的源代码库

#! /bin/sh
# This shell shows how to generate different sweeps using the SUVIBRO

demo=vibro
perc=99

# Generate Linear Sweep
suvibro sweep=1 f1=8. f2=72. tv=10. t1=0.5 t2=1.5  |
supswigp perc=$perc \
	title="Linear"\
	label1="Time (sec)" label2="" >$demo.1.eps
suvibro sweep=1 f1=8. f2=72. tv=10. t1=0.5 t2=1.5 | suspecfx | 
supswigp perc=$perc \
	title="Amp.spec. of linear"\
	label1="Freq (hz)" label2="" >$demo.2.eps

#Generate Linear-Segment Sweep
suvibro sweep=2 tseg=0.0,0.50,2.00,4.00,6.50,8.00,10.0 \
	fseg=8.0,15.0,25.0,40.0,50.0,64.0,72.0 |
supswigp perc=$perc \
	title="Linear-Segment"\
	label1="Time (sec)" label2="" >$demo.3.eps
suvibro sweep=2 tseg=0.0,0.50,2.00,4.00,6.50,8.00,10.0 \
	fseg=8.0,15.0,25.0,40.0,50.0,64.0,72.0 | suspecfx |
supswigp perc=$perc \
	title="Amp.spec. of linear-segment"\
	label1="Freq (hz)" label2="" >$demo.4.eps

#Generate dB per Octave Sweep (Down-sweep)
suvibro sweep=3 f1=72. f2=8. swconst=6. |
supswigp perc=$perc \
	title="dB/Octave"\
	label1="Time (sec)" label2="" >$demo.5.eps
suvibro sweep=3 f1=72. f2=8. swconst=6. | suspecfx |
supswigp perc=$perc \
	title="Amp.spec. of dB/Octave"\
	label1="Freq (hz)" label2="" >$demo.6.eps

#Generate dB per Hertz Sweep
suvibro sweep=4 f1=8. f2=72. swconst=0.22 |
supswigp perc=$perc \
	title="dB/Hertz"\
	label1="Time (sec)" label2="" >$demo.7.eps
suvibro sweep=4 f1=8. f2=72. swconst=0.22 | suspecfx | 
supswigp perc=$perc \
	title="Amp.spec. of dB/Hertz"\
	label1="Freq (hz)" label2="" >$demo.8.eps

#Generate T-power Sweep (Down-sweep)
suvibro sweep=5 f1=72. f2=8. swconst=0.3 |
supswigp perc=$perc \
	title="T-power"\
	label1="Time (sec)" label2="" >$demo.9.eps
suvibro sweep=5 f1=72. f2=8. swconst=0.3 | suspecfx | 
supswigp perc=$perc \
	title="Amp.spec. of T-power"\
	label1="Freq (hz)" label2="" >$demo.10.eps

echo 
echo "Output PostScript files:"

echo -n "     "
for i in ${demo}.*.eps
do
	 echo -n "$i "
done
echo
echo "You may view these with your PostScript Previewer"

exit 0