路桥施工测量常用计算资料大全：5800交点法正反算程序

5800交点法正反算程序自编5800支距及偏角法正反算程序该程序使用支距偏角法，正算速度一般，反算速度较辛普森公式反算速度稍快计算范围从直缓到缓直，如若缓直后为直线则无需输入变量直接继续计算此程序在正算循环里程超限上占用字节较多，适用公路路基临时输入变量放样运行只需从主程序进入，请各位高手多多指正主程序“ZSFS”20→DimZ“1→NEW,2→OLD”？Z↙IFZ=1:ThenGoto1:ElseGoto2ifend↙选择输入选一手动输入曲线要数选二提取数据库LbI1:”JDX”?T:“JDY”?B输入交点X,Y“T1”?C:”T2”?D输入切线1，2的长“L1”?E:“L2”?F输入前后缓和曲线的长“ZHL”?G输入直缓里程“FWJ”Q输入直缓点切线方位角“-PJ+”?S输入偏角左负右正?R:输入圆曲线半径Goto4↙LbI2:prog“SJK”:goto4↙LbI4:“KCD”?K:?N↙输入观测点里程输入N值1为正算其他为反算IfN=1:ThenGoto5:Elseprog“ZSXH”：Goto6:Ifend↙LbI5:“X”?M:“Y”?ZProg“FSXH”:Goto7:Ifend↙选择反算后输入测点的X,Y假设里程与正算输入一起，无需另输入LbI6：“W”?W求边桩输入边距左-右+X+WCos(P+90)→X:“X=”:X◢显示所求X值Y+WSin(P+90)→Y:“Y=”:Y◢显示所求Y值P0=P+360→P:“FW=”:P◢显示所求点切线方位角Goto4LbI7:“KCD=”:K◢显示反算出的里程“W=”:W◢显示反算出的边距Goto4↙子程序正算循环“ZSXH”R(Abs(S)-90E÷(∏R)-90F÷(∏R))∏÷180→J↙IfK=(说明：小于等于号)E+G+J:ThenGoto1:ElseGoto3:Ifend↙LbI1:Q→H:T-C*Cos(H)→X:B-C*Sin(H)→Y:根号(R∏)→A↙IfK=G+E:ThenK-G→L:prog“B”:P→P:prog“C”:Goto6:ElseE→L:prog“B”:P→P:prog“C”:X→X:Y→Y:Goto2:Ifend↙LbI2:K-G-E→L:prog“D”:P→P:prog“C”:Goto6↙LbI3:Q+S→H:T+D*Cos(H)→X:B+D*Sin(H)→Y:根号(RF)→A↙IfK=G+E+J+F:ThenG+E+J+F-K→L:prog“B”:O-2Abs(S)N÷S→O:P-180L^(2)Abs(S)÷(∏A^(2)S)→P:-Z[1]→Z[1]:prog“C”:Goto6:ElseT→X:B→Y:H→O:D+K-G-E-J-F→Z[1]:H→P:prog“C”:Goto6:Ifend↙LbI6:Return反算循环子程序“FSXH”LbI0:prog“ZSXH”↙PoL((M-X),(Z-Y))↙I*cos(J-P)→N↙I*sin(J-P)→W↙IfN0.001:ThenN+K→K:Return:ElseK+N→K:Goto0:Ifend↙Return↙子程序缓和段计算“B”L-L^(5)÷(40A^(4))+L^(9)÷(3456A^(8))→U↙L^(3)÷(6A^(2))-L^(7)÷(336A^(6))+L^(11)÷(42240A^(10))→V↙（该公式参照课本）根号(U^(2)+V^(2))→Z[1]↙Tan-1(V-U)→N↙H+Abs(S)*N÷S→O↙H+Abs(S)*90*L^(2)÷(S∏A^(2))→P↙Return子程序“C”X+Z[1]*cos(O)→X↙Y+Z[1]*sin(O)→Y↙Return↙圆曲线要素计算子程序“D”L*180÷(∏R)→N↙2R*sin(N÷2)→Z[1]↙P+(Abs(S)÷S)(N÷2)→O↙P+Abs(S)÷S→P↙Return↙