《5800曲线要素计算程序.docx》由会员分享,可在线阅读,更多相关《5800曲线要素计算程序.docx(3页珍藏版)》请在三一办公上搜索。
1、5800曲线要素计算程序主程序SENDY-YS Lbl 1:Fix 3:“X1”?C:“Y1”?D:“X2”?O:“Y2”?F:“X3”?G:“Y3”?H:? R:“LS”?L:“JDK”?K C-OI:D-FJ: Prog“C”:JN:G-OI:H-FJ:Prog“C”:JQ:N-QA:A0A+360A:If A180:Then 180-AA:“A=R”:ADMS Else A-180A:“A=L”:ADMS IfEnd:L2(24RB:L2-L(3)(240R2M:M+(R+B)tan(A2T:(R+B)cos(A2)-RE:RA180+LS:K-TU:U+LV:V+(S-2L)2W:V+
2、S-2LX:X+LY:Cls:Locate 1,1,“T=”:Locate 10,1, T:Locate 1,2,“E=”:Locate 11,2,E:Locate 1,3,“S=”:Locate 9,3,S:Locate 1,4,“ZH=”:Locate 9,4,U Cls:Locate 1,1,“HY=”:Locate 9,1,V:Locate 1,2,“QZ=”:Locate 9,2,W:Locate 1,3,“YH=”:Locate 9,3,X:Locate 1,4,“HZ=”:Locate 9,4,Y Cls:Goto 1 曲线要素程序 输入:X1-交点1的X坐标 Y1-交点1的Y坐
3、标 X2-交点2的X坐标 Y2-交点2的Y坐标 X3-交点3的X坐标 Y3-交点3的Y坐标 R-半径 LS-缓和曲线长度 JDK-交点2的桩号 结果:A=R 道路右转的转角 A=L 道路左转的转角 T=切线长度 E=外距 S=曲线总长度 ZH=直缓点桩号 HY=缓圆点桩 QZ= 曲线中点桩 YH= 圆缓点桩号 HZ= 缓直点桩号 主程序ZXXY-2 ?X:?Y:“QDX”?E:“QDY”?F:“QDK”?G:“FWJ”?H Lbl 0:Fix 3:?K:?B 90A:K-GP:A+H-90Q:E+Pcos(H)-Bsin(QM:F+Psin(H)+Bcos(QN:M-XI:N-YJ: Prog
4、“C”: Cls:Locate 1,1,“J=”:Locate 4,1, J:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 8,3,M:Locate 1,4,“N=”:Locate 8,4,N Cls:Goto 0 直线放样程序 输入:X-测站X坐标 Y-测站Y坐标 QDX -直线起点X坐标 QDY -直线起点Y坐标 QDK -直线起点桩号 FWJ-直线起点往终点的方位角 K-桩号 B-距中 结果:J=测站到放样点的方位角 I=测站到放样点的平距 M=放样点X坐标 N=放样点Y坐标 备注:若求斜交时边桩坐标,程序中90A修改为斜交角度A 真似 QQ:79868685