g线元法隧道(坐标正反计算、高程)计算程序

《g线元法隧道(坐标正反计算、高程)计算程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、CASIO9860GSD线元法隧道三维（坐标正反计算、高程）计算程序悬赏分：+62作者：刘工2010-4-3            1.A（此为主程序）Lbl0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：IfV=1：ThenGOTO  1：IfEnd：IfV=2：ThenGOTO2：IfEnd：IfV=3：ThenGOTO  3：ElseGOTO0：IfEnd：Lbl3：〝ZH=H〝？→H：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GO

2、TO0：Lbl  1：〝ZH=L〝？→L：If  L>173000  And  L<174661.96：ThenGOTO4：Else  GOTO0：IfEnd  ：Lbl4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q：Prog〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog〝ZSZB〝：〝X=〝：X▲〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲L→H：Q-0.125→Z：Prog〝ZGCZCX〝：GOTO0：Lbl2：〝XO=M〝?→M：〝YO=R〝?→R：1733

3、00→L：If  M>3845505.273  And  M<3846506.099And  R>499371.832  And  R<500352.224  ：ThenGOTO5：ElseGOTO2：IfEnd：Lbl5：0→Q：0→J：Prog〝ZBFS〝：〝LC=L〝：L▲〝JL=Q〝：Q▲〝SDZJ，-Z+Y=Q〝：Q-0.125→Q▲L→H：Q→Z：Prog〝ZGCZCX〝：GOTO02.正算坐标ZBZS        (L-S)/4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：

4、  2HF/I→D：  C+4D+16U→Ｏ：O+J→P：C+D+U→E：C+2D+4U→W：  C+3D+9U→G：        A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+QcosP→X：  B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+QsinP→Y3.反算坐标：ZBFSLbl0：Prog〝ZBQXYS〝：Prog〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X)sinZ→P：L+P→L：If  AbsP≥0.001：T

5、hen  GOTO0：ElseGOTO1：IfEnd：  Lbl1：  (R-Y)cosO-(M-X)sinO→Q4.曲线元要素数据库：ZBQXYSIf  L≥S  And  L＜K：Then**→S：**→A：**→B：**→C：**→I：**→K：**→T  IfEnd  ：If  L≥S  And  L＜K：Then**→S：**→A：**→B：**→C：**→I：**→K：**→T  IfEnd  ：If  L≥S  And  L＜K：Then**→S：**→A：**→B：**→C：**→I：**

6、→K：**→T  IfEnd  ：If  L≥S  And  L＜K：Then**→S：**→A：**→B：**→C：**→I：**→K：**→T  IfEnd  ：If  L≥S  And  L＜K：Then**→S：**→A：**→B：**→C：**→I：**→K：**→T  IfEnd  ：                    ……………………………If  L≥S  And  L＜K：Then**→S：**→A：**→B：**→C：**→I：**→K：**→T  IfEnd  ┘         

7、         (注：如有多个曲线元要素继续添加入数据库ZBQXYS中)5  高程计算主程序ZGCZCX(后有修改说明)Lbi1：〝SCGC=X〝？→X：〝R=M〝：5.98→M：〝CS=N〝：1.603→N：Prog＂GCSJK＂：C-D→F：Abs(RF÷2)→T：RAbsF÷F→R：If  H≤B-T：Then  0→K：GOTO  2：IfEnd：IfH>B-TAndH

8、fEnd：Lbi  2：〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If  Z≥0  ：Then  If  X>100  Then〝YO1XGC=J〝：G+N→J▲〝YGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2)→J▲〝YKDCQ,+C,-Q=J〝：J-Abs(Z+0.000)→J▲〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2)→J▲〝YGCCQ,C+,Q-=J〝：X-J→J▲