5800坐标高程.doc

5800计算程序，可计算任意桩号坐标及高程。一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量18DimZ1.主程序(ZHUCHENXU)1.SZ XY，2.XY SZ，3.SDYX，4. BIANPO ？N：Lbl 1：”ZHUANGHAO=”?S： Prog SUB3： N2=Goto 2： Abs(S-O)W：”BIANZHU=”?Z:Prog SUB1：ProgSUB4：“H=”H XS=”:XXYS=”:YYFS=”:(F-90) F:FDMS Goto1Lbl 2：”CX=”?X: XI：”CY=”?Y: YJ：”DMG=”?Z7：Prog SUB2： S=:(O+W) SZ=ZZ ZZ17 :If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22.SUB1(正算子程序名)0.1739274226A:0.3260725774B0.0694318442K:0.330009482L1-LF:1-KMG+QEKW(C+KWD)Z1G+QELW(C+LWD)Z2G+QEFW(C+FWD)Z3G+QEMW(C+MWD)Z4Acos(Z1)X (剩號可省略)X+Bcos(Z2)XX+Bcos(Z3)XX+Acos(Z4)XU+WXXAsin(Z1)YY+Bsin(Z2)YY+Bsin(Z3)YY+Asin(Z4)YV+WYYG+QEW(C+WD)+90FX+Zcos(F)XY+Zsin(F)Y3.SUB2(反算子程序名)G-90T(Y-V)cos(T)-(X-U)sin(T)WAbs(W)W:0ZLbI 4:ProgSUB1T+QEW(C+WD)L(J-Y)cos(L)-(I-X)sin(L)ZIf Abs(Z)1E-6:Then 0Z :ProgSUB1(J-Y)sin(F)ZElse W+ZW:Goto 4:IfEnd注:1E-6即是10的負6次方,亦即是等於0.000001輸入時按SHIFT-log-(-)-64. 数据库(SUB3)If S226100:Then Cls:Stop: IfEndIf SAnd S236005.651:Then Cls:Stop: IfEndLbl 1: 1PC：(P-R)(2HPR) D：180E：5、曲线主程序: 1-E.BG(SUB4)Fix 3:Prog”Z.EBG”: R Abs(D-C)/2T:if D-C :Then 1W:Else -1W:ifend if S:Then Z+ILH:Else Z+IL+W(T-L)2/2/RH:HS=:H曲线数据库: Z.EBG(SUB4-1)if S322.599 And K734.085:Then -0.03309C:-0.00485D:6000R:460A:25.254Z: goto 1:ifend -Lbl 1C前坡:D后坡:R呵呵,都知道是什么!A变坡点:Z变坡点设计高O从设计高程点处垂直向下的距离:N距设计高程处的平距(若你的设计高程线是路中线的话，请把0.75改为0):J所求桩号处的横坡.6. 边坡放样程序(BIANPO) （SUB6）“QPDJL=”? Z3: “QPDGD=” : Prog “（SUB4）”：H Z4“PG=” ? Z5：PTKZ6： “P1=” ? Z8： “P2=” ? Z9： “P3=” ? Z10 (没有的话就删)： Z7-Z4 Z11：If Z110 Then AbsZ11 Z11: “T=”：Z11 Else“W=”：Z11 IfEnZ11Z5 Z12：If Z121 Then Z8Z11 Z13：Else Z8Z5+Z9Z5（Z12-1）Z13：IfEnd: AbsZ17-（Z13+Z6 Int (Z12)+Z3）Z14:“BP+C-J=”: Z14 说明：Z3= QPDJL 起坡点离中桩距离Z4=“QPDGD” 起坡点设计标高Z5=“PG” 坡高Z6=“PTK” 平台宽度Z7=“DMG” 实测地面高度Z8=“P1” 一级边坡坡度Z9=“P2” 二级边坡坡度Z10=“P3” 三级边坡坡度(没有的话就删)Z14=“BP+C-J=” 边坡超欠挖宽度（+表超，-表欠）三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明SZ XY，2.XY SZ，3.SDYX，4. BIANPO N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算 里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。4、SUB3数据库说明：S待求桩号，O=曲线起点桩号，