- 积分
- 4291
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-11-14
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
这是我画出的图。下面附上我得画图.gs
'reinit'
'open E:\huatuceshi\CNTL1.ctl'
'set font 5'
'set grads off'
'set grid off'
'set lon 108.2 111.5'
'set lat 17.8 20.5'
'set mpdset cnworld'
'set map 1 1 6'
'set gxout shaded'
'set xlopts 1 6 0.2'
'set ylopts 1 6 0.2'
'set xlevs 108.3 108.8 109.3 109.8 110.3 110.8 111.3'
'set clevs 0 200 400 600 800 1000 1200 1400 1600'
'province-basemap hain HGT'
'cbarn 1.0 1'
'set strsiz 0.2'
'set string 1 l 6 0'
'draw string 10.25 6.7 m'
'q w2xy 110.37 20.00'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x-0.16' 'y-0.25' 琼山 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110.25 20.00'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x-0.05' 'y+0.15' 海口 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.68 19.91'
x=subwrd(result,3)
y=subwrd(result,6)
*'writehz 'x+0.1' 'y-0.1' 临高 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110 19.73'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 澄迈 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110.338 19.667'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 定安 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110.75 19.62'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 文昌 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.6 19.52'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 儋州 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110.09 19.37'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 屯昌 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.04 19.25'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 昌江 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.4 19.24'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 白沙 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110.46 19.24'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 琼海 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 108.67 19.1'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 东方 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.83 19.04'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 琼中 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.17 18.75'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 乐东 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.51 18.77'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 五指山 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110.4 18.8'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x' 'y+0.1' 万宁 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.69 18.63'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 保亭 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 110 18.46 '
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x+0.1' 'y-0.1' 陵水 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 109.59 18.226'
x=subwrd(result,3)
y=subwrd(result,6)
'writehz 'x' 'y' 三亚 1 2 1 1.2 1.2 0 20'
'draw mark 2 'x' 'y' 0.06'
'q w2xy 108.2 19.1'
x1=subwrd(result,3)
y1=subwrd(result,6)
'q w2xy 111.5 19.1'
x2=subwrd(result,3)
y2=subwrd(result,6)
'set line 1 1 6'
'draw line 'x1' 'y1' 'x2' 'y2''
'set string 1 c 6 0'
'set font 5'
'draw string 'x1+0.2' 'y1-0.2' A'
'draw string 'x2+0.3' 'y2' A1'
'q w2xy 109.5 17.8'
x1=subwrd(result,3)
y1=subwrd(result,6)
'q w2xy 109.5 20.5'
x2=subwrd(result,3)
y2=subwrd(result,6)
'set line 1 1 6'
'draw line 'x1' 'y1' 'x2' 'y2''
'set string 1 c 6 0'
'set font 5'
'draw string 'x1+0.2' 'y1+0.2' B'
'draw string 'x2' 'y2+0.2' B1'
'q w2xy 108.2 17.8'
x1=subwrd(result,3)
y1=subwrd(result,6)
'q w2xy 111.5 17.8'
x2=subwrd(result,3)
y2=subwrd(result,6)
'set line 1 1 6'
'draw line 'x1' 'y1' 'x2' 'y2''
'set string 1 c 5 0'
'q w2xy 111.5 17.8'
x1=subwrd(result,3)
y1=subwrd(result,6)
'q w2xy 111.5 20.5'
x2=subwrd(result,3)
y2=subwrd(result,6)
'set line 1 1 6'
'draw line 'x1' 'y1' 'x2' 'y2''
'set string 1 c 5 0'
'set strsiz 0.2'
'set string 1 l 6 0'
'draw string 2.0 7.5 (b)'
'set frame on'
'set gxout contour'
'set clevs 500'
'set cthick 7'
'set clab off'
'set ccolor 1'
*'set frame off'
'd HGT'
'printim E:\huatuceshi\3b.png white'
'print E:\huatuceshi\3b.eps'
|
-
|