曲线任意里程中边桩坐标正反算(CASIO fx-4850P计算器)程序第四次修改版.docVIP

下载本文档

15
0
约 5页
2017-08-12 发布于河南
举报
版权申诉

曲线任意里程中边桩坐标正反算(CASIO fx-4850P计算器)程序第四次修改版.doc

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

曲线任意里程中边桩坐标正反算(4850P计算器)程序(第四次修改版）曲线任意里程中边桩坐标正反算(CASIO fx-4850P计算器)程序（第四次修改版）一、程序功能及原理1.功能说明：本程序由一个主程序(TYQXjs)和四个子程——正算子程序(SUB1)、反算子程序(SUB2)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序也可以在CASIO fx-4800P计算器运行。2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb0=该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。二、源程序1.主程序(TYQXjs)Lbl 0：Defm 50:1.SZ = XY,2.XY = SZ：N： N=1=Goto 1：≠Goto 2Δ←Lbl 1：{SZ}：SZS≤Z[18]=J=1：Prog “DAT1”：Goto 3ΔS≤Z[26]=J=2：Prog “DAT1”：Goto 3ΔS≤Z[34]=J=3：Prog “DAT1”：Goto 3ΔS≤Z[42]=J=4：Prog “DAT1”：Goto 3Δ???????????? ……………S≤Z[8（N+1）+2]=J=n：Prog “DAT1”：Goto 3ΔLbl 3：W=Abs(S-O)：Prog SUB1：XS=:X=XYS=:Y=Y◢”FWI=”: F=F-M :F→DMS◢Goto 4←┘Lbl 2：{XY}：XY：Z[4]=X：Z[5] =Y：N=0Lbl??A：Isz N：A=Z[8N+3]-M：B=Z[8（N+1）+3]-M：Prog ZX1 ：Z[6]×Z[7]0=J=N：Prog DAT1 ：Goto BΔA=Z[8N+3]+M：B=Z[8（N+1）+3]+M：Prog ZX1 ：Z[6]×Z[7]0=J=N：Prog DAT1 ：Goto B：≠ Goto AΔLbl??B：Prog SUB2：S=:S=O+WZ=:Z=Z◢Goto 2Lbl 4:J=0:I=Pol(X-Z[1],Y-Z[2]):F=J:F0=F=F+360Δ??”DIST=”:??I◢”FW=”:F→DMS◢ Goto 12. 正算子程序(SUB1)A=0.1184634425:B=0.2393143352:N=0.2844444444:K=0.0469100770:L=0.2307653449:Z[3]=0.5:X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Ncos(G+QEZ[3]W(C+Z[3]WD))+Bcos(G+QE(1-L)W(C+(1-L)WD))+Acos(G+QE(1-K)W(C+(1-K)WD))): Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Nsin(G+QEZ[3]W(C+Z[3]WD))+Bsin (G+QE(1-L)W(C+(1-L)WD))+Asin (G+QE(1-K)W(C+(1-K)WD)))：M”ANG=”: F=G+QEW(C+WD)+M：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)M”ANG=”:T=G-M：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog SUB1：L=T+QEW(C+WD)：Z=(Z[5]-Y)cosL-(Z[4]-X)sinL：AbsZ1E-6=Goto1：≠W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog SUB1：Z=(Z[5]-Y)÷sinF4. 垂距计算子程序(ZX1)Z[6]=(Z[5]-Z[8N+1])COS A-(Z[4]-Z[8N])SIN AZ[7]=(Z[5]-Z[8(N+1)+1])COS B-(Z[4]-Z[8(N+1)])SIN B5.曲线元要素数据库：DAT1Lbl1:J=1=U=Z[8]:V=Z[9]:O=Z[10]:G=Z[11]:H=Z[12]:P=Z[13]:R=Z[14]:Q=Z[15]ΔJ=2=U=Z[16]:V=Z[17]:O=Z[18]:G=Z[19]:H=Z[20]:P=Z[21]:R=Z[22]:Q=Z[23]ΔJ=3= U=Z[24]:V=Z[25]:O=Z[26]:G=Z[27]:H=Z[28]