Casio fx 5800P道路中边桩坐标正反算程序.doc

Casiofx5800道路中边桩坐标
正反算程序
主程序J－JSMS
6→DimZ：“1-ZS,2-FS”?Z:WhileZ=1:Goto1:WhileEnd:Goto2
Lbl1
“X(0)”?U:”Y(0)”?V:”K?”P:”BZJL”?D:”N°”?W
Prog”JP”:Prog”DFLR”:Goto1
Lbl2
?X:?Y:”BJ”?W:Prog“JF”:”K=”:P▲
“BZ=”:D▲
Goto2
平曲线正算子程序JP
IfP≤29395.714本段线元终点桩号（ＨＺ点桩号）:ThenProg“ＪＤ６（本段线元所在交点号）“:GotoA:IfEnd
IfP≤……………
以上蓝色部分为里程判断部分，需计算几个交点则输入几条如上语句
LblA
IfE<1:Then1e-9→E:IfEnd
IfK<1:Then1e-9→K:IfEnd
E2÷(24R)-E4÷(2688R3)→Z[1]:E÷2-E3÷(240R2)→Z[2];（E2-K2）÷(24R)÷sin(Abs（O）)→X：（R+Z[1]）tan(Abs(O÷2))+Z[2]-X→Z[3]:(R+K2÷(24R)-K4÷2688÷R3)×tan(Abs(O÷2))+K÷2-K3÷240÷R2+X→Z[4]:Abs(πOR)÷180+(E+K)÷2→L:(R+Z[1])÷sin(J)-R→X:A-Z[3]→X:X+E→Y：IfE<1:ThenX：Y：X+（L-K-E）÷2+E→Y：X+L-K→Y：X+L→X：IfEnd
IfK<1:ThenX:ElseY：X：IfEnd(以上红色部分为曲线要素计算部分，输入时可省略)
Lbl1
F→J:B-Z[3]cos(F)→X:C-Z[3]sin(F)→Y:E→G
IfP≤A-Z[3]:ThenA-Z[3]-P→I:-I→M:0→N:F+W→H:Goto5:IfEnd
IfP≤A-Z[3]+E:ThenP-A+Z[3]→I:90I2÷(πRE)→H
O<0=>-H→H:H+W+F→H:Goto3:IfEnd
IfP≤A-Z[3]+L-K:ThenP-A+Z[3]-E→I:Goto4:ElseGoto2:IfEnd
Lbl2
B+Z[4]×cos(F+O)→X:C+Z[4]×sin(F+O)→Y:F+O+180→J:K→G
IfP≤A-Z[3]+L:ThenA-Z[3]+L-P→I:90I2÷(πRK)→H
O>0=>-H→H
H+J+W+180→H:Goto3:ElseP-A+Z[3]-L→I:-I→M:0→N:J+W+180→H：Goto5：IfEnd
Lbl3
I-I5÷(40R2G2)→M:I3÷(6GR)-I7÷336÷(RG)3→N:Goto5
Lbl4
（E+2I）×90÷R÷π→H:Rsin(H)+Z[2]→M:R(1-cos(H))+Z[1]→N
O<0=>-H→H:J+H+W→H:Goto5
Lbl5
IfP≤A-Z[3]+L-KAndO<0:Then-N→N:IfEnd
IfP>A-Z[3]+L-KAndO>0:Then-N→N:ElseN→N:IfEnd:Goto6
Lbl6
X+Mcos(J)-Nsin(J)+Dcos(H)→X:Y+Msin(J)+Ncos(J)+Dsin(H)→Y:Return
反算里程边距子程序JF
X→U:Y→V:0→D;“DYK”?P
Lbl1
Prog”JP”:H-180→J:(V-Y)cos(J)-(U-X)sin(J)→I:IfAbs(I)<.0001:ThenGoto2:ElseP+I→P:Goto1:IfEnd
Lbl2
(V-Y)÷sin(H)→D:Return
数据库子程序JD6
29110.089(交点桩号)→A:4732448.996（交点Ｘ坐标）→B:512363.644（交点Ｙ坐标）→C:258°09′10″（起始边方位角）→F:24°32′23″（转角左转曲线以负值输入）→O:1000（曲线半径）→R:150（第一缓和曲线长度）→E:150（第二缓和曲线长度）→K:Return
如有多个交点则相应建立多个数据库子程序。
放样子程序DFLR
“X=”:X→I▲
“Y=”:Y→J▲
Pol((I-U),(J-V))
J<0=>J+360→J
“F=”:J▼DMS◢
“D=”:I◢
Lbl0
“CLJL”?S
“CHAZHI”:S-I→E◢
WhileAbs(E)≤0.05OrS=0:Return:WhileEnd:Goto0
说明：本程序以交点法为内核，可对公路中边桩坐标正、反算进行计算，允许缓和曲线不等长，即可计算卵形曲线。经实际应用，计算精度满足施工要求，正算坐标与设计最大误差为２mm，反算误差最大５mm。
“1-ZS