CASIO fx—5800计算器工程测量与公路测量程序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：方位角２、坐标反算Lbl 0〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?VPol(U-X,V-Y):J<0 J+360→J〝I=〞:I〝J=〞:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角３、圆曲线〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 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：偏移量４、竖曲线〝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=〞?CReC(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〞?GLbl 1〝DQHAO=〞?H:〝PY=〞?oIf 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+0.01 (L-J)C+0.01U V+Q →H〝H0=〞:o-H→HGoto 1Lab 3L>K Goto 4〝HL=〞:B+0.01 (L-J)D+0.01UV+Q →H〝HO=:o-H→ZGoto 1Lbl 4: 〝END〞说明：QZHAO：曲中点里程（竖曲线），QDHAO：起点里程，ZDHAO：终点里程，B—HB 曲中点高程，SX：上下（路面标高下多少为水稳层面），I1：第一坡度，I2：第二坡度，R：半径，T切线长，L—DQHAO：待求点里程，PY：偏移（中桩到边桩的距离），XIELV：斜率（横坡的坡度，左负右正）o-YIGAO：仪器高卡西欧Fx5800P 公路逐桩坐标计算程序本程序先把整条线路要素先一次输入到计算器额外变量中，就能计算任意中、边桩坐标，适用高速公路等一般线型，能计算两边不等长缓和曲线。

ZXZB(文件名)Lb1 1 ?6→Z ?（此处6只表示举例的数字，实际应输入要计算线路的交点个数）2→W ?？K ? （程序运营时出现“K？”表示要输入计算的桩号，如计算K5+334.23，则输入5334.23）While K>Z[W+5Z+4]: W+1→W ：WhileEnd ?K-Z[W+5Z+3]→S ?Z[W+2Z+2]→R ：Z[W+3Z+2]→L ：Z[W+4Z+2]→E ?Pol（Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]） ?If J<0 : Then J+360→J : IfEnd ?J→A?If W=2 : Then Goto 2 : IfEnd ?Pol（Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]） ?If J<0 : Then J+360→J : IfEnd ?A-J→C ：J→A?L÷2-L^3÷（240R^2）→M ：E÷2-E^3÷（240R^2）→N ?L^2÷（6R）-L^4÷（336R^3）-R（1-cos（90L÷（πR）））→P ?E^2÷（6R）-E^4÷（336R^3）-R（1-cos（90E÷（πR）））→Q ?（R+Q-（R+P）cos （Abs（C）））÷（sin （Abs （C）））+M →M ?（R+P-（R+Q）cos （Abs （C）））÷（sin （Abs （C）））+N →Q ?πRAbs （C）÷180+（L+E）÷2 →N ?Z[W-1]-Mcos（A）→X ?Z[W+Z+1]-Msin（A）→Y ?Z[W-1]+Qcos（A+C）→M ?Z[W+Z+1]+Qsin（A+C）→V ?Abs（C）÷C→Q ?If S≤L : Then 0→P ：Goto 3 : IfEnd ?If S≤N-E : Then S-L→S ：Goto 4 : IfEnd ?If S≤N : Then N-S→S ?-Q→Q ：A+C-180→A：M→X ：V→Y ：E→L ：180→P ：Goto 3 : IfEnd ?A+C→P ：S-N→S ：M+Scos（P）→D ：V+Ssin（P）→F ：Goto 6 ? Lb1 2 ?A+C→P?Z[W-1]+Scos（P）→D?Z[W+Z+1]+Ssin（P）→F ：Goto 6 ?Lb1 3 ?S-S^5÷(40R^2)÷L^2+S^9÷(3456R^4)÷L^4→I?Q（S^3÷(6RL)-S^7÷(336R^3)÷L^3）→J ?P+A+90QS^2÷(πRL)→P ：Goto 5 ?Lb1 4 ?90（2S+L）÷(πR) →M ?Rsin（M）+L÷2-L^3÷(240R^2) →I ?Q（L^2÷(24R)+R（1-cos（M））→J?A+QM →P ?Lb1 5 ?X+Icos（A）-Jsin（A）→D ：Y+Jcos（A）+Isin（A）→F?Lb1 6 ?Fix 3 ?″X=″D◢ ?（显示中桩横坐标）″Y=″F◢ ?（显示中桩纵坐标）″AT=″P◢ ?（显示中桩切线方位角）″B=″ ?T? (程序运营时出现“B=？”表示要输入计算边桩的距离,左-，右+)″α=″ ?U ?（程序运营时出现“α=？”表示输入边桩斜交角，前进方向的右角）P+U→ P ?″XB=″: D+Tcos（P）◢? （显示边桩横坐标）″YB=″: F+Tsin（P）◢? （显示边桩纵坐标）Norm 2Goto 1使用说明1、上述程序代码中“（）”里为说明，不输入5800中。

2、代码中下划线的字母表示要从计算器中调出，整体输入，见5800说明书。

3、程序使用前应设置好额外变量，额外变量输入前，应按5800说明书，先将额外变量的数目设置至够用的数目，一般大于线路交点数的6倍+6个，如5个交点，则为大于36个。

额外变量的形式为：Z[N]，N—表示具体的数字如要把1000存入到第1个额外变量中，具体操作为：输入1000→Z[1] 后，按，就把1000存入到Z[1]中，如要把999999存入到第45个额外变量中，就是：输入999999→Z[45]后，按，就把999999存入到Z[45]中了。

FX 5800公路逐桩坐标计算程序操作说明计算器显示操作步骤1按键，打开文件菜单，选择“ZXZB”文件名，按键确认。

“K？”提示输入要计算的桩号“950.000”为缺省的桩号2出现此窗口“1020.888”为输入要计算的桩号3输入计算的桩号如：K1+020.888则输入1020.888显示X坐标4按键确认后计算中桩X坐标，出现此窗口。