- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
FX5800 计算器交点法正反算程序
输入图纸中的整个标段交点要素,输入桩号及距中桩距离正算本标段任意点坐标,及极坐
标放样的方位角及距离;由输入大概桩号及实测坐标,反算准确桩号及距中桩距离。(绿色
为程序名,蓝色为输入计算器里的内容)
1、 主程序
程序名:1XY-KM
LbI 0 :7→DimZ :Norm 2:1→A :"A:X,Y=1 ,KM,D=2 "?A:
A=1=Goto 1:A=2=Goto 2:LbI 1:LbI A:Prog "QX ":90→B "PJ "?B:B→Z[1] :
LbI B: "KM "?Z:Z= -1=Goto 0:Z=-2=Goto A: Prog "X1 ":?D: Prog
Z:I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Fix 3: "X= ":Locate 6,4,
X:"Y=":Locate 6,4,Y:◢
Goto B:LbI 2 :Prog "QX ": "KM "?Z :LbI C: Prog "X1 ": "XO "?X:X=-
1=Goto 0:X=-2=Goto 2: "Y0 "?Y:Prog "ZX ": Fix 3: " KM=":Locate
6,4, Z:" D=":Locate 6,4,D◢
Goto C
2. 交点法正算子程序(Z)
程序名:Z
H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B ((H2-N2 )
÷24÷R÷Sin(Abs(P))-((H∧(4)-
N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs(P)÷2)+B-
E→T:P÷Abs(P→W:0→M:H→C: (R+N2÷R÷24-
N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→Z[6]: O-
T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1:
IfEnd: If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto
1
读万卷书 行万里路
2:IfEnd:If Z≤Z[7]: Then 180(Z-O+T-0.5H)÷R÷Π→S : A+R(1-Cos(S))→B:H÷2-
H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]: A-T→A:G→E :Goto 2: IfEnd
If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T :N→H:Prog “HX”:G+P→E:E-
WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd:
Z-Z[7]-N+Z[6]→S:G+P→Z[2]: LbI 1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J: Return:LbI
2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J
3. 交点法缓和段子程序(HX)
程序名:HX
S-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4) ÷H∧(4→A:S∧(3) ÷6÷R÷H-
S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)
÷H∧(5→B:90S2÷Π÷R÷H→K:RH÷S→M
4. 交点法反算子程序(ZX)
程序名:ZX
0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-
Z[2]→J:Isin(J→S:Icos(J→D: If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd:
LpWhile Abs(D)0.001:Z+D→Z:S→D
5 .线路选择子程序(线路选择输 0 时。则输曲线参数(QX )
程序名:QX
1→A:”QX ?=0 ,X1=1,X2=2”?A:A→Z[3]
If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2” ?N :
“JDZJ”?P:?R:IfEnd
6 .坐标计算参数矩阵调出子程序(F )
程序名:F
Mat F[1,1]→O: Mat F[1,2]
文档评论(0)