平曲线casio5800测量计算程序(非对称交点数据库型)

 非对称型平曲线交点法坐标正算、桩号反算带数据库型计算程序

一、主程序prog "ROAD-2"

20→Dimz
"ZS=1,FS=2"?J
If J=1:Then Goto 0:Else Goto 4:IfEnd
Lbl 0                               坐标正算
"KP"?P

Prog "ROAD-SUB2"
?D:"Angle"?H
"XB=":Z[11]+Dcos(Z+H)→X◢             显示边桩坐标
"YB=":Z[12]+Dsin(Z+H)→Y◢             显示边桩坐标
"BP=":Z◢                              显示切线方位角
Goto 0

Lbl 4                               桩号反算
"KP"?P
Lbl 6
"XB"?U:"YB"?V
Lbl 5

Prog "ROAD-SUB2"
(V-Z[12])sinZ+(U-Z[11])cosZ→Z[13]                   计算里程差
If AbsZ[13]≤0.001:Then
"K=":P◢
"D=":(V-Z[12])cosZ-(U-Z[11])sinZ→D◢                计算左右偏距
Goto 6
Else P+Z[13]→P:Goto 5:IfEnd

二、子程序prog "ROAD-SUB1"

O/Abs(O)=W:Abs(O)=A
B^2/24/R-B^4/2688/R^3+B^6/506880/R^5→Z[6]                   计算P1
C^2/24/R-C^4/2688/R^3+C^6/506880/R^5→Z[7]                   计算P2

B/2-B^3/240/R^2+B^5/34560/R^4→Z[8]                   计算q1
C/2-C^3/240/R^2+C^5/34560/R^4→Z[9]                   计算q2

z[8]+(R+Z[7]-(R+Z[6])cosA)/sinA)→S                   计算T1
z[9]+(R+Z[6]-(R+Z[7])cosA)/sinA)→T                   计算T2

RAπ/180+(B+C)/2→L
L-B-C→Q
K-S→Z