5800计算器公路三维全能程序.docxVIP

5800计算器公路三维全能程序

Pol(Δ

Pol(ΔX,ΔY)→距离D和方位角F，其中I为ΔX差值，J为ΔY差值，

直角坐标转化为极坐标

Rec(D,F)→ΔX差值和ΔY差值，

极坐标到直角坐标转化

本程序比较复杂.测量原理不是很明白的朋友慎用

本程序经过综合考虑5800的设计缺陷和计算速度较慢的因素，故采用了高斯2

节点法加速运行，正算使用高斯4节点为内核，反算采用独立坐标转换为基准，高程采用常规的竖曲线计算原理．支持多条线路正反算,中桩及高程计算,，反算速度明显提高,只需要3秒.程序无错，可放心输入。

ZS-FS（主程序：正反算选择程序）

Deg: //设置角度模式

20→DimZ: //扩展变量

“1LZ＝＞XY，2XY＝＞LZ”？U： //正反算选择，正算选1，反算选2

If U=1: Then Prog”ZS-XH”:IfEnd: //进入正算循环程序

IfU=2:Then Prog”FS-XH”:IfEnd: //进入反算循环程序

ZS-XH（正算子循环程序）

1→W：

“XL-XZ“？U：

//

选择线路 1～N

Lbi0:”L=”?L:”Z=”?Z:

//输入桩号

和边距

Prog”ZS-XH-1“：

//运

行正算循环子程序

Goto0

ZS-XH-1（正算循环子程序）Prog”PM-XL-XZ”:

//进入