有关路基和隧道的casio5800p万能曲线计算程序

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

1、有关路基和隧道的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◢"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

3、”:IfEnd：IfN=4:ThenProg”BIANPO”:IfEnd:Goto22.正算子程序(SUB1)0.1739274226→Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→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))+

4、Z[1]sin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y  3.反算子程序(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<24000:ThenCls:Stop:IfEn

5、dIfS<24481.580:Then24000→O：31862.3315→U：457.6549→V：188.46138→G：1045→P：1045→R：481.580→H：0→Q:Goto1:IfEndIfS<25151.580:Then24481.580→O：31386.382→U：384.225→V：188.46138→G：1045→P：7000→R：670→H：-1→Q:Goto1:IfEndIfS<25815.061:Then25151.580→O：30722.739→U：292.650→V：186.014256→G：7000→P：7000→R：663.481→H：-1→

6、Q:Goto1:IfEndIfS<26485.061:Then25815.061→O：30060.615→U：254.320→V：180.355216→G：7000→P：1045→R：670→H：-1→Q:Goto1:IfEndIfS>26485.061: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►DMS◢ Goto06.

7、使用方位角算坐标(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