model

su 的源代码库

#! /bin/sh
# Run GBmod with PSwindow graphics

datadir=../../datadir/
modelfile=${datadir}model.data

trimodel xmin=-1 zmin=0 xmax=5.0 zmax=3.0 maxangle=10 \
1	xedge=-1,0,1,2,3,4,5 \
	zedge=0,0,0,0,0,0,0 \
	sedge=0,0,0,0,0,0,0 \
2       xedge=-1.,0.0,0.50,1.0,1.5,1.8,2.0,2.5,3.0,3.5,4.0,5 \
	zedge=0.3,0.3,0.31,0.3,.37,.68,.63,.24,0.3,.31,0.3,.3  \
	sedge=0,0,0,0,0,0,0,0,0,0,0,0 \
3       xedge=-1.,0.0,0.50,0.80,1.0,1.5,2.0,2.5,2.7,3.0,3.5,4.0,5 \
	zedge=1.4,1.2,1.00,0.95,1.0,1.2,1.6,2.0,2.1,2.0,1.6,1.0,0.6  \
	sedge=0,0,0,0,0,0,0,0,0,0,0,0,0 \
4       xedge=-1,0,1,2,3,4,5 \
	zedge=2.5,2.5,2.5,2.5,2.5,2.5,2.5 \
        sedge=0,0,0,0,0,0,0 \
5       xedge=-1,0,1,2,3,4,5 \
        zedge=3.0,3.0,3.0,3.0,3.0,3.0,3.0 \
        sedge=0,0,0,0,0,0,0 \
	sfill=1,0.1,0,0,0.44,0,0 \
	sfill=1,0.8,0,1,0.3,-.04,0 \
	sfill=1,2.0,0,0,0.04,0,0 \
	sfill=1,2.7,0,0,0.016,0,0 \
	kedge=1,2,3,4\
	xedge=2.8 zedge=1.3 sedge=0 \
	xedge=0.8 zedge=1.5 sedge=0 \
	>$modelfile
# velocities are 1.5, 1.8-2.6,5,8

spsplot <$modelfile hbox=4 wbox=6 \
        label1="Depth (km)" label2="Distance (km)" \
        gtri=-1 title="Syncline Model" |$PSPREVIEWER
exit 0