CASIOfx—5800计算器工程测量与公路测量.docVIP

CASIO fx—5800计算器 工程测量与公路测量程序1、坐标正算〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?J X+ICos(J)→U:Y+ISin(J)→V 〝X=〞:U （待求点的X坐标）〝Y=〞:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角２、坐标反算Lbl 0 〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?V Pol(U-X,V-Y): J0 J+360→J 〝I=〞:I 〝J=〞:J DMS GOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角３、圆曲线〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 1 〝DQHAO=〞?L LG Or L﹥C GOTO 2 〝PY=〞?K 180(L-G)÷(πR) →E 2RSin(0.5E) →F ReC(Abs(F),D+0.5E)：Cls 〝X=〞:X+I+KCos(D+E+90) →A 〝Y=〞:Y+J+KSin(D+E+90) →B D+E→o:o0 360+o→0o 〝FWJ=〞:o DMS Goto 1 Lbl 2 〝END〞说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量４、竖曲线〝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〞:S J-T→X J＋T→Y Lbl 0 〝DQ=〞?L If LX: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) →H Goto 0 Lbl 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) →Y Goto 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 HF: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) ÷π→K A+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 DMS Goto 1 Lbl 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=〞?o J-T→X:J+T→Y Lbl 1 〝L—DQHAO=〞?L:〝PY=〞?U:〝XIELV=〞?V If LX: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→Z Goto 1 Lb