5800公路计算程序.docVIP

下载本文档

4
0
约2.28千字
约 5页
2016-12-13 发布于浙江
举报
版权申诉

5800公路计算程序.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文档。上传文档

坐标正算?＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J?X+ICos(J)U:Y+ISin(J)→V?＂X=″:U （待求点的X坐标）?＂Y=″:V （待求点的Y坐标）?说明：X0 Y0：已知点坐标I：两点的距离J：方位角?2、坐标反算?Lbl 0?＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V?Pol(U-X,V-Y):?J0 J+360J?＂I=″:I?＂J=″:J DMS?GOTO 0?说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角?3、圆曲线?＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R?Lbl 1?＂DQHAO=″?L?LG Or L＞C GOTO 2?＂PY=″?K?180(L-G)÷(πR) E?2RSin(0.5E) →F?ReC(Abs(F),D+0.5E)：Cls?＂X=″:X+I+KCos(D+E+90) A?＂Y=″:Y+J+KSin(D+E+90) B?D+E→o0 360+o→0o?＂FWJ=″?DMS?Goto 1?Lbl 2?＂END″?说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量?4、竖曲线?＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:?((D-C)÷100) ÷Abs((D-C) ÷100)A:Abs(0.5R(D-C) ÷100)→S?＂T″:S?J-TX?J＋TY?Lbl 0?＂DQ=″?L?If LX:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End?＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) H?Goto 0?Lbl 1?＂END″?说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。?5．正算偏移?＂X0=″?A: ＂Y0=″?B:＂FWJ=″?D:?Lbl 0?＂LS=″?L: ＂PY=″?C?ReC(L,D)?＂X=″:A+I+CCos(D+ 90) X?＂Y=″:B+J+CSin(D+ 90) Y?Goto 0?说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角?6.万能公式?＂X0=″?A:＂Y0=″?B:＂FWJ=″?C:＂1÷R-QD″?D:＂1÷R-ZD″?E:＂QDHAO″?F:?＂ZDHAO″?G?Lbl 1?＂DQHAO=″?H:＂PY=″?o?If HF:Then Goto 2:Else If H＞G:Then Goto 2:If End:IfEnd?(E-D)÷Abs(G-F) P:Abs (H-F) →QQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K?A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:?B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V?＂X=″:U+oCos(J+90) X?＂Y=″:V+oSin(J+90) Y?＂FWJ=″: J DMS?Goto 1?Lbl 2?＂END″?说明：X0Y0：起开点坐标，FWJ：起开点方位角，1÷R-QD：起开点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标?6、标高计算?＂QZHAO=″?J:＂QDHAO=″?G:＂ZDHAO=″?K:＂B—HB=″?B:＂SX=″?Q:＂I1=″?C:?＂I2=″?D:＂R=″?R:＂T=″?T?(D-C)÷100W:W÷Abs(W)→A:＂T″:0.5RAbs(W) S?＂o-YIGAO=″?o?J-TX:J+T→Y?Lbl 1?＂L—DQHAO=″?L:＂PY=″?U:＂XIELV=″?V?If LX:Then Goto 2:Else If L＞Y:Then Goto 3:If End:I End?＂HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+QQ?＂HO=″-HZ?Goto 1?Lbl 2?LG Goto 4?＂HL=″:B+0.01 (L-J)C+0.01U