5800坐标高程.doc

5800计算程序，可计算任意桩号坐标及高程。 一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量18→DimZ1.主程序(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：ProgSUB4：“H=”H◢ XS=”:X→X◢YS=”:Y→Y◢FS=”:(F-90) →F:F?DMS◢ Goto1Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog SUB2： S=:(O+W) →S◢Z=Z→Z◢ Z→Z[17] :If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22.SUB1(正算子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.330009482→L1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→X (剩號可省略)X+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→Y3.SUB2(反算子程序名)G-90→T(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→ZLbI 4:ProgSUB1T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)＜1E-6:Then 0→Z :ProgSUB1(J-Y)÷sin(F)→ZElse W+Z→W:Goto 4:IfEnd注:1E-6即是10的負6次方,亦即是等於0.000001輸入時按SHIFT---log---(-)---64. 数据库(SUB3)If S226100:Then Cls:Stop: IfEndIf S226255.833:Then 226100→O： 99037.9736→U： 4282.3590→V： 201.3266304→G： 1045→P： 1045→R： 253.543→H： 0→Q: Goto 1:IfEndIf SAnd S…………If S236005.651:Then Cls:Stop: IfEndLbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：5、曲线主程序: 1-E.BG(SUB4)Fix 3:Prog”Z.EBG”: R Abs(D-C)/2→T:if D-Cθ :Then 1→W:Else -1→W:ifend if SA:Then -C→I:Else D→I:ifendAbs (A-S)→Lif L-Tθ:Then Z+IL→H:Else Z+IL+W(T-L)2/2/R→H:HS=:H◢曲线数据库: Z.EBG(SUB4-1)if S332.599:Then 0.02793→C:-0.03309→D:1800→R:235→A:32.7→Z: goto 1:ifend if S322.599 And K734.085:Then -0.03309→C:-0.00485→D:6000→R:460→A:25.254→Z: goto 1:ifend ----Lbl 1C—前坡:D—后坡:R—呵呵,都知道是什么!A—变坡点:Z—变坡点设计高O—从设计高程点处垂直向下的距离:N—距设计高程处的平距(若你的设计高程线是路中线的话，请把0.75改为0):J—所求桩号处的横坡.6. 边坡放样程序(BIANPO) （SUB6）“QPDJL=”? → Z[3]: “QPDGD=” : Prog “（SUB4）”：H