正算主程序[KB-MN]
“1,2,3,4,5”?Z:“1,2,3”?R:Prog“DX-1”:?X:?Y
Lbl 1:Fix 3:?K:?B:90→A
Z=1=>Prog“PQ-1”
Z=2=>Prog“PQ-2”
Z=3=>Prog“PQ-3”
Z=4=>Prog“PQ-4”
Z=5=>Prog“PQ-5”
Prog“PQXY”:M-X→I:N-Y→J:Prog“C”:Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 7,2,I:Locate 1,3,“M=”:Locate 6,3,M:Locate 1,4,“N=”:Locate 6,4,N◢
Cls:Goto 1
反算主程序[MN-KB]
“1,2,3,4,5”?Z:?K
Lbl 0:Fix 3:?M:?N:M→D:N→E
Lbl 1:90→A:0→B
Z=1=>Prog“PQ-1”
Z=2=>Prog“PQ-2”
Z=3=>Prog“PQ-3”
Z=4=>Prog“PQ-4”
Z=5=>Prog“PQ-5”
Prog“PQXY”:Pol(D-M+×10-9,E-N+×10-9:Isin(O-J→A:Icos(O-J→B
If Abs(A)>0.001:Then K+A→K:Goto 1:Else D→M:E→N:Cls:Locate 1,1,“K=”:Locate 9,2, K:Locate 1,3,“B=”:Locate 10,4,B◢
IfEnd:Goto 0
子程序[PQXY]
G÷Abs(G→L:F2÷(24R→P:F÷2-F^(3)÷(240R2→Q:If R≤100:Then P-F^(4)÷(2688R^(3))+F^(6)÷(506880R^(5))-F^(8)÷(154828800R^(7→P:Q+F^(5)÷(34560R^(4))-F^(7)÷(8386560R^(6))+F^(9)÷(3158507520R^(8→Q:IfEnd
Q+(R+P)Ltan(G÷2→T:πRGL÷180+F→I:If K≤H-T:Then K-H→J:Goto 1:IfEnd
If K≤H-T+F:Then K-H+T→J:1→S:Goto 2:IfEnd
If K≤H-T+I-F:Then K-H+T→J:L→S:Goto 3:IfEnd
If K<H-T+I:Then H-T+I-K→J:C+G→C:-1→S:Goto 2:IfEnd
If K≥H-T+I:Then K-H-I+2T→J:C+G→C:Goto 1:IfEnd
Lbl 1:U+Jcos(C→M:V+Jsin(C→N:C→O:Goto 5
Lbl 2:C+90J2SL÷(πRF→O:J-T-J^(5)÷(40R2F2→W:J^(3)÷(6RF)-J^(7)÷(336R^(3)F^(3→L:If R≤100:Then W+J^(9)÷(3456(RF)^(4))-J^(13)÷(599040(RF)^(6))+J^(17)÷(175472640(RF)^(8→W:L+J^(11)÷(42240(RF)^(5))-J^(15)÷(9676800(RF)^(7))+J^(19)÷(353009664(RF)^(9→L:IfEnd:SW→W:LG÷Abs(G→L:Goto 4
Lbl 3:180(J-0.5F) ÷(πR→O:Q-T+Rsin(O→W:L(P+R(1-cos(O→L:C+OS→O
Lbl 4:U+Wcos(C)-Lsin(C→M:V+Wsin(C)+Lcos(C→N
Lbl 5: O+A→O:M+Bcos(O→M:N+Bsin(O→N
真似されている QQ:79868685
子程序[C]
I+×10-9→I:J+×10-9→J:Pol(I,J:J<0=>J+360→J
数据库子程序[PQ-1]
If K≤第一条弯道终点桩号:Then曲线起点切线方位角→C:交点X坐标→U:交点Y坐标→V:缓和曲线长度→F:道路转角(右转时输入为正值,左转时输入负值)→G:交点桩号→H:半径→R:Return:IfEnd
If K≤下一条弯道终点桩号:Then曲线起点切线方位角→C:交点X坐标→U:交点Y坐标→V:缓和曲线长度→F:道路转角(右转时输入为正值,左转时输入负值)→G:交点桩号→H:半径→R:Return:IfEnd
导线数据库子程序[DX-1]
If R=1:Then 导线点G1的X坐标→X:导线点G1的Y坐标→Y:IfEnd
If R=2:Then 导线点G2的X坐标→X:导线点G2的Y坐标→Y:IfEnd
If R=2.1:Then 导线点G2-1的X坐标→X:导线点G2-1的Y坐标→Y:IfEnd
If R=2.2:Then 导线点G2-2的X坐标→X:导线点G2-2的Y坐标→Y:IfEnd
If R=3:Then 导线点G3的X坐标→X:导线点G3的Y坐标→Y:IfEnd
本程序适用CASIO fx-5800P
正算主程序[KB-MN]
输入:1,2,3,4,5—选择待正算的线路 1,2,3,4—选择导线点
X—测站X坐标 Y—测站Y坐标 K—桩号 B—距中(左负 右正 中零)
结果:J=测站到放样点的方位角 I=测站到放样点的平距
M=放样点X坐标 N=放样点Y坐标
备注:输程序时,例“I +×10-9→I”的小“×10”为计算器面板的白色键“×10X”
若求斜交时边桩坐标,主程序[KB-MN]中90→A修改为斜交角度→A
若果道路为直线,则数据库子程序[PQ-1]中
直线起点往终点的方位角→C:起点或往后某一点的X坐标→U:起点或对应的某一点的Y坐标→V:0→F:×10-9→G:起点或对应的某一点桩号→H:×10-9→R
反算主程序[MN-KB]
输入:1,2,3,4,5—选择待反算的线路
K—待反算点附近的大概桩号
M—待反算点X坐标 N—待反算点Y坐标
结果:K=反算点的桩号 B=反算点的距中(左负 右正 中零)