![]() 図1. 問題設定。(a)水平面、(b)\(y=0\)の鉛直断面。 地形を(a)に色と等値線(100 m間隔)で、(b)に茶色で示す。 (b)の薄い茶色は低速度の表層、濃い茶色は高速度の半無限媒質を表す。 ★は地震波動ソースの位置、 ▲は観測点の位置を表す。 Fig. 1. The problem to be solved in (a) horizontal section and (b) a vertical section along \(y=0\). The light and dark browns in (b) represent a low-velocity surface layer and a high-velocity half space, respectively. The topography is shown by color scale and contours (100 m intervals) in Fig. 1a and brown in Fig. 1b. The star (★) and triangles (▲) indicate the locations of the seismic wave source and stations, respectively. |
surface+0.1[TAB]3000.0[TAB]1732.1[TAB]2290.0 surface-999.9[TAB]3000.0[TAB]1732.1[TAB]2290.0 surface-1000.1[TAB]5000.0[TAB]2886.8[TAB]2601.9 -20000.1[TAB]5000.0[TAB]2886.8[TAB]2601.9 |
STN1[TAB]5000.0[TAB]0.0[TAB]surface-0.1 STN2[TAB]-5000.0[TAB]0.0[TAB]surface-0.1 |
create_tws_source_config_random
--output_config_file=source6.ini
--output_coordinate_list_file=source_coordinate6.dat
--geometry=surface_circle
--x0=0.0,0.0
--r_min=8000.0
--r_max=9000.0
--d_min=0.1
--d_max=99.9
--number=500
--dx_min=100.0
--mechanism=Fz
--stfun_tp=2.0
--stfun_ts=2.0 |
パラメータ Parameter |
値 Value |
\(h_0\) | 500 m |
\(\Delta h\) | 1500 m |
\(r\) | 5000 m |
rm -f topography_ex6.dat for((x=-10100;x<=10100;x+=100)) do for((y=-10100;y<=10100;y+=100)) do echo $x $y | awk '{ h0=500.0; delta_h=1500.0; r=5000.0; h=h0; distance2=$1*$1+$2*$2; if(distance2<100.0*r*r){ h=h0+delta_h*exp(-distance2/(r*r)); } printf("%d\t%d\t%f\n",$1,$2,h); }' >> topography_ex6.dat done done |
gmt begin problem6 ps gmt set FONT_ANNOT_PRIMARY 12p #地形のプロット(水平面) #Plotting topography in horizontal section gmt surface topography_ex6.dat -R-10000/10000/-10000/10000 -I100/100 -Gtopography_ex6.grd gmt makecpt -Cdem1 -T500/2000/10 -Z -D gmt grdimage topography_ex6.grd -R-10000/10000/-10000/10000 -JX10/10 -Xa3 -Ya7.2 gmt grdcontour topography_ex6.grd -R-10000/10000/-10000/10000 -JX10/10 -Xa3 -Ya7.2 -C100 -W0.4,100/100/100 -Bxa5000f1000 -Bya5000f1000 -BWsen #表層のプロット(東西断面) #Plotting the surface layer in EW section awk '($2==0){ print $1,$3 } END{ printf("10000\t-5500\n"); printf("-10000\t-5500\n"); }' topography_ex6.dat | gmt plot -R-10000/10000/-5500/2500 -JX10/4 -Xa3 -Ya3 -G220/180/140 #半無限媒質のプロット(東西断面) #Plotting the half space in EW section awk '($2==0){ print $1,$3-1000.0 } END{ printf("10000\t-5500\n"); printf("-10000\t-5500\n"); }' topography_ex6.dat | gmt plot -R-10000/10000/-5500/2500 -JX10/4 -Xa3 -Ya3 -G190/130/70 -Bxa5000f1000 -Bya1000 -BWSen #地震波動ソースのプロット #Plotting seismic wave sources awk '{ print $2,$3 }' source_coordinate6.dat | gmt plot -R-10000/10000/-10000/10000 -JX10/10 -Xa3 -Ya7.2 -Sa0.1 -G255/0/0 #観測点のプロット #Plotting stations gmt plot -R-10000/10000/-10000/10000 -JX10/10 -Xa3 -Ya7.2 -St0.4 -G0/0/0 <<EOF -5000 0 5000 0 EOF station_z=`awk '($1==5000 && $2==0){ print $3 }' topography_ex6.dat` gmt plot -R-10000/10000/-5500/2500 -JX10/4 -Xa3 -Ya3 -St0.4 -G0/0/0 <<EOF -5000 $station_z 5000 $station_z EOF #文字列のプロット #Plotting texts gmt text -R0/21/0/29.7 -JX21/29.7 -Xa0 -Ya0 -F+f12p+a+j <<EOF 8.0 2.2 0 CT East (m) 1.5 12.0 90 CB North (m) 1.5 5.0 90 CB Elevation (m) 3.2 6.8 0 LT (b) EOF gmt text -R0/21/0/29.7 -JX21/29.7 -Xa0 -Ya0 -F+f12p,,255/255/255+a+j <<EOF 3.2 17.0 0 LT (a) EOF gmt end |
waterPML --Nx=201 --Ny=201 --Nz=77 --Npmx=20
--x0=-10050.0 --y0=-10050.0 --z0=-5500.0 --dx=100.0
--dt=0.01 --tmax=20.0
--topography_files=topography_ex6.dat --topography_file_format=xy
--structure_file=structure6.ini --structure_file_format=layer
--source_file=source6.ini
--source_memory=smaller
--output_dir=result06
--station_file=station_list6.dat |
cd result06/waveform for file in *.seq1 do file=`basename $file .seq1` sequence2sac_timeseq $file.seq1 $file.sac sac <<EOF r $file.sac mul 1.0e+14 w $file.sac q EOF done sac <<EOF bd sgf qdp off r STN1.Vx.sac STN1.Vy.sac STN1.Vz.sac ch KSTNM STN1 ch file 1 KCMPNM Vx ch file 2 KCMPNM Vy ch file 3 KCMPNM Vz p1 r STN2.Vx.sac STN2.Vy.sac STN2.Vz.sac ch KSTNM STN2 ch file 1 KCMPNM Vx ch file 2 KCMPNM Vy ch file 3 KCMPNM Vz p1 q EOF sgftops f001.sgf STN1.ps sgftops f002.sgf STN2.ps rm -f *.sgf |
![]() 図2. 観測点STN1の速度波形。 Fig. 2. The velocity waveforms of station STN1. |
![]() 図3. 観測点STN2の速度波形。 Fig. 3. The velocity waveforms of station STN2. |
sacfile_correlation STN1.Vz.sac STN2.Vz.sac correlation.zz.sac sac <<EOF bd sgf qdp off r correlation.zz.sac p1 q EOF sgftops f001.sgf correlation.zz.ps rm -f *.sgf |
![]() 図4. 観測点STN1とSTN2の上下成分同士の相互相関関数。 Fig. 4. Cross correlation function between the vertical component of stations STN1 and STN2. |