公路测量程序（Highway survey procedure）.docVIP

公路测量程序（Highway survey procedure） Coordinate calculation source program 1. main program (TYQXjs) 1.SZ = XY: 2.XY = SZ:N:U X0:V Y0:O S0:G F0:H LS:P R0:R RN:Q:C=1 P:D= (P-R) / (2HPR):E=180 / PI: 1: N=1=Goto = Go to 2 Delta.. Lbl 1:{SZ}:SZ:W=Abs (S-O):Prog SUB1:X XS =X Y YS =Y Goto 1 - Lbl 2:{XY}:XY:I=X:J=Y:Prog SUB2:S S =O+W Z Z =Z Goto 2 2. positive subroutine (SUB1) A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-K:X=U+W (Acos (G+QEKW (C+KWD) +Bcos (G+QELW) (C+LWD) (+Bcos) G+QEFW (C+FWD) (+Acos) G+QEMW (C+MWD):Y=V+W (Asin) (G+QEKW) (C+KWD) (+Bsin) G+QELW (C+LWD) +Bsin (G+QEFW) (C+FWD) (+Asin) G+QEMW (C+MWD))): F=G+QEW (C+WD) +90: X=X+ZcosF:Y=Y+ZsinF 3. inverse subroutine (SUB2) T=G-90:W=Abs ((Y-V) cosT- (X-U) sinT):Z=0:Lbl 0:Prog SUB1:L=T+QEW (C+WD):Z= (J-Y) cosL- (I-X): sinL:AbsZ1E-6=Goto1 = W=W+Z:Goto - 0. Lbl 1:Z=0:Prog SUB1:Z= (J-Y), sinF Two, instructions for use 1, regulations (1) distinguish the direction of the direction of the middle line of the road (that is, the direction of increasing mileage); When the line element is left biased, Q=-1; when the line element to the right side, Q=1; when the line element is linear, Q=0. (2) when the point is located in the center of the Z=0, located in the midline; when left cut, Z negative; When the center line is on the right side, the Z takes the positive value. (3) when the line element is a straight line, the radius of curvature of its starting point and stopping point is infinite 10 for 45. (4) when the line element is a circular curve, its curvature is determined regardless of its starting point and stop point The radius is equal to the radius of the arc. (5) when the line element is the whole transition curve, the curvature is half of the line when the starting point is in line with the straight line The radius is infinite, replaced by 10 of the 45; and when the circle curve is joined, the curvature is half A radius equal to the radius of a circle. When the stop point is connected to the st