曲线任意里程中边桩坐标正反算70623.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
曲线任意里程中边桩坐标正反算70623

曲线任意里程中边桩坐标正反算 (CASIO fx-5800P计算器)程序一、程序功能 ????????本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序(SDYX)构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。 ??二、源程序 16→DimZ增加变量 1.主程序(ZHUCHENXU) 1(SZ → XY),2(XY → SZ),3SDYX),4BIANPO )?N: Lbl 1:If Then Prog”SUB4”Goto 0:Else “D-LC”?S:Prog”SUB3”:Goto 3: IfEnd: Lbl 0:”D-LC=”?S: If S0:Then Cls:Stop:IfEnd If S0+H:Then Cls:Stop:IfEnd: N≥2=Goto 2: Abs(S-O)→W:”BIAN=”?→Z:Prog SUB1: XS=”:X→X◢YS=”:Y→Y◢FS=”:(F-90) →F:F?DMS◢Prog FA:Goto : Lbl 2:”CX=”?X: X→I:”CY=”?Y: Y→J:”DMG=”?→Z[7]:Prog SUB2: S=:(O+W) →S◢Z=Z→Z◢If N=3:Then Prog”SDYX”: IfEnd :If N=4:Then Prog”BIANPO”:IfEnd:Goto 2Lbl 3:N≥2=Goto 2: Abs(S-O)→W:”BIAN=”?Z:Z→Z:Prog SUB1: XS=”:X→X◢YS=”:Y→Y◢FS=”:(F-90) →F:F?DMS◢Prog FA:Goto 2. 正算子程序(SUB1) 0.1739274226 →Z[1]: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: (1-L) →F: (1-K)→M: U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X: V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y: G+QEW(C+WD)+90→F: X+ZcosF)→X: Y+ZsinF)→Y ? ? 3. 反算子程序(SUB2) G-90 →Z[2]: Abs((Y-V)cosZ[2]-(X-U)sinZ[2])) →W: 0→Z:Lbl 0:Prog SUB1: Z[2]+QEW(C+WD) →L: (J-Y)cosL)-(I-X)sin(L)→Z: If Abs(Z)1-6):Then Goto1:Else W+Z→W:Goto 0: IfEnd Lbl 1: 0→Z:Prog SUB1: (J-Y)÷sinF)→Z (3-1). P-D反算程序 →DimZ:↓ Lbl 1:G-90→Z[2]:(Y-V)cos(Z[2])-(X-U)sin(Z[2] →Z[17]: ↓ If O+Z[17]O: Then O+Z[17]→S:Prog“SUB3”:Goto 1:Else Goto 2:IfEnd↓ Lbl 2:If O+Z[17]O+H:Then O+Z[17]→S:Prog“SUB3”: Goto 1: Else Return:IfEnd↓ 4. 数据库(SUB3) If S226100:Then Cls:Stop: IfEnd If S226255.833:Then 226100→O: 99037.9736→U: 4282.3590→V: 201.3266304→G: 1045→P: 1045→R: 253.543→H: 0→Q: Goto 1:IfEnd …… …… If S236005.651:Then Cls:Stop: IfEnd Lbl 1: 1÷P→C:(P-R)÷(2HPR) →D:180÷π→E:.(SUB4)(附加的子程序,为单独算一条曲线而编写) “L0-STR,LC=”?O:”L0-STR,X=”?U:”L0-STR,Y=”?V:L0-STR,FWJ=”?G:”L0-STR,R=”?P:”L0-END,R”?R:”L0-CHANG=”?H:Z(

文档评论(0)

swa708 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档