CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序.docVIP

CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序 悬赏分：+62 作者：刘工2010-4-3????????????1. A（此为主程序）Lbl 0：〝1.LC=XY〝：〝2.XY=LC〝：〝3.ZHZL=GC〝：〝PB=V=1,2,3〞？→V：If V=1：Then GOTO??1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ：If V=3：Then GOTO??3 ：Else GOTO 0 ：IfEnd： Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z： Prog〝ZGCZCX〝： GOTO 0：Lbl??1 ：〝ZH=L〝？→L：If??L173000??And??L174661.96：Then GOTO 4 ： Else??GOTO 0 ： IfEnd??：Lbl 4：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〝：GOTO 0：Lbl 2： 〝XO=M〝?→M：〝YO=R〝?→R：173300→L：If??M3845505.273??And??M3846506.099 And??R499371.832??And??R500352.224??：Then GOTO 5：Else GOTO 2：IfEnd ：Lbl 5：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〝：GOTO 02.正算坐标ZBZS????????( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：?? 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)+Qcos P→X ：?? B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y 3.反算坐标： ZBFSLbl 0：Prog 〝ZBQXYS〝 ：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：L+P→L：If??Abs P≥0.001：Then??GOTO 0 ：Else GOTO 1： IfEnd ：??Lbl 1：??(R-Y)cosO-(M-X) sinO→Q 4. 曲线元要素数据库：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：**→ 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??┘??????????????????(注：如有多个曲线元要素继续添加入数据库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：R AbsF÷F→R：If??H≤B-T ： Then??0→K：GOTO??2：IfEnd ：If HB-T And HB+T ： Then??H-B+T→K ：GOTO??2：IfEnd ：If H≥B+T ： Then??0→K：D→C：GOTO??2：IfEnd ：Lbi??2 ：〝XLZG