三维隧道程.docVIP

4800P线元法公路隧道三维（坐标正反计算、高程）计算程序 （2009-03 刘 工 注：此程序由于未扩展变量，故在运行速度上是有一定优势的。本程序中所用坐标正反算程序部分来自于“满天星”的《原创任意主线.匝道中.边桩正反算坐标计算-4500.4800.4850（升级版）》，高程程序部分来自“蒲公英”的《竖曲线标高计算程序（加了数据库）》。??????本程序经3月5日再次校核后上传。请修改程序中红部分。?????????????????????????????????????????????????????????? 1.?XH（此为主程序）Lbl B：”1.LC=XY”： “2.XY=LC”： “3.ZHZL=GC”： {V}：V=1=GOTO 1△ V=2= GOTO 2 △V=3=GOTO A△Lbl A：{HZ}：H”ZH”： Z”XLZJ,-Z+Y”：Z”SDZF，-Z+Y”=Z-0.125▲Prog”SQXBG”： GOTO B：Lbl 1： {LQJ}：L“ZH”： Q”XLZJ,-Z+Y”：Prog “QXYS” ： Q=0=J=0：≠J=90△Prog “ZSZB” ： Q “SDZJ,-Z+Y”=Q-0.125▲ X”X=“ ▲ Y”Y=“▲OFWJ=▲H=L：Z=Q： Prog “SQXBG”：GOTO B：Lbl 2： L：Q=0：J=0：{MR}：L“ZH”：M”XO”：R”YO”： Prog “FSZB”：L”LC=“ ▲Q”JL=“▲Q “SDZJ，-Z+Y”=Q-0.125▲H=L：Z=Q： Prog “SQXBG”：GOTO B ?2.正算坐标ZSZB????????H=( L-S ) / 4：F=90/π：U=HHF（1/T-1/I）/（K-S）：?? D=2HF/ I：?? O=C+4D+16U： P=O+J ：????E=C+ D+ U：??W=C+2D+4U：????G=C+3D+9U：???????? X=A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P ：?? Y=B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P 3.反算坐标：FSZBLbl 0：Prog “QXYS” ：Prog “ZSZB”：Z=O-90：P= (R-Y)cosZ-(M-X) sinZ ：L=L+P：AbsP≥0.001= GOTO 0 ：≠ GOTO 1 △ Lbl 1： Q= (R-Y)cosO-(M-X) sinO 4. 曲线元要素数据库：QXYSL≥S=L＜K= S=**：A=**：B=**：C=**：I=**：K=**T=**⊿⊿←┘L≥S=L＜K= S=**：A=**：B=**：C=**：I=**：K=**T=**⊿⊿←┘L≥S=L＜K= S=**：A=**：B=**：C=**：I=**：K=**T=**⊿⊿←┘L≥S=L＜K= S=**：A=**：B=**：C=**：I=**：K=**T=**⊿⊿←┘L≥S=L＜K= S=**：A=**：B=**：C=**：I=**：K=**T=**⊿⊿←┘???????????????????? ……………………………L≥S=L＜K= S=**：A=**：B=**：C=**：I=**：K=**T=**⊿⊿←┘??????????????????(注：如有多个曲线元要素继续添加入数据库QXYS中) 5高程计算主程序：SQXBGX”SCGC”：H”ZH”：Z”ZJ,-Z+Y”：M”R”：N”CS”：Prog＂SJK＂：F=C-D：T=Abs(RF÷2)：R=R AbsF÷F：H≤B-T=＞K=0：≠=＞H≥B+T=＞K=0：C=D：≠=＞K=H-B+T⊿⊿G”XLZG”=A-（B-H）C-K^2÷2R▲Z≥-0.125=＞Z=Z-0.125：J”YO1XGC”=G+N▲ J”YO1SBGC”=G+√(M^2-（Z+0.125）^2) +N▲J”GCFSZJ”=√(M2-(X-(G+N))^2) ▲ Goto1：≠=＞Z=Z-0.125：J”ZO1XGC”=G+N▲J”ZO1SBGC”=G+√(M^2-（Z+0.125）^2) +N▲ J”GCFSZJ”=√(M2-(X-(G+N))^2) ▲Goto1：Lbi16高程计算主程序子程序：SJKH≤第二竖曲线起点桩号=A=第一竖曲线交点高程：B=第一竖曲线交点桩号：C=第一竖曲线前坡度：D=第一竖曲线后坡度：R=第一竖曲线半径：Goto1⊿H≤第三竖曲线起点桩号=A=第二竖曲线交点高程：B=第二竖曲线交点桩号：C=第二竖曲线前坡度：D=第二竖曲线后坡度：R=第二竖曲线半径：Goto