5800计算器程序.doc

CASIO5800P计算器程序集中铁十五局集团第四工程有限公司龙 飞2009年12月9日目 录 1. 坐 标 计 算.中-22. 坐 标 计 算（左中右3桩）-33. 坐 标 计 算（任意桩）-44. 坐 标 反 算-5 5. 竖曲线高程计算-6 6. 坐 标 投 点 -7 7. 坐 标 正 算-8 8. 后 方 交 会-9 坐 标 计 算（中桩）程序名：1.ZBJS.Z （原 复化辛朴生公式）改版加数据库Lbl 0:“DKI”?HProg“SJK” (E-D)/Abs(G-F) P:Abs(H-F) Q:P*QI:D+ITC+(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)+2 cos(K)+ cos(J)/12X:“X=”:XB+Q(sin(C)+4(sin(M)+ sin(N)+2 sin(K)+ sin(J)/12Y:“Y=”:YGoto 0说明：直接输入中桩里程出坐标如果这步C+(I+2D)Q*90/J改成C+(I+2D)Q*90/J：“FWJ=”:JDMS能显示中桩的方位角数 据 库程序名：SJKIf H起点里程and H终点里程：Then起点X坐标A:起点Y坐标B：起点方位角C：起点曲率D:终点曲率E：起点里程F:终点里程G:Return:IfEnd把每一段的数据全部输入进去。说明：曲率 直线输入0，线路左偏输 -1半径，线路右偏输 1半径坐 标 计 算（左中右3桩）程序名：2.ZBJS.3（原 复化辛朴生公式）改版加数据库Lbl 0:“DKI”?H:“JD”?S:“DL”?O:“DR”?RProg“SJK” (E-D)/Abs(G-F) P:Abs(H-F) Q:PQI:D+ITC+(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)+2 cos(K)+ cos(J)/12X:“X=”:XB+Q(sin(C)+4(sin(M)+ sin(N)+2 sin(K)+ sin(J)/12Y:“Y=”:YX+Ocos(J-(180-S) U:“XL=”:UY+Osin(J-(180-S) V:“YL=”:VX+Rcos(J+S) W:“XR=”:WY+Rsin(J+S) Z:“YR=”:ZGoto 0坐 标 计 算（任意桩）程序名：3.ZBJS.RYZ （原 复化辛朴生公式）改版加数据库Lbl 0:“DKI”?H:“JD”?S:“HD”?OProg“SJK” (E-D)/Abs(G-F) P:Abs(H-F) Q:PQI:D+ITC+(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)/12UB+Q(sin(C)+4(sin(M)+ sin(N)+2sin(K)+ sin(J)/12VU+Ocos(J+S) X:“X=”:XV+Osin(J+S) Y:“Y=”:YGoto 0坐 标 反 算程序名：4.ZBFSLbIO：“QDX”?X：“QDY”?Y：“ZDX”?S：“ZDY”?T POI（X-S，Y-T）:cls if J360:ThenJ+180 J:IfEnd :cls “HD=”:I“FWJ=”:JDMSGoto0使用说明： QDX 方向起点的X坐标 QDY 方向起点的Y坐标 ZDX 方向终点的X坐标 ZDY 方向终点的Y坐标 HD 起点到终点的距离 FWJ 起点到终点的方位角 竖 曲 线 高 程 计 算程序名：5.GCJSLbIO： “LCO”？A：“HO”？B：“R”？R：“I1”？C:“I2”？D LbI1：“LP：1,RP：0”？N LbI2：IF N=1:Then R(D-C)/200T:Else IF N=0:Then R(C-D)/200T:IfEnd:IfEND:A-TE:A+TF:“DKA=”:E“DKB=”:FLbI3:“DKI”？G：If GA:Then Goto4: If End:Goto5LbI4:If GE:Then B-C(A-G)/100H:“H=”:HGoto3: Else (G-E)2/（2R）I：C（A-G）/100J：If N=1:Then B+I-JH:“H=”: HGoto3:Else If N=0:Then B-I-JH:“H=”:HGoto3:If End: If EndLbI5:If GF:Then B+D(G-A)/100H: “H=”:HGoto3: Else (F-G)2/(2R)I:D(G-A)/100J:If N=1:Then B+I+JH:“H=”：HGoto3: Else If N=0:Then B-I+JH:“H=”： HGoto3: If End: If End使用说明： 输入部分 显示部分LCO？变坡点桩号 DKA= 竖曲线起点里程HO？ 变坡点高程 DKB= 竖曲线终点里程R？ 竖曲线半径 H= 计算点高程I1 第一段坡度值I2 第二段坡度值LP：1，RP：0？凸曲线输0凹曲线输1DKI？计算点里程本程序可以计算出曲线起点到曲线终点以及下一段直线上的高程，直到下一个曲线起点为止放 样 夹 角 计 算 程序名：6.ZBTD “ZJX”?X：“ZJY”?Y：“HSX”?S：“HSY”?T POI（X-S，Y-T）:cls If J360:Then J+180F:IfEnd :cls “HD=”:I“FWJ=”:FDMSLbIO：“QSX”?U：“QSY”?V POI（X-U，Y-V）:cls If J360:Then J+180 L:IfEnd :cls “HD=”:I“FWJ=”:LDMSL-FWIf W0:Then W+360W:IfEnd:Cls “JD=”:WDMSGoto1使用说明：输入部分 显示部分ZJX？置镜点X坐标 第一次的HD=置镜点到后视的距离ZJY？置镜点Y坐标 第一次的J=置镜点到后视的方位角HSX？ 后视点X坐标 输入前视点的坐标以后HSY？ 后视点Y的坐标 HD=置镜点到前视的距离QSX？前视点X坐标 J=置镜点到前视的方位角QSY？前视点Y坐标 JD=后视点到前视点的夹角，也就是仪器要拨的夹角第一次HD=110.952 J=44-55-50.24 第二次HD=85.951 J=272-29-38.03仪器所要拨的角度为JD=227-33-47.79坐 标 正 算程序名：7.ZBZS “ZJX”?S：“ZJY”?U：“HSX”?T：“HSY”?N:“JD”?P:“D”?D:S-TA:U-NB POI（A，B） If J/J360:Then J+180 J:IfEnd :J:cls J+PFS+DCOS(F)X:“X=”:XU+DSin(F)Y:“Y=”:Y使用说明： ZJX? 置镜点X坐标 ZJY 置镜点Y坐标 HSX 后视点X坐标 HSY 后视点Y坐标 JD 置镜点到后视点拨到前视点之间的夹角 D 置镜点到前视点的距离后方交会程序名：8.HFJH“XR”?E:“YR”?F: “XL”?U: “YL”?V:U-ED:V-FK: (D2+K2)C180-90Abs(K)/K-tan-1（D/K）G“DR”？B：“DL”？ACos-1(B2+C2-A2)/2/B/C)MCos-1(A2+C2-B2)/2/A/C)NE+B