路桥施工测量常用计算资料大全：有关路基和隧道的CASIO 5800P 万能曲线 计算程序.doc

有关路基和隧道的CASIO 5800P 万能曲线 计算程序 第二次修改：有关路基和隧道的CASIO 5800P 万能曲线 计算程序，可以正、反坐标，放边坡和隧道圆心，计算开挖半径 曲线任意里程中边桩坐标正反算 (CASIO fx-5800P计算器)程序 一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。 二、源程序 增加变量22→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N： Lbl 1：”ZHUANGHAO=”?S： Prog "SUB3"： N≥2=>Goto 2： Abs(S-O)→W：”BIANZHU=”?→Z:Prog "SUB1"： "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1: Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"： "S=":(O+W) →S◢"Z="：Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(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))+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：Lbl 0：Prog "SUB1"： Z[2]+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL→Z： If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEnd Lbl 1： 0→Z：Prog "SUB1"： (J-Y)sinF→Z 4. 数据库(SUB3) If S<226100:Then Cls:Stop: IfEnd If S<226255.833:Then 226100→O： 99037.9736→U： 4282.3590→V： 201.3266304→G： 1045→P： 1045→R： 253.543→H： 0→Q: Goto 1:IfEnd …… …… If S>236005.651:Then Cls:Stop: IfEnd Lbl 1: 1P→C：(P-R)(2HPR) →D：180π→E： 5. 算方位角程序(FA) LbI0：“XC=”? A : “YC=”? T :X：Y 0→J： POI（X-A，Y-T）→I：“BC=”：I◢If J＜0： Then 360+J→J：ElseJ→J :IfEnd “FW=”：J►DMS◢ Goto0 6. 使用方位角算坐标(NE) LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F： LCos（F）+X→N: “N=”N◢LSin（F）+Y→E: “E=”E◢ Goto0 7. 边坡放样程序(BIANPO) Prog " TCD "：Prog " BHD "：IF S<226255.731 : then 232.257→ Z[17]:225844.269→ Z[18]:-0.69→Z[19]:11789.745→ Z[22]: Goto 3: IfEnd IF S<226351.25 : then 230.837→ Z[17]:226050→ Z[18]:2.