casio—5800p计算器程序集

《casio—5800p计算器程序集》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CASIO—5800P计算器程序集中铁十五局集团第四工程有限公司龙飞2009年12月9日9目录1.坐标计算.中------------------------------------------------22.坐标计算（左中右3桩）-------------------------------33.坐标计算（任意桩）-------------------------------------44.坐标反算------------------------------------------------55.竖曲线高程计算-----------------

2、-------------------------------66.坐标投点-----------------------------------------------77.坐标正算------------------------------------------------88.后方交会------------------------------------------------99坐标计算（中桩）程序名：1.ZBJS.Z（原复化辛朴生公式）改版加数据库Lbl0:“DKI”?HProg“SJK”(E-D)/Abs(G-F)→P:Abs(H-F)

3、→Q:P*Q→I:D+I→TC+(I+2D)Q*90/π→JC+(I/4+2D)Q*45/(2π)→M:C+(3I/4+2D)Q*135/(2π)→NC+(I/2+2D)Q*45/π→KA+Q(cos(C)+4(cos(M)+cos(N))+2cos(K)+cos(J))/12→X:“X=”:X◢B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))/12→Y:“Y=”:Y◢Goto0说明：直接输入中桩里程出坐标如果这步C+(I+2D)Q*90/π→J改成C+(I+2D)Q*90/π→J：“FWJ=”:J◆DMS◢能显示

4、中桩的方位角数据库程序名：SJKIfH≥起点里程andH≤终点里程：Then起点X坐标→A:起点Y坐标→B：起点方位角→C：起点曲率→D:终点曲率→E：起点里程→F:终点里程→G:Return:IfEnd…………把每一段的数据全部输入进去。说明：曲率直线输入0，线路左偏输-1／半径，线路右偏输1／半径9坐标计算（左中右3桩）程序名：2.ZBJS.3（原复化辛朴生公式）改版加数据库Lbl0:“DKI”?H:“JD”?S:“DL”?O:“DR”?RProg“SJK”(E-D)/Abs(G-F)→P:Abs(H-F)→Q:PQ→I:D+I→TC+(I+2D)

5、Q*90/π→JC+(I/4+2D)Q*45/(2π)→M:C+(3I/4+2D)Q*135/(2π)→NC+(I/2+2D)Q*45/π→KA+Q(cos(C)+4(cos(M)+cos(N))+2cos(K)+cos(J))/12→X:“X=”:X◢B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))/12→Y:“Y=”:Y◢X+Ocos(J-(180-S))→U:“XL=”:U◢Y+Osin((J-(180-S))→V:“YL=”:V◢X+Rcos((J+S)→W:“XR=”:W◢Y+Rsin(J+S)→Z:“Y

6、R=”:Z◢Goto09坐标计算（任意桩）程序名：3.ZBJS.RYZ（原复化辛朴生公式）改版加数据库Lbl0:“DKI”?H:“JD”?S:“HD”?OProg“SJK”(E-D)/Abs(G-F)→P:Abs(H-F)→Q:PQ→I:D+I→TC+(I+2D)Q*90/π→JC+(I/4+2D)Q*45/(2π)→M:C+(3I/4+2D)Q*135/(2π)→NC+(I/2+2D)Q*45/π→KA+Q(cos(C)+4(cos(M)+cos(N))+2cos(K)+cos(J))/12→UB+Q(sin(C)+4(sin(M)+sin(N))+

7、2sin(K)+sin(J))/12→VU+Ocos((J+S)→X:“X=”:X◢V+Osin(J+S)→Y:“Y=”:Y◢Goto09坐标反算程序名：4.ZBFSLbIO：“QDX”?X：“QDY”?Y：“ZDX”?S：“ZDY”?TPOI（X-S，Y-T）:clsifJ＜360:ThenJ+180→J:IfEnd:cls“HD=”:I◢“FWJ=”:J◥DMS◢Goto0使用说明：QDX………………………方向起点的X坐标QDY………………………方向起点的Y坐标ZDX………………………方向终点的X坐标ZDY………………………方向终点的Y坐标HD……

8、……………………起点到终点的距离FWJ…………………………起点到终点的方位角9竖曲线高程计算程