用Surfer软件绘制红水河猎动站雨量等值线

用Surfer软件绘制红水河猎动站雨量等值线

韦健

（广呜市气犀广呜547000）

摘要介绍了借助VB语言编程，建立江河猎动站雨量资料，结合Surfer8软件，完成雨量等值线绘图和颜色填充，为开发等

值线绘图功能的平台提供一种寄途径。关键词Surfer；绘制；等值线中图分类号P469文献标识码A文章编号1004－8421（2012）06－768－02

为有效运用micaps全国自动站资料surfer怎么画等值线，充分发挥加密自动气鲜料高时空分辨率的特征，

结合日常业潍众服舞要，将1次/h的手动站雨量资料储存到中，用VB6．0结合Surfer8软件，对某一区映一时段的自动站降水资料进行等值线分?p>

Surfer8是美国Golden软件公司的产品，用于绘制等值线图及相应的三维图形，支持12种内插方法对离散的XYZ数据腐，生成规札据

［1］

；在图上可以添加河?p>

地名等信息，在同样的坐标系统下合并所选的地图生成叠置图；Surfer8中的ActiveXAutomation所提供的编程接口，使用户很容易地用竎tiveX客户编程语言（如VB、Delphi、C#等）来定制surfer。用VB6．0结合Surfer8分蔚线，非常便利和便捷，广泛应用于气袭文、地质等领樱?］

。

1

基本原理

首先采集降雨量数据，用SQLserver2000建立自动站雨量，从micaps的全国自动站气舷中，选取河池市红水河上游干、支粮悖寥∶啃∈钡淖远窘涤曜柿希?/p>

并按日期时间、经度、纬度、雨量的复入。通过VB6．0编译运行环境苪rfer8湖未建Surfer的Application对牺

［4］

，选用一种插值法将不规允

料数据网甫理，

转化为的grd文件富然浩等值线和填充等值线颜色，

再叠加背景地图谎生成的图件存为照片，用VB的LoadPicture命令，将截图输砳cture-Box控件中，实现等值线图的输吃示。2

等值线绘图方法

用Surfer8绘制等值线图，首先，准备绘制等值线所需的下述数据文件：

地图的边界文件（*．bln），文件负n（边界点数）0（空白）X1（经度）y1（纬度）X2（经度）y2（纬度）…

Xn（经度）yn（纬度）

资料数据文件（*．dat），文件釜：x1y1z1x2y2

z2

…

韦健（1963－）surfer怎么画等值线，男，广呜人，工程师，从事气息与

装备技氏工?p>

收稿日期2012-05-19…

其中x为站点经度，

y为站点纬度，z为站点资料。用VB6．0祏rfer8，在其环境中引用与surfer8有关的库，通过“工程”菜单中的“引用”命令，将Surfer8TypeLi-brary选中，并且可以在vb6的对侠崎看对息类、盛方法或者事件。

以下是用VB6．0控制Surfer8绘制等值线图的痔须（“’”符号胡码注释）：2．1

创建Surfer的Active对息赋值给函数surferappDimsurferappAsApplication

Setsurferapp=CreateObject（″Surfer．Application″）’把*．dat文件釜换成*．grd文件脯对文件数据进行网甫理

surferapp．GridDataDataFile：=″dat数据文件″，Algo-rithm：=srfKriging，_

DupMethod：=2，ShowReport：=False，xMin：=104．5，xMax：=110，yMin：=23，_

yMax：=27，SearchEnable：=True，OutGrid：=″grd文件″，NumCols：=80，NumRows：=60'Algorithm表示用克里将资料内插到赶2．2

删除边界外的等值线，生成等值线图

surferapp．GridBlankIngrid：=″grd文件″，blankfile：=″bln地图边界数据文件″，

_OutGrid：=″删除边界外簉d文件″…

Setplot=surferapp．Documents．Add（1）'生成一缸的绘图页

SetContourMapFrame=plot．Shapes．AddContourMap（″删除边界外簉d文件″）'生成一傅线图2．3

添加河良

SetmyBasemap=plot．Shapes．AddBaseMap（Import-FileName：=″河良数据文件bln″）

Sethlcolor=myBasemap．Overlays（1）hlcolor．Line．Width=0．03'河寥hlcolor．Line．ForeColor=＆H8000＆'河琳色2．4

标注站点名称

Setzdname=plot．Shapes．AddPostMap（datafilename：=″要标注的站点数据文件dat″，_xCol：=1，yCol：=2，LabCol：=3，SymCol：=4）

Setzdbz=zdname．Overlays（1）zdbz．LabelFont．Size=6'字体?p>

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-137790-1.html