5800坐标高程

《5800坐标高程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、5800计算程序，可计算任意桩号坐标及高程。一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量18→DimZ1.主程序(ZHUCHENXU)"1.SZ→XY，2.XY→SZ，3.SDYX，4.BIANP

2、O"？N：Lbl1：”ZHUANGHAO=”?S：Prog"SUB3"：N≥2=>Goto2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog"SUB1"：Prog"SUB4"：“H=”H◢"XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90)→F:F►DMS◢Goto1Lbl2：”CX=”?X:X→I：”CY=”?Y:Y→J：”DMG=”?→Z[7]：Prog"SUB2"："S=":(O+W)→S◢"Z="Z→Z◢Z→Z[17]:IfN=3:ThenProg”SDYX”:IfEnd：IfN=4:ThenProg”BIANPO”:IfEnd:Got

3、o22.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+Q

4、EW(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→ZLbI4:Prog"SUB1"T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIfAbs(Z)＜1E-6:Then0→Z:Prog"SUB1"(J-Y)÷sin(F)→ZElseW+Z→W:Goto4:IfEnd注:1E-6即是10的負6次方,亦即是等於0.000001輸入時按SHIFT---log---(-)---64.数据库(SUB3)IfS<226100

5、:ThenCls:Stop:IfEndIfS<226255.833:Then226100→O：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q:Goto1:IfEndIfS>AndS<…………IfS>236005.651:ThenCls:Stop:IfEndLbl1:1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：5、曲线主程序:1-E.BG(SUB4)Fix3:Prog”Z.EBG”:RAbs(D-C)/2→T:ifD-C>θ:Then1→W:Else-1→W:ifendi

6、fSθ:ThenZ+IL→H:ElseZ+IL+W(T-L)2/2/R→H:"HS=":H◢曲线数据库:Z.EBG(SUB4-1)ifS<332.599:Then0.02793→C:-0.03309→D:1800→R:235→A:32.7→Z:goto1:ifendifS>322.599AndK<734.085:Then-0.03309→C:-0.00485→D:6000→R:460→A:25.254→Z:goto1:ifend----Lbl1C—前坡:D—后坡:R—呵呵,都知道是什么!

7、A—变坡点:Z—变坡点设计高O—从设计高程点处垂直向下的距离:N—距设计高程处的平距(若你的设计高程线是路中线的话，请把0.75改为0):J—所求桩号处的横坡.6.边坡放样程序(BIANPO)（SUB6）“QPDJL=”?→Z[3]:“QPDGD=”:Prog“（SUB4）”：H→Z[4]◢“PG=”?→Z[5]：PTK→Z[6]：“P1=”?→Z[8]：“P2=”?→Z[9]：“P3=”?→Z[10](没有的话就删)：Z[7]-Z[4]→Z[11]：IfZ[11]〈0ThenAbsZ[11]→Z[11]:“T=”：Z[11]◢Else“W=”：Z[