- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
坐标正算主程序LXZB
Fix 4:“1=ZK,2=YK,0=A”? O:Cls
“P+X=”? C
If O=0:Then “1=ZH,2=HQ,3=YQ”? G
“-R+”? R:“F1=”? F:“Z1=”? Q
“Z2=”? Y:“X1=”? N:“Y1=”? E
IfEnd
Lbl 1:Cls:“P=”? P:Cls:“HD=”? L
O=1=Prog“ZKZB”:O=2=Prog“YKZB”
Lbl 3:Abs(P-Q)→I:Abs(Y-Q)→U
QY=Goto 4:PQ=Goto 1:PY=Goto 1
Goto 5
Lbl 4:PQ=Goto 1:PY=Goto 1
Lbl 5:P+C→P
If G=1:Then N+Icos(F)→K:E+Isin(F)→H
F+90→J:K+Lcos(J)→K:H+Lsin(J)→H
F→Z[6]:Goto 6:IfEnd
If G=2:Then I-I5÷(40R2U2)→K
I5÷(6RU)-I7÷(336R3U3)→H
tan-1(H÷K))→J:→W
F+3J→Z[6]:90+Z[6]→M:IfEnd
If G=3:Then 90I÷(πR)→J
2Rsin(J)→W:F+2J→Z[6]:90+Z[6]→M:IfEnd
F+J→U:N+Wcos(U)→K:E+Wsin(U)→H
QY=-L→L:K+Lcos(M)→K:H+sin(M)→H
QY=-L→L
Lbl 6 Cls:Locate 1,1,“X=”:Locate 3,1,K
Locate 1,3,“Y=”:Locate 3,3,H◢
O=0=Goto 2:Goto1
Lbl 2: Cls
“F2=”:Z[6]△DMS◢
Goto 1
注释
设置显示四位小数
输入桩号间隔
输入待求点的桩号值和偏离测设中线的距离
1和2分别表示调用左线和右线数据库子程序
I为待求点到起算点距离,U为该段线元总长
限制若输入桩号不在该线元内 则重新输入
若在该线元内 则转到Lbl5程序段进行计算
条件 = 语句块 是条件语句 如果条件成立则执行=后面的一条语句
将桩号值加上采样间隔重新赋给P
直线段计算
第一缓和曲线段计算,
以曲线上任一点P切线方向为X轴,建立坐标系得出的缓和曲线上点的坐标计算公式
缓和曲线上某点切线角等于3倍的J
F+切线角就是切线方向方位角,曲线右偏再加90得到p点法向方位角,用来计算边桩坐标
圆曲线上切线角等于2倍的J
由中桩坐标和法向方位角M计算边桩坐标
此处计算出的K,H为曲线段上中桩坐标
此处计算出的K,H为边桩坐标
Locate 列,行,显示内容 (显示格式设置)
小三角符表示在执行过程中停顿显示计算值,按exe键后继续运行程序
坐标反算主程序LSIC
Lbl A:Fix 4:10→DimZ
“1=ZK,2=YK”?O:69069→P:Cls
“LMH=”?B:Cls:“0=SDIC,1=LXIC”?A:Cls
If A=0:Then“R2-R1”?C
Else“HD=”?C:Cls:“1÷X=”?W:IfEnd
Lbl B:Cls:“X=”?K:Cls:“Y=”?H:Cls
“Z=”?D
Lbl C:O=1=Prog“ZKZB”:O=2=Prog“YKZB”
Abs(P-Q)→I:Abs(Y-Q)→L
QY=Goto D:PQ=Goto A:PY=Goto A
Goto E
Lbl D:PQ=Goto A:PY=Goto A
Lbl E:If G=1:Then N+Icos(F)→X
E+Isin(F)→Z:0→L:Goto F:IfEnd
If G=2:Then I-I5÷(40R2L2)→X
I3÷(6RL)-I7÷(336R3L3)→Z
tan-1(Z÷X)→J:→I:3J→L:IfEnd
If G=3:Then 90I÷(πR)→J:2Rsin(J)→I
2J→L:IfEnd
N+Icos(F+J)→X:E+Isin(F+J)→Z
Lbl F:Pol(K-X+1*10-63 ,H-Z)
J≤0=J+360→J:QY=F-180→F
F0=F+360→F:J-F+L→X
Icos(X)→Z:P+Z→P:Abs(Z)≥0.001=Goto C
Isin(X)→L:J→Z(6):Cls
If O=1:Then Locate 1,1,“ZK=”
Locate 4,1,P:Locate 1,2,“P-ZK=”
Locate 6,2,P-68965:Locate 1,3,“HD=”
Locate 4,3,L:Locate 1,4,“HR”
Locate 4,4,J◢ IfEnd
If O=2:Then Locate 1,1,“YK=”
Locate 4,1,P:Locate 1,2,“P-YK
您可能关注的文档
最近下载
- Unit 6 Understanding ideas Longji Rice Terraces 课件-高中英语外研版(2019)必修第一册.pptx VIP
- 护理学导论(高职)教学教案.docx
- 2024年部编新改版语文六年级上册全册月考试题含答案(共4套).docx
- 饮用水和环境卫生公众健康宣教及风险沟通答案-2024年全国疾控系统“大学习”活动.docx VIP
- 新型冠状病毒、甲型和乙型流感病毒全预混冻干多重荧光PCR检测试剂盒及其检测方法发明专利.pdf VIP
- 基金会捐赠协议.doc VIP
- XX市智慧安居工程(一期)报警求助综合受理指挥分系详细设计方案.doc VIP
- 《乡土中国》 第11篇 《长老统治》.ppt
- [知识]职业生涯人物访谈(教师).pdf VIP
- 第六单元整本书阅读《西游记》课件 2024—2025学年统编版语文七年级上册.pptx VIP
文档评论(0)