5800计算程序

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

1、COSIOFX5800线元法正反算程序①主程序TYQXJS10→DimZ↙“1.SZ=＞XY，2.XY=＞SZ”：？N：IfN=1:ThenGoto1:ElseGoto2:IfEnd↙Lbl1:Prog“DXD”:Lbl3:？S：？Z：Prog“QXYS1”：1÷P→C：（P-R）÷（2HPR）→D：180÷π→E：Abs(S-O)→W:90→Z[3]:Porg“SUB1”:“XS=”:X◢“YS=”：Y◢“Fs=”:(F-Z[3])►DMS◢Pol(X-Z[1],Y-Z[2])↙IfJ≤0:ThenJ+360→J:IfEnd↙“J=”:J►DMS◢“I=”:I◢-1→T:“HDJS”

2、？T:IfT≠-1：ThenProg“HDJS”:IfEnd↙Goto3↙Lbl2:？X:?Y:X→I:Y→J:90→Z[3]:prog“SUB2”:“S=”:O+W◢“Z=”:Z◢Goto2↙如果正算时需要计算斜交涵洞,就把Lbl1语句段中的90→Z[3]改为斜交右夹角→Z[3],Lbl2语句段中的90→Z[3]是永远不用改动的。注意：不用再计算斜交时要记得改回来,不然会出现很不可思议的错误。②子程序1（SUB1）0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W（Acos(G+QEK

3、W(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))）→X：V+W（Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+Z[3]→F：X+Zcos(F)→X：Y+Zsin(F)→Y↙③子程序2(SUB2)？S:Prog“QXYS1”:1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:

4、0→Z:Lbl0:Prog“SUB1”:T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→Z:IfAbs(Z)＜0.000001：ThenGoto1:ElseW+Z→W:IfEnd:Goto0↙Lbl1:0→Z:Prog“SUB1”:(J-Y)÷sin(F)→Z↙④导线点数据库(DXD)“DIANHAO”?A:IfA=点号：ThenX坐标→Z[1]:Y坐标→Z[2]:IfEnd↙以此类推。⑤涵洞边角计算子程序“JULI”？S：X+Scos（F-Z[3]）→X：Y+Ssin（F-Z[3]）→Y↙“X1=”：X◢“Y1=”：Y◢Pol(X-Z[1],Y-Z[2])

5、↙IfJ≤0:ThenJ+360→J:IfEnd↙“A=”:J►DMS◢“L=”:I◢⑥平曲线要素（QXYS1）IfS≥0AndS≤路线起点：Then？U：？V：？O：？G：？H：？P：？R：？Q：IfEnd↙（用来推算线元）IfS≥线元起点AndS≤线元终点：Then线元起点X坐标→U：线元起点Y坐标→V：线元起点里程→O：线元起点方位角→G：线元长度→H：线元起点半径→P：线元终点半径→R：线元偏向，左偏-1，右偏1，直线0→Q：IfEnd↙依此类推。使用说明1、规定        (1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q

6、=1；当线元为直线时，Q=0。        (2)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。        (3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。        (4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。        (5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。        (6

7、)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明      输入部分：      1.SZ=>XY      2.XY=>SZ      N?  选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。正算时：N?  输入1DIANHAO？输入测站点的