基于Excel与气象站网布局情况计算系统.pdfVIP

基于Excel 的气象站网布局情况计算系统 谢 明 陈新治 (1.安徽蒙城县气象局 蒙城 233500；2.安徽亳州市气象局 亳州 236800 ) 摘 要 根据国家气象站网基础数据,利用Excel强大的函数、公式计算以及统计功能，编制了气 象站网布局情况计算系统，为气象台站搬迁及气象站网布局趋于更加合理提供准确的数据分析结果，可得 到任意测算半径之内双基站和国家级台站的平均间距，同时也可计算搬迁台站的要素间距，该系统计算结 果精确，使台站搬迁站址变动影响分析工作中涉及到的大量计算得到了自动化处理。 关键词 Excel原理 站网布局 平均间距 计算系统 引言 近年来，随着社会经济的发展，城市建设日新月异，观测资料的代表性、准确性和比较 性有继续下降的趋势。根据中国气象局站址变动分析材料意见要求，新址、旧址与周边150 公里、50公里范围内气象台站的距离面临大量的计算，工作烦琐且容易出错。“基于Excel 的 气象站网布局情况计算系统”就是在此背景下，利用Excel 函数、公式编制而成。系统的 投入使用，把基层台站从事搬迁工作的人员从大量的、烦琐的计算工作中解放出来，大大提 高了台站搬迁的效率及台站的准确定位，使新址选择方面更具有针对性，观测资料的“三性” 更能得到较大改善。 1 系统设计基本思路 根据国家级气象台站调查表，此表提供台站站名、站号、经纬度（精确到秒）、台站类 别等台站基本信息，由于站址变动分析材料需要计算本站与周边气象台站两点之间的距离。 通过网络搜索利用经纬度计算两点之间距离，已有成熟的公式可以运用，地球赤道上环绕地 球一周走一圈共40075.04公里,而一圈分成360°,而每1°(度)有60′,每一度一秒在赤道 上的长度计算如下： 40075.04km/360°=111.31955km 111.31955km/60=1.8553258km=1855.3m 而每一分又有60秒,每一秒就代表1855.3m/60=30.92m 任意两点距离计算公式为: d＝111.12cos{1/[sinΦAsinΦB十cosΦAcosΦBcos(λB—λA)]} ① 其中A点经度，纬度分别为λA和ΦA，B点的经度、纬度分别为λB和ΦB，d为距离。 2 计算程序的建立 本系统根据公式①，经分析利用Excel函数转换成Excel通用公式如下： d=2*6378.137*ASIN(SQRT(POWER((SIN((RADIANS((LEFT(E2,2)+MID(E2,4,2)/60+MID(E 2,7,2)/3600))-RADIANS((LEFT(L2,2)+MID(L2,4,2)/60+MID(L2,7,2)/3600)))/2)),2)+COS (RADIANS((LEFT(E2,2)+MID(E2,4,2)/60+MID(E2,7,2)/3600)))*COS(RADIANS((LEFT(L2,2) +MID(L2,4,2)/60+MID(L2,7,2)/3600)))*POWER((SIN((RADIANS((LEFT(D2,3)+MID(D2,5,2) /60+MID(D2,8,2)/3600))-RADIANS((LEFT(K2,3)+MID(K2,5,2)/60+MID(K2,8,2)/3600)))/2 )),2))) E2表示周边台站纬度 D2表示周边台站经度 L2本站现址纬度 K2本站现址经 度 ② 通过此公式可以非常精确地计算新址、旧址与周边150公里、50公里范围内气象台站 两点之间的距离，且误差较小。利用Excel函数IF 可以非常简单的列出新址、旧址与周边 150公里、50公里范围内气象台站的个数。最后，根据测算半径、台站个数，利用如下函数 计算相关台站平均间距： 气象与减灾 2011专刊 SQRT(3.141592654*C5*C5/D5) C5表示测算半径 D5表示台站个数 ③ 3 建立工作薄和工作表 打开Microsoft Office Exce