遠(yuǎn)震事件按震級(jí)大小畫不同大小的圈圈_GMT5

用到中文社區(qū)的兩個(gè)例子拼合起來(lái)的,用到awk

#!/bin/bash
PS=map.ps
R=g
# 假定臺(tái)站位于 105/30 處
stlo=120.19
stla=30.26
max_distance=90
width=10c  # 圖片寬度
# 使用-JE投影,其后面的四個(gè)參數(shù)分別是:
#   中心經(jīng)度/中心緯度/最大震中距/圖片寬度
J=E$stlo/$stla/$max_distance/$width
eqfile=zuobiao.txt
# 繪制底圖
gmt pscoast -J$J -R$R -A10000 -Ggrey -K > $PS

# 利用 psbasemap 繪制圖中的徑向線
gmt set FORMAT_GEO_MAP=+D
gmt psbasemap -R0/360/0/90 -JPa$width -Bxa60g60 -Bya180 -K -O >> $PS

# 繪制臺(tái)站位置(紅色三角形)
echo $stlo $stla | gmt psxy -J$J -R$R -St0.15i -Gred -K -O >> $PS



# 繪制地震震源位置


awk '$3>=5.0 && $3<5.5 {print $1,$2,$3*0.04}' $eqfile | gmt psxy -R -J -Sc0.1i -Gblue -O -K >> $PS
M55=`awk '$3>=5.0 && $3<5.5' $eqfile | wc -l | cut -d" " -f1`

awk '$3>=5.5 && $3<6.0 {print $1,$2,$3*0.04}' $eqfile | gmt psxy -R -J -Sc0.13i -Gyellow -K -O >> $PS
M6=`awk '$3>=5.5 && $3<6.0' $eqfile | wc -l | cut -d" " -f1`

awk '$3>=6.0 && $3<6.5 {print $1,$2,$3*0.04}' $eqfile | gmt psxy -R -J -Sc0.16i -Gred -K -O >> $PS
M65=`awk '$3>=6.0 && $3<6.5' $eqfile | wc -l | cut -d" " -f1`

awk '$3>=6.5 && $3<7.0 {print $1,$2,$3*0.04}' $eqfile | gmt psxy -R -J -Sc0.19i -Ggreen -O -K >> $PS
M7=`awk '$3>=6.5 && $3<7.0' $eqfile | wc -l | cut -d" " -f1`

awk '$3>=7.0 && $3<7.5 {print $1,$2,$3*0.04}' $eqfile | gmt psxy -R -J -Sc0.22i -Gpurple -O -K >> $PS
M75=`awk '$3>=7.0 && $3<7.5' $eqfile | wc -l | cut -d" " -f1`

awk '$3>=7.5 && $3<8.0 {print $1,$2,$3*0.04}' $eqfile | gmt psxy -R -J -Sc0.22i -Gred4 -O -K >> $PS
M8=`awk '$3>=7.5 && $3<8.0' $eqfile | wc -l | cut -d" " -f1`

awk '$3>=8.0 {print $1,$2,$3*0.06}' $eqfile | gmt psxy -R -J -Sc0.24i -Gpurple -W0.4p,black -O -K >> $PS
M8a=`awk '$3>=8.0' $eqfile | wc -l | cut -d" " -f1`





# 繪制30和60度等震中距線
echo $stlo $stla 6672 | gmt psxy -J$J -R$R -SE- -K -O -W1p,red >> $PS
echo $stlo $stla 13344 | gmt psxy -J$J -R$R -SE- -K -O -W1p,red >> $PS

# 在30, 60, 90處添加文字
# !!! 輸入文件的第二列0, -30, -60 需要根據(jù)臺(tái)站的實(shí)際緯度進(jìn)行微調(diào) !!!
gmt pstext -J$J -R$R -D0c/0.3c -K -O >> $PS << EOF
$stlo 0 30\232
$stlo -30 60\232
$stlo -60 90\232
EOF
#-DjBL+w4c+o0.2c/0.2c
#gmt pslegend -R -J -DjBR+w1.2i+l1.0+o0 -F+g200+p0.25p -O -K >> $PS <<EOF
gmt pslegend -R$R -J$J -DjBL+w2.9c+o4.4c/0c -F+g200+p0.05p -O -K >> $PS <<EOF
G 0.01i

#S 0.1i c 0.15i 0.25p 0.3i This circle is hachured
H 8 4 MAGNITUDE
C blue
S 0.1i c 0.20 blue 0.25p,blue 0.18i 5~5.4($M55)
C yellow
S 0.1i c 0.22 yellow 0.25p,yellow 0.18i 5.5~5.9($M6)
C red
S 0.1i c 0.24 red 0.25p,red 0.18i 6.0~6.4($M65)
C green
S 0.1i c 0.26 green 0.25p,green 0.18i 6.5~6.9($M7)
C purple
S 0.1i c 0.28 purple 0.25p,purple 0.18i 7.0~7.4($M75)
C red4
S 0.1i c 0.30 red4 0.25p,red4 0.18i 7.5~7.9($M8)
C black
S 0.1i c 0.32 black 0.25p,black 0.18i 8.0~($M8a)
EOF


gmt psxy -J$J -R$R -T -O >> $PS
gmt psconvert -A -P -Tg $PS
rm gmt.*
map.png

坐標(biāo)如下
177.9976 -16.2713 5.1
171.8204 -22.7929 5.1
171.8533 -22.704 5.1
146.0337 -3.6414 6
171.6489 -22.8781 5.4
101.7894 -5.6329 6
171.7258 -22.7558 5.5
171.524 -22.8727 7.1
171.3831 -22.7931 5.4
171.4122 -22.7235 5.5
171.2249 -22.7056 5.9
171.8566 -22.643 5.3
171.6384 -23.1526 5.1
171.2221 -22.6225 5.9
171.2902 -22.7196 5.1
171.6474 -23.214 5.9
171.591 -23.1122 5.3
170.9936 -22.5744 5
171.6953 -23.1612 5.4
171.7129 -23.1046 5.3
171.1029 -22.6772 5.1
171.4389 -23.1022 5.6
171.9638 -23.18 5.2
171.1874 -22.9285 5.4
171.5996 -23.2079 5.2
171.5409 -23.1397 5.2
171.7471 -23.2399 5.2
73.71 38.05 5
-155.2216 57.2303 5.2
123.3114 -10.2701 5.2
149.3735 -7.2829 5.2
171.6259 -23.2493 5.3
167.5975 -17.6662 6.1
167.8142 -17.6403 5.3
167.7555 -17.7398 5.5
21.95 38.35 5
167.9065 -17.5271 5.1
171.8076 -23.154 5.5
168.02 -18.9 5.9
-176.5142 -15.0003 6.1
-173.8296 -19.5263 5
144.2412 -54.507 5
144.2402 -54.7116 5.2
168.1633 -18.898 5
-179.1942 51.1432 5.1
167.8289 -17.595 5
172.8746 -22.946 5.5
-22.2771 63.9566 5.6
100.0856 -47.2476 5.5

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末攻人,一起剝皮案震驚了整個(gè)濱河市沐批,隨后出現(xiàn)的幾起案子岂昭,更是在濱河造成了極大的恐慌铛铁,老刑警劉巖铃将,帶你破解...
    沈念sama閱讀 212,816評(píng)論 6 492
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件兴溜,死亡現(xiàn)場(chǎng)離奇詭異侦厚,居然都是意外死亡,警方通過(guò)查閱死者的電腦和手機(jī)拙徽,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,729評(píng)論 3 385
  • 文/潘曉璐 我一進(jìn)店門刨沦,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人膘怕,你說(shuō)我怎么就攤上這事想诅。” “怎么了岛心?”我有些...
    開封第一講書人閱讀 158,300評(píng)論 0 348
  • 文/不壞的土叔 我叫張陵来破,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我忘古,道長(zhǎng)徘禁,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 56,780評(píng)論 1 285
  • 正文 為了忘掉前任髓堪,我火速辦了婚禮送朱,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘旦袋。我一直安慰自己骤菠,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 65,890評(píng)論 6 385
  • 文/花漫 我一把揭開白布疤孕。 她就那樣靜靜地躺著商乎,像睡著了一般。 火紅的嫁衣襯著肌膚如雪祭阀。 梳的紋絲不亂的頭發(fā)上鹉戚,一...
    開封第一講書人閱讀 50,084評(píng)論 1 291
  • 那天,我揣著相機(jī)與錄音专控,去河邊找鬼抹凳。 笑死,一個(gè)胖子當(dāng)著我的面吹牛伦腐,可吹牛的內(nèi)容都是我干的赢底。 我是一名探鬼主播,決...
    沈念sama閱讀 39,151評(píng)論 3 410
  • 文/蒼蘭香墨 我猛地睜開眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼幸冻!你這毒婦竟也來(lái)了粹庞?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 37,912評(píng)論 0 268
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤洽损,失蹤者是張志新(化名)和其女友劉穎庞溜,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體碑定,經(jīng)...
    沈念sama閱讀 44,355評(píng)論 1 303
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡流码,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,666評(píng)論 2 327
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了延刘。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片漫试。...
    茶點(diǎn)故事閱讀 38,809評(píng)論 1 341
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖访娶,靈堂內(nèi)的尸體忽然破棺而出商虐,到底是詐尸還是另有隱情,我是刑警寧澤崖疤,帶...
    沈念sama閱讀 34,504評(píng)論 4 334
  • 正文 年R本政府宣布秘车,位于F島的核電站,受9級(jí)特大地震影響劫哼,放射性物質(zhì)發(fā)生泄漏叮趴。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 40,150評(píng)論 3 317
  • 文/蒙蒙 一权烧、第九天 我趴在偏房一處隱蔽的房頂上張望眯亦。 院中可真熱鬧,春花似錦般码、人聲如沸妻率。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,882評(píng)論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)宫静。三九已至,卻和暖如春券时,著一層夾襖步出監(jiān)牢的瞬間孤里,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,121評(píng)論 1 267
  • 我被黑心中介騙來(lái)泰國(guó)打工橘洞, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留捌袜,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 46,628評(píng)論 2 362
  • 正文 我出身青樓炸枣,卻偏偏與公主長(zhǎng)得像虏等,于是被迫代替她去往敵國(guó)和親弄唧。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,724評(píng)論 2 351

推薦閱讀更多精彩內(nèi)容