隧道路基正反算改版程序

《隧道路基正反算改版程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、09-4-22　楼主：zhouxianquan　作者：zhouxianquan本文已被浏览　3038　次有关路基和隧道的CASIO5800P万能曲线计算程序改进版曲线任意里程中边桩坐标正反算(CASIOfx-5800P计算器)程序一、程序功能        本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直

2、线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。  二、源程序增加变量16→DimZ1.主程序(ZHUCHENXU)"1.SZ→XY，2.XY→SZ，3.SDYX，4.BIANPO"？N：Lbl1：”ZHUANGHAO=”?S：Prog"SUB3"：N≥2=>Goto2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog"SUB1"："XS=”:X→X◢

3、"YS=”:Y→Y◢"FS=”:(F-90)→F:F►DMS◢Prog"FA"：Goto1:Lbl2：”CX=”?X:X→I：”CY=”?Y:Y→J：”DMG=”?→Z[7]：Prog"SUB2"："S=":(O+W)→S◢"Z="Z→Z◢IfN=3:ThenProg”SDYX”:IfEnd：IfN=4:ThenProg”BIANPO”:IfEnd:Goto22.正算子程序(SUB1)0.1739274226→Z[1]：0.3260725774→B：0.0694318442→K：0.33000947

4、82→L：(1-L)→F：(1-K)→M：U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Z[1]cos(G+QEMW(C+MWD)))→X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y  3.反算子程序

5、(SUB2)G-90→Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2])→W：0→Z：Lbl0：Prog"SUB1"：Z[2]+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：IfAbs(Z)<1E-6:ThenGoto1：ElseW+Z→W：Goto0:IfEndLbl1：0→Z：Prog"SUB1"：(J-Y)÷sinF→Z4.数据库(SUB3)IfS<226100:ThenCls:Stop:IfEndIfS<226255.833:Then226100→O

6、：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q:Goto1:IfEnd…………IfS>236005.651:ThenCls:Stop:IfEndLbl1:1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：5.算方位角程序(FA) LbI0：“XC=”?A:“YC=”?T:X：Y0→J：POI（X-A，Y-T）→I：“BC=”：I◢IfJ＜0Then360+J→J：ElseJ→J:IfEnd“FW=”：J►

7、DMS◢ Goto06.使用方位角算坐标(NE)LbI0：“X=”?X:“Y=”?Y:“L=”?L:“F0”?F：L×Cos（F）+X→N:“N=”N◢L×Sin（F）+Y→E:“E=”E◢Goto07.边坡放样程序(BIANPO) “QPDJL=”?→Z[3]:“QPDGD=”?→Z[4]:“PG=”?→Z[5]：2→Z[6]：“P1=”?→Z[8]：“P2=”?→Z[9]：“P3=”?→Z[10](没有的话就删)：Z[7]-Z[4]→Z[11]：IfZ[11]〈0Then AbsZ[11]→Z[

8、11]:“T=”：Z[11]◢Else“W=”：Z[11]◢IfEndZ[11]÷Z[5]→Z[12]：IfZ[12]〈1ThenZ[8]×Z[11]→Z[13]：ElseZ[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd:AbsZ-（Z[13]+Z[6]×IntZ[12]+Z[3]）→Z[14]:“BP+C-J=”:Z[14]◢说明：Z[3]=QPDJL……………… 起坡点离中桩距离Z[4]=“QPDGD”……………起坡点设计标高Z[