资源描述：
《曲线要素计算程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、主程序[SENDY-YS]Lbl1:Fix3:“X1”?C:“Y1”?D:“X2”?O:“Y2”?F:“X3”?G:“Y3”?H:?R:“LS”?L:“JDK”?KC-O→I:D-F→J:Prog“C”:J→N:G-O→I:H-F→J:Prog“C”:J→Q:N-Q→A:A＜0＝＞A+360→A:IfA＜180:Then180-A→A:“A=R”:A→DMS◢ElseA-180→A:“A=L”:A→DMS◢IfEnd:L2÷(24R→B:L÷2-L＾(3)÷(240R2→M:M+(R+B)tan(A÷2→T:(R+B)÷cos(A÷2
2、)-R→E:πRA÷180+L→S:K-T→U:U+L→V:V+(S-2L)÷2→W:V+S-2L→X:X+L→Y:Cls:Locate1,1,“T=”:Locate10,1,T:Locate1,2,“E=”:Locate11,2,E:Locate1,3,“S=”:Locate9,3,S:Locate1,4,“ZH=”:Locate9,4,U◢Cls:Locate1,1,“HY=”:Locate9,1,V:Locate1,2,“QZ=”:Locate9,2,W:Locate1,3,“YH=”:Locate9,3,X:Locate1,4
3、,“HZ=”:Locate9,4,Y◢Cls:Goto1曲线要素程序输入：X1---交点1的X坐标Y1---交点1的Y坐标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”?HLbl0:
4、Fix3:?K:?B90→A:K-G→P:A+H-90→Q:E+Pcos(H)-Bsin(Q→M:F+Psin(H)+Bcos(Q→N:M-X→I:N-Y→J:Prog“C”:Cls:Locate1,1,“J=”:Locate4,1,J°:Locate1,2,“I=”:Locate10,2,I:Locate1,3,“M=”:Locate8,3,M:Locate1,4,“N=”:Locate8,4,N◢Cls:Goto0直线放样程序输入：X---测站X坐标Y---测站Y坐标QDX---直线起点X坐标（或直线上的P点X坐标）QDY---直
5、线起点Y坐标（或直线上的P点Y坐标）QDK---直线起点桩号（或直线上的P点的桩号）FWJ---直线起点往终点的方位角K---桩号B---距中（左负右正中零）结果：J=测站到放样点的方位角I=测站到放样点的平距M=放样点X坐标N=放样点Y坐标备注：若求斜交时边桩坐标，程序中90→A修改为斜交角度→A真似されているQQ:
