卡西欧计算器5800量放样程序.doc

卡西欧5800程序(修改于湘桂) R（主程序，通过里程求中桩、边桩坐标，在输入测站坐标后并求极坐标放样要素） 1→M强制赋值M=1.，程序会自动从数据库CIRCLE调用曲线要素 :“NEWZ CIRCLE”？M : If M=-1程序运行过程中，M=-1时会提示需手动输入曲线要素。 : Then “JD” ？U :“1-TR-1-TL” ? N : “AT ” ? O : “JX” ? S : “JY ” ? P : “L0 ” ? H : “R” ? R : “ZJ” ? A : IfEnd↙换行符。 强制赋值M=1.，程序会自动从数据库CIRCLE调用曲线要素 程序运行过程中，M=-1时会提示需手动输入曲线要素。 换行符。 “OPP NAME ” ？W : If W=-1程序运行到该步骤，可以手动输入置镜点点号直接从控制点数据库CONTREL调用坐标数据，或者赋值W=-1，然后下一步手动输入置镜点想X ，Y坐标。 : Then “OPPX”？B : “OPPY”？C : Else Prog“CONTREL”: IfEnd↙ 程序运行到该步骤，可以手动输入置镜点点号直接从控制点数据库CONTREL调用坐标数据，或者赋值W=-1，然后下一步手动输入置镜点想X ，Y坐标。 Lbl 0: “C”？K程序运行到该步骤会提示输入里程数据 : If Int(K÷1000)0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙ 程序运行到该步骤会提示输入里程数据 If M=1:Then Prog“CIRCLE” IfEnd↙ H÷2-H^(3)÷(240R2)+(R+H2÷(24R))tan（A÷2）→T:πR(A-180H÷π÷R)÷180+2H→L↙ U-T→G:K→Q↙ If Q≤G+L÷2:Then Q-G→Q: Else G+L-Q→Q: IfEnd↙ If Q＜0:Then Prog “L”:Goto1: IfEnd↙ If Q≤H:Then Q-Q^(5)÷(40R2H2)→X:Q^(3)÷(6RH)-Q^(7)÷(336R^(3)H^(3)) →Y:90Q2÷(πRH) →F: Else 180(Q-H÷2)÷(πR) →F:Rsin(F)+H÷2-H^(3)÷(240R2) →X:R(1-Cos(F))+H2÷(24R) →Y: IfEnd↙ Pol(T-X,Y) ↙ If K≤G+L÷2:Then O-180-NJ→E:NF+O→F: “F=”:F▲DMS◢ Else NA+NJ+ O→E: O+NA-NF→F: “F=”:F▲DMS◢IfEnd↙ “X=”:S+Icos(E)→X◢ “Y=”:P+Isin(E)→Y◢ 对应里程中点坐标。 If F＜0:Then 360+F→F: IfEnd↙ 对应里程中点坐标。 If F≥360:Then F-360→F: IfEnd↙ Lbl1: “÷1”？Z: If Z=1:Then Prog “I”: IfEnd If Z=2:Then Prog “LD”: IfEnd↙ If Z=-1:Then Prog “Q”: “X=”:X◢ “Y=”: Y◢ IfEnd↙ Prog “P”↙ Goto 0↙循环到初始状态 循环到初始状态 P（子程序，受主程序R调用，求极坐标放样要素:方位角及平距） Pol(X-B,Y-C): “D=”:I◢ If J＜0:Then 360+J→J: Else 0+J→J: IfEnd↙ “AQ=”:J▲DMS◢ L（子程序，受主程序R调用，求直线上点位坐标及切线方位角） T-Q→Q:If K＜G:Then O+180→E: O→F: “X=”:S+Qcos(E)→X◢ “Y=”:P+Qsin(E) →Y◢ Else O+NA→F: “X=” S+Qcos(F) →X◢ “Y=”:P+Qsin(F) →Y◢ IfEnd↙ I（子程序，受主程序R调用，求边桩坐标） “RA”？E：“D”？D程序运行至该步骤会提示输入边桩偏距和偏角。:E+F→E: If E≥360:Then E-360→E: IfEnd↙ 程序运行至该步骤会提示输入边桩偏距和偏角。 X+Dcos(E)→X: Y+Dsin(E)→Y: “X=”: X◢ “Y=”: Y◢边桩坐标计算结果显示。 E→F↙ 边桩坐标计算结果显示。 Q（子程序，受主程序R调用，求副线边桩坐标） “1A”？E：“1D”？D运行至该步骤提示输入副线偏角和偏距。：E+F→E↙ 运行至该步骤提示输入副线偏角和偏距。 X+Dcos(E)→X: Y+Dsin(E)→Y:E→F↙ “2R”？E: “2D”？D运行至该步