路基和隧道的casio5800p万能曲线程序

《路基和隧道的casio5800p万能曲线程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、有关路基和隧道的CASIO5800P万能曲线计算程序第二次修改：有关路基和隧道的CASIO5800P万能曲线计算程序，可以正、反坐标，放边坡和隧道圆心，计算开挖半径曲线任意里程中边桩坐标正反算(CASIOfx-5800P计算器)程序一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、

2、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量22→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◢"YS=”:Y

3、→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.3300094782→L：

4、(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→Y3.反算子程序(SUB2)

5、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：9903

6、7.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＜0：Then360+J→J：ElseJ→J:IfEnd“FW=”：J►DMS◢

7、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)Prog"TCD"：Prog"BHD"：IFS<226255.731:then232.257→Z[17]:225844.269→Z[18]:-0.69→Z[19]:11789.745→Z[22]:Goto3:IfEndIFS<226351.25:then230.837→Z[17]

8、:226050→Z[18]:2.8→Z[19]:10^45→Z[22]:Goto3:IfEndIFS<226688.75:then239.272→Z[17]:226351.25→Z[18]:2.8→Z[19]:-45000→Z[22]:Goto3:IfEndIFS<227318:then243.997→Z[17]:226520→Z[18]:2.05→Z[19]:10^45→Z[22]:Goto3:IfEndIFS<227982:then260.356→Z[17]:227318→Z[