当前位置:文档之家 > Excel+VBA计算无定向导线

Excel+VBA计算无定向导线

Excel+VBA计算无定向导线

摘要:本文结合无定向导线坐标计算原理采用Excel的VBA编程计算其坐标,给出了编程思路及源代码。

关键词:无定向导线Excel VBA

1 无定向导线计算简介

1.1 旋转角δ=αAB-αAB’

δ算出后将各假定方位角改正得到真实方位角,支导线法计算到终点B的坐标并与真实B点坐标比较计算出坐标闭合差fx及fy。

1.2 坐标闭合差

fx=XB-XB’;fy=YB-YB’用导线边长成比例求各点坐标增量改正数改正各边坐标增量消除误差,再求出各点坐标。

1.3 精度评定

导线全长相对闭合差除以导线边全长。

2 VBA编程思路

旋转角—闭合差—闭合差按长度比例改正—求各点坐标—评定精度。

3 全部源代码

下载Word文档免费下载:

Excel+VBA计算无定向导线下载

(共1页)