坐标高程计算程序

《坐标高程计算程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、公路测量5800计算器程序程序设计::魏加训2012.12.20CASIO5800计算器公路测量计算程序程序设计:魏加训2012.12.20-5-公路测量5800计算器程序程序设计::魏加训2012.12.20Casio5800计算器数据库型万能坐标正反算计算程序一、主程序：1XYLbl0:“1.ZS2.FS”?→V↙IfV=1:Then“CZX”?H:“CZY”?T:Goto1:ElseIfV=2:ThenGoto2:IfEnd:IfEnd↙Lbl1:“K××+×××”?D:?Z:“RJ”?G↙Prog“P.Z”↙(注:计算另一线路时修改替换此处和FS子程序中的P.

2、Z为对应线路的数据库名称即可)Prog“ZS”↙IfZ<0:ThenCls:“X（L）=”:“Y（L）=”:Locate6，1，X:Locate6，2，Y◢Pol（X-H，Y-T）:Cls:“S（L）=”:Locate6，1，I:"F（L）="：360Frac（（J+360）÷360▼DMS◢Goto1:IfEnd↙IfZ=0:ThenCls:“X（Z）=”:“Y（Z）=”:Locate6，1，X:Locate6，2，Y:“QXFWJ（Z）=”:360Frac（（J+360）÷360▼DMS◢Pol（X-H，Y-T）:Cls:“S（Z）=”:Locate6，1，I:"

3、F（Z）="：360Frac（（J+360）÷360▼DMS◢Goto1:IfEnd↙IfZ>0:ThenCls:“X（R）=”:“Y（R）=”:Locate6，1，X:Locate6,2，Y◢Pol（X-H，Y-T）:Cls:“S（R）=”:Locate6，1，I:"F（R）="：360Frac（（J+360）÷360▼DMS◢Goto1:IfEnd↙Lbl2:0→Z:0→G:”X”?M:”Y”?I:Prog“FS”:Cls:“K=”：“Z=”：Locate4，1，D:Locate4，2，Z◢Goto2↙  二、正算子程序：ZS   5→N:U(E-1-R-1)÷A

4、bs（K-F）→P:Abs（D-F）÷N→Q:90Q÷π→S:(注:此处5→N是控制计算精度可修改的,一般取值为4～6即可)C+(NPQ+2UR-1)NS→J:1→L↙A+Q÷6×(Cos(C)+Cos(J)+4∑（Cos(C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Cos(C+((LPQ+2UR-1)LS,L,1,(N-1))）+ZCos（J+G)→X:B+Q÷6×(Sin(C)+Sin(J)+4∑（Sin(C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Sin(C+((LPQ+2U

5、R-1)LS,L,1,(N-1))）+ZSin（J+G)→Y↙三、反算子程序：FSLbl0:Prog“P.Z”:Prog“ZS”↙(注:计算另一线路时修改替换此处和1XY主程序中的P.Z为对应线路的数据库名称即可)(I-Y)sin(J)+(M-X)cos(J)→P:D+P→D↙IfAbs(P)≥0.001:ThenGoto0:ElseGoto1:IfEnd↙Lbl1:(I-Y)cos(J)-(M-X)sin(J)→Z-5-公路测量5800计算器程序程序设计::魏加训2012.12.20四、曲线元要素数据库格式IfD≥线元起点里程:Then线元起点里程→F:线元终点里程

6、→K:线元起点X坐标→A:线元起点Y坐标→B:线元起点切线方位角→C:线元起点半径→R:线元终点半径→E:线元转向(注:左-1,右+1,直线为0)→U:IfEnd↙五、曲线元要素数据库样例：P.ZIfD≥***:Then***→F:***→K:***→A:***→B:***→C:***→R:***→E:***→U:IfEnd↙IfD≥***:Then***→F:***→K:***→A:***→B:***→C:***→R:***→E:***→U:IfEnd↙IfD≥***:Then***→F:***→K:***→A:***→B:***→C:***→R:***→E:***

7、→U:IfEnd↙...............…………………………………………………………IfD≥***:Then***→F:***→K:***→A:***→B:***→C:***→R:***→E:***→U:IfEnd↙(注：如一条路有多个曲线元要素则按顺序排列依次添加入数据库P.Z中)六、程序说明：      程序线元判断原则:(1)以道路中线的前进方向（即里程增大的方向）区分左右；(2)当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线右侧时，Z取正值。(3)当线元为直线时，其起点、终点的曲率半径为无穷大，以10的45次代替输