1、弯道中边桩坐标测量放样计算程序清单程序名：XYDN-2Deg:Fix3:A”X1”:B”Y1”:C”X2”:D”Y2”:E”X3”:F”Y3”:R:S”LS”:T”JD”:I=0:J=0:P01(C-A,D-B:JJ=J+360 M=J: E=0=F=0=v:v”-p,+p”:J=M+V+180: V J=M+180-AbsV V0=k=1: K=-1 J360=J=J-360 O=J: Goto6 P01(C-E,D-F:JJ=J+360 O=J:V=M-O:OM=V=360-O+M VK=1: K=-1 ”-P,+P”:V=(180-V) DMS Lb16:V=AbsV:”T”:G=(R+
2、S224R)tan(V2)+S2-S3 240R2Rec(G,M+180:A=C+I:B=D+J:Rec(G,0+180:E=C+I:F=D+J:”LH”:I=RV180+S ”E”:J=(R+ S224R)(cos(V2)-1-R ”ZH”:G=T-G ”HY”:J=G+S ”QZ”:J=G+I2 ”YH”:J=G+I-S ”HZ”:H=G+I Lb1 0:QW:Q”OXO”:W”OYO”:Lb1 1:LZ:L”K+000”:L=0= Goto0 L=-1=XY ：Goto5 L=-2=PZ：P”V”:Z”D=”: Rec (Z,P+N:”X2”:X=Q+I ”Y2”:Y=W+J Goto1
3、 Z”D=”:ZP=270 Z=0=P=0 Z0=P=90 Z=AbsZ:Z=999=PZ：P”N=”：Z”D=” LG=U=G-L:Rec(U,M+180:X=A+I:Y=B+J:N=M:Goto4 LH=U=L-H:Rec(U,0+180:X=E+I:Y=F+J:N=0+180:Goto4 LG=LG+S=U=L-G:X=A:Y=B:V=M:N=M+(u2RS90)K:J=1:Goto2 LH-S=LU=H-L: X=E:Y=F:V=O:N= 180+O-( u2RS90)K:J=-1:Goto2 S=0=X=A:Y=B:V=M:J=1: Goto3 LG+S= L U= S: X = A
4、 : Y = B: V = M : J= 1: Goto2 Lb12:X= X+(U-U5 (40R2S2) cos v+ U3 (6RS)cos(V+90KJ):Y=Y+( U-U5(40R 2S2)sinv+ U3 (6RS)sin(V+90KJ):LG+S =LGoto3 Goto4: Lb13: U=L-G-S: V = M+(90SR)K: I= UR180:J=2Rsin(I2) :N=V+IK:N360=N=N-360:NN=N+360 X=X+Jcos(V+IK2):Y=Y+Jsin(V+IK2): Goto4:Lb14:N360=N=N-360 Z=0=”N0”:NDMS Rec(Z,P+N:”X=”: X=X+I ”Y=”:Y=Y+J Lb15:P01(X-Q,Y-W:”D=“:I JJ=360+J N=J:”N=”: NDMS Goto1
