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

1、5800 交点法 正反算 程序自编5800支距及偏角法正反算程序该程序使用支距偏角法，正算速度一般，反算速度较辛普森公式反算速度稍快计算范围从直缓到缓直，如若缓直后为直线则无需输入变量直接继续计算此程序在正算循环里程超限上占用字节较多，适用公路路基临时输入变量放样运行只需从主程序进入，请各位高手多多指正主程序 “ZS FS”20Dim Z“1NEW,2OLD”？Z IF Z=1:Then Goto 1: Else Goto 2 if end 选择输入 选一手动输入曲线要数 选二提取数据库 LbI 1:”JDX”?T:“JDY”?B 输入交点X,Y“T1”?C:”T2”?D 输入切线1，2的长“

2、L1”?E: “L2”?F 输入前后缓和曲线的长“ZHL”?G 输入直缓里程“FWJ”Q 输入直缓点切线方位角“-PJ+”?S 输入偏角左负右正?R: 输入圆曲线半径Goto 4LbI2:prog “SJK”:goto 4 LbI4: “KCD”?K: ?N 输入观测点里程输入N值 1为正算 其他为反算If N=1: Then Goto 5: Else prog “ZSXH”：Goto 6: If endLbI5: “X”?M: “Y”?ZProg “FSXH”: Goto 7: If end选择反算后输入测点的X,Y 假设里程与正算输入一起，无需另输入LbI6：“W”?W求边桩输入边距 左-

3、右+X+WCos(P+90) X: “X=”:X显示所求X值Y+WSin(P+90) Y: “Y=”:Y显示所求Y值P P+360P: “FW=”:P显示所求点切线方位角Goto 4LbI7: “KCD=”:K 显示反算出的里程“W=”:W 显示反算出的边距Goto 4子程序正算循环 “ZSXH”R(Abs(S)-90E(R)-90F(R) 180JIf K=(说明：小于等于号)E+G+J: Then Goto 1:Else Goto 3: If endLbI1: QH:T-C*Cos(H)X:B-C*Sin(H)Y: 根号(R) AIf K=G+E:Then K-GL:prog “B” :P

4、P:prog “C”:Goto 6:Else EL: prog “B”:PP: prog “C”:XX:YY:Goto 2:If endLbI2: K-G-EL: prog “D”:PP: prog“C”: Goto 6LbI3: Q+SH:T+D*Cos(H)X:B+D*Sin(H)Y:根号(RF)AIfK=G+E+J+F: Then G+E+J+F-KL: prog “B”:O-2Abs(S)NSO: P-180L(2)Abs(S)(A(2)S)P:-Z1Z1: prog “C”: Goto 6: Else TX:BY:HO:D+K-G-E-J-FZ1: HP: prog “C”: Got

5、o 6: If endLbI6: Return反算循环子程序 “FSXH”LbI 0: prog “ZSXH” PoL(M-X),(Z-Y) I*cos(J-P)NI*sin(J-P)WIf N0.001: Then N+KK:Return: Else K+NK:Goto 0: If endReturn子程序 缓和段计算 “B”L-L(5)(40A(4)+L(9)(3456A(8) UL(3)(6A(2)-L(7)(336A(6)+L(11)(42240A(10) V （该公式参照课本）根号(U(2)+V(2)Z1 Tan-1(V-U)NH+Abs(S)*NSOH+Abs(S)*90*L(2)(SA(2)PReturn子程序“C”X+Z1*cos(O)XY+Z1*sin(O)YReturn圆曲线要素计算子程序“