KB-MN5800道路坐标正反算程序.docVIP

CASIO fx-5800P放样程序 正算主程序[KB-MN] “1,2,3,4,5”?Z:?X:?Y Lbl 1:Fix 3:?K:?B:90A 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-XI:N-Y→J:Prog“C”:Cls:Locate 1,1,“J ”:Locate 4,1, J°:Locate 1,2,“I ”:Locate 10,2,I:Locate 1,3,“M ”:Locate 8,3,M:Locate 1,4,“N ”:Locate 8,4,N◢ Cls:Goto 1 反算主程序[MN-KB] “1,2,3,4,5”?Z:?K Lbl 0:Fix 3:?M:?N:MD: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 L-JA:Icos L-J→B If Abs A ＞0.001:Then K+AK:Goto 1:Else Cls:Locate 1,1,“K ”:Locate 9,2, K:Locate 1,3,“B ”:Locate 10,4,B◢ IfEnd:Goto 0 子程序[C]I+×10-9→I:J+×10-9→J:Pol I,J:J＜0＝＞J+360→J 子程序[PQXY] G÷Abs GL:F2÷ 24R→P:F÷2-F＾ 3 ÷ 240R2Q: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-KJ: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:S J-T-J＾ 5 ÷ 40R2F2W:L J＾ 3 ÷ 6RF -J＾ 7 ÷ 336R＾ 3 F＾ 3L: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:Goto 4 Lbl 4:U+Wcos C -Lsin C→M:V+Wsin C +Lcos C→N:Goto 5 Lbl 5: O+A→L:M+Bcos L→M:N+Bsin L→N 数据库子程序[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 ……………………………………………………………. 本程序适用CASIO fx-5800P 正算主程序[KB-MN] 输入：1,2,3,4,5---选择待正算的线路 X---测站X坐标 ??Y---测站Y坐标 ???K---桩号 ???B---距中（左负 右正 中零） 结果：J 测站到放样点的方位角 I 测站到放样点的平距 M 放样点X坐标 N 放样点Y坐标 备注：输程序时，例“I +×10-9I”的小“×10”为计算器面板的白色键“×10X” 程序中字母后所带数字为次方,如:240R2式中2为平方。 若求斜交时边桩坐标，主程序[KB-MN]中90A修改为斜交角度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 反算点的距中（左负 右正 中零） From : SENDY ?CHAN ??QQ:座机电话号码