- 1、本文档共12页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
卡西欧计算器5800量放样程序
卡西欧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运行至该步
文档评论(0)