5800计算器全线坐标计算放样程序(精简版)

5800计算器全线坐标计算放样程序（精简版）
注：本程序可计算对称与非对称、一般圆曲线等不同曲线要素及中边桩正交、斜交坐标。

本人在原作者的计算程序下进行优化精简，减少5800计算器的内存空间，且让程序简单明晰。

若有不明之处请与本程序精简作者落日云海（QQ：419769853）联系
XLZBJSCX 主程序
LB1 0 ↙
20→DIM Z ↙↙
“Z -1 ,Y 1”?O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 偏角”PJ=”?A：半径”R=”?R : 第一缓和曲线”LS1=”?L : 第二缓和曲线”LS2=”?G : 交点”JD=”?M: 交点X”JDX=”?B:交点Y”JDY=”? C : 小里程向交点方位角”QDFWJ=”?E: 交点向大里程方位角”ZDFWJ=”?F: GOTO 2↙
LB1 2 ↙（曲线要素计算）
L/2- L^3/(240R^2)+ L^5/(34560R^4) →Z[8] ↙（M1）
G/2- G^3/(240R^2)+ G^5/(34560R^4) →Z[9] ↙（M2）
L^2/(24R)- L^4/(2688R^3) →Z[10] ↙（P1）
G^2/(24R)- G^4/(2688R^3) →Z[11] ↙（P2）
“QXC=”:π*A*R/180+0.5*( L+ G)→S◢↙（曲线总长）
90L/(Rπ) →Z[14] ↙（第一缓和曲线总偏角）
90G(Rπ) →Z[15] ↙（第二缓和曲线总偏角,可以省略）
“T1=”:Z[8]＋（R+Z[11] -(R+Z[10])CosA）/SinA→Z[12] ◢↙(切线T1)
“T2=”:Z[9]＋（R+Z[10]-(R+Z[11])CosA）/Sin A→Z[13] ◢↙(切线T2)
“ZHD=”:M-Z[12] →Z[3] ◢(ZH点里程)
“ZHX=”:B+ Z[12]*Cos (E+180)→ Z[16] ◢↙（ZH点X）
“ZHY=”:C+ Z[12]*Sin(E+180)→ Z[17] ◢↙（ZH点Y）
Z[3]+ L→Z[4] ↙(HY点里程)
Z[1]- G→Z[5] ↙(YH点里程)
Z[3]+S→Z[1] ↙(HZ点里程)
GOTO 1 ↙
LB1 1:“PEG NO=”?K(计算桩号):“ZBJ=”?D（中桩到边桩距离，中桩为0）:“QXJ=”?P（法线角，正交90）:GO TO3
LB1 3 ↙(判断里程点与曲线关系)
IF K≤Z[3] AND K> Z[2] : THEN GOTO 4 : IFEND ↙
IF K≤Z[4] AND K> Z[3] : THEN GOTO 5 : IFEND ↙
IF K≤Z[5] AND K> Z[4] : THEN GOTO 6 : IFEND ↙
IF K≤Z[1] AND K> Z[5] : THEN GOTO 7 : IFEND ↙
IF K>Z[3] : THEN GOTO 0 : IFEND ↙
LB1 4 ↙（里程小于直缓点直线独立坐标）
K- Z[3] →X : 0→Y : E→T : PROG“TYZBCX” ：GOTO 1 ↙
LB1 5 ↙（第一缓和曲线独立坐标）
K- Z[3] →H ↙
H-H^5/(40R^2L^2)+H^9/(3456R^4L^4) →X ↙
H^3/(6*RL)-H^7/(336*R^3L^3) →Y ↙
90H^2/( RπL) →T ↙
IF O>0 ：THEN T +E→T : ELSE E-T →T : T<0=>360+T→T : IFEND ↙
Prog“TYZBCX” ：GOTO 1 ↙
LB1 6 ↙（圆曲线独立坐标）
K- Z[4] →H ↙
H180/( Rπ)+ Z[14]→T ↙
RSin T+ Z[8]→X ↙
R (1-Cos T)+ Z[10]→Y ↙
IF O>0 ：THEN T +E→T : ELSE E-T →T : T<0=>360+T→T : IFEND ↙Prog“TYZBCX” ：GOTO 1 ↙
LB1 7 ↙（第二缓和曲线独立坐标）
Z[1] -K →H ↙
H-H^5/(40R^2G^2)+H^9/(3456R^4G^4) →U↙
H^3/(6RG)-H^7/(336R^3G^3) →V ↙
90H^2/( RπG) →T ↙
Z[13]Cos A+ Z[12]-UCos A-VSin A→X ↙
Z[13] Sin A-USin A+VCos A→Y ↙
IF O>0 ：THEN F-T→T : T<0=>360+T→T : ELSE F+T →T : IFEND ↙Prog“TYZBCX” ：GOTO 1 ↙
子程序：
TYZBCX （统一坐标计算）
IF O<0 : THEN -Y→Y : IFEND ↙
“JSFWJ=” :T▲DMS◢（计算里程点中桩切线方位角，可以不显示）“X=”:Z[16]+XCos E-YSin E+Dcos(T+P)→Z[18] ◢（计算点X）↙“Y=”:Z[17]+XSin E+Y*Cos E+Dsin(T+P)→Z[19] ◢（计算点Y）↙RETURN↙。