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