5800计算器普通线路全线坐标中边桩计算程序4.docVIP

CASIO?fx—5800计算器?工程测量与公路测量程序 2009-10-08 20:17:45 杂谈 1、坐标正算＂X0 ″?X:＂Y0 ″?Y:＂I ″?I:＂J ″?JX+ICos J →U:Y+ISin J →V＂X ″:U （待求点的X坐标）＂Y ″:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1 ″?X:＂Y1 ″?Y:＂X2 ″?U:＂Y2 ″?V?Pol U-X,V-Y :?J 0 J+360→J＂I ″:I＂J ″:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0 ″?X: ＂Y0 ″?Y:＂FWJ ″?D:＂QDHAO ″?G: ＂ZDHAO ″?C: ＂R ″?RLbl 1＂DQHAO ″?LL G Or L＞C GOTO 2＂PY ″?K180 L-G ÷ πR →E2RSin 0.5E →FReC Abs F ,D+0.5E ：Cls＂X ″:X+I+KCos D+E+90 →A＂Y ″:Y+J+KSin D+E+90 →BD+E→o:o 0 360+o→0o＂FWJ ″:o? DMSGoto 1Lbl 2＂END″说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线＂QZHAO ″?J: ＂H+B″ ?B:＂I1 ″?C:＂I2 ″?D:＂R ″?R:＂T ″?T: D-C ÷100 ÷Abs D-C ÷100 →A:Abs 0.5R D-C ÷100 →S＂T″:SJ-T→XJ＋T→YLbl 0＂DQ ″?LIf L X:Then Goto 1:Else If? L＞Y:Then Goto 1:If End:If End＂GC ″:B+C L-J ÷100+A L-J+T ? ÷ 2R →HGoto 0Lbl 1＂END″说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。5．正算偏移＂X0 ″?A: ＂Y0 ″?B:＂FWJ ″?D:?Lbl 0＂LS ″?L: ＂PY ″?C?ReC L,D ?＂X ″:A+I+CCos D+ 90 →X?＂Y ″:B+J+CSin D+ 90 →YGoto 0说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角6.万能公式＂X0 ″?A:＂Y0 ″?B:＂FWJ ″?C:＂1÷R-QD″?D:＂1÷R-ZD″?E:＂QDHAO″?F:＂ZDHAO″?G?Lbl 1＂DQHAO ″?H:＂PY ″?o?If H F:Then Goto 2:Else If? H＞G:Then Goto 2:If End:IfEnd E-D ÷Abs G-F →P:Abs H-F →Q:PQ→I:C+90Q I+2D ÷π→J:C+45Q I÷8+D ÷π→M:C+135Q 3I÷8+D ÷π→N:C+45Q I÷2+2D ÷π→KA+Q Cos C +4 Cos M +Cos N +2Cos K +Cos J ÷12→U:B+Q Sin C +4 Sin M +Sin N +2Sin K +Sin J ÷12→V＂X ″:U+oCos J+90 →X＂Y ″:V+oSin J+90 →Y＂FWJ ″: J DMSGoto 1Lbl 2＂END″说明：X0Y0：起开点坐标，FWJ：起开点方位角，1÷R-QD：起开点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标6、标高计算＂QZHAO ″?J:＂QDHAO ″?G:＂ZDHAO ″?K:＂B—HB ″?B:＂SX ″?Q:＂I1 ″?C:＂I2 ″?D:＂R ″?R:＂T ″?T D-C ÷100→W:W÷Abs W →A:＂T″:0.5RAbs W →S＂o-YIGAO ″?oJ-T→X:J+T→YLbl 1＂L—DQHAO ″?L:＂PY ″?U:＂XIELV ″?VIf L X:Then Goto 2:Else If? L＞Y:Then Goto 3:If End:I End＂HL ″:B+0.01C L-J +A L-J+T ? ÷ 2R +0.01UV+Q→Q＂HO ″:o-H→ZGoto 1Lbl 2L G Goto 4＂HL ″:B