xdemo2

su 的源代码库

# This input file reproduces the output in Juhlin (1995) Figure 6b.
# Note that the source in Table 1 in Juhlin (1995) is given as g(t), but should be f(t)
# be f(t), i.e. the derivative of the Gaussian (dg)
# Since the dg source waveform is defined by its avg frequency content
# favg should be set to 24.15 Hz to correpsond to alpha=10000 in
# Juhlin (1995)  

suea2df dt=0.0005 lt=0.4 zmax=762 xmin=-00 xmax=1530 dx=6 verbose=1 \
snfile=tmp hsz=00 vsx=200 snaptime=0.19,0.59,0.99 efile=mod \
bc=2,1,1,0 qsw=0 asw=1 \
sx=0 sz=12 favg=24.15 ts=0.05 wtype=dg \
xl=0 \
0 \
 zl=150,156 \
 vpl=2898,3320 \
 vsl=1398,1398 \
 rhol=2250,2250\
 epl=0.2566,0\
 dsl=0.3796,0\
 anl=0,0\
>out2


suwind < ss.su key=duse min=1 max=1 | suwind j=3 | suwind key=offset max=420 | \
suxwigb f2=0 d2=18 perc=98
suwind < ss.su key=duse min=1 max=1 | suwind j=3 | suwind key=offset max=420 | \
sugain scale=-1 | supswigb f2=0 d2=18 nbpi=600 d1num=0.1 d2num=72 grid1=dash perc=98 \
 x2beg=414 x2end=0 wbox=1.75 hbox=2 labelsize=6 > F6b.ps
 
#awk < out2 '{if(NF==2) print $2,$1}' | a2b | xgraph n=101 pairs=1 
#awk < out2 '{if(NF==2) print $2}' | a2b n1=1 | suaddhead ns=101 | \
#sushw key=dt a=500 | suspecfx | suxwigb fx.su x1end=100