道路测量程序合集.docVIP

道路测量程序大全（2） 一、程序设计1．?测量放样计算主程序CLFY(V=19:Fixm:Rad({OEFG}:O”1.XL?2.SD”:E”DZ”:F”DH”:G”AH”(Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62])(D=πG÷180-J(Lbl?1(Goto?2◣(1(O({KQ}:K”KF”:Q”BL”(Prog?”ZB”(X=X+Rec(Q,U+π÷2):Y=Y+J(Goto?3(Lbl?2({XY}:X”XF”:Y”YF”(Lbl?3(Pol(X-Z[E+52],Y-Z[E+62])I”S=”◢(I=J+DI(I=I-2π◣(2πI(I=I+2π◣(0(I=180I÷πI”A=”◢?Goto?12．线路坐标计算主程序XLZB(Rad(Fixm({O}:O”1.ZX?2.BX”(Q=0(Lbl?1({K}:K”K”({QG}:Q”L”:G”AJ”?◣(1(O(Prog?”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J?X”X=”?◢Y”Y=”?◢U=180U÷π:U”AT=”?◢(O=1(◣Goto?13．线路高程计算主程序XLGC(V=11:Fixm(Lbl?0({KQ}:K”K”:Q”L”(Prog?”KD”(Prog?”GC”C”H=”◢Goto?04．边桩放样计算主程序BZFY(Fixm(Rad({Z}:Z”1.CJ?2.QZ?3.QS”(Z[11]=0:Goto?1◣(Z=2(?Goto?1◣(Z=3({MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”(Z[8]=Z[M+52]:Z[9]=Z[M+62](C=Z[N+52]:A=Z[N+62](Pol(C-Z[8],A-Z[9]):Z[10]=J-πU÷180:Z[11]=G(Lbl?1(Goto?2◣(Z=2({EBFD}:B”AQ”:E”S”:D”HD”:F”HY”(Rec(E,Z[10]+πB÷180):X=Z[8]+I:Y=Z[9]+J:Goto?3(Lbl?2({EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B(Lbl?3(Prog?“FQ”G=D+Z[11]-F:G”H”◢(Prog?“FY”Goto?15．?线路坐标计算子程序ZB(Prog?”YS”(X=74445.797(Y=501515.278(S=771.296-K(B=A+C+πS(Goto?1◣(L(I=SSS÷6÷R÷L(J=S-S^5÷(40RRLL)(U=B-SS÷(2RL)-π:Goto?2(Lbl?1(U=(2S-L)÷R÷2(I=R(1-cos?U)+Z[5]:J=Rsin?U+Z[6](U=B-(S-L÷2)÷R+π(Lbl?2(Pol(I,J):J=J+B-π÷2(X=Rec(I,J)+X(Y=Y+JUU=U+2π◣(06．曲线要素计算子程序YS(R=280(L=84.7(S=-0.6769479859(A=-2.415291254(N=-1(C=1.738343268(Z[5]=1.067572917(Z[6]=42(T=374.9146895Z[7]=RC+L7．线路高程计算子程序GC(W=13(Lbl?1(P=Z[W+7]K(W=W+1:Goto?1◣(Z[W]-P(W=14◣(W=13(Goto?2◣(V=W-1(V=W-1(J=Z[V+4](R=(J-Z[V+3])÷(Z[V]-Z[V-1])(S=(Z[V+5]-J)÷(Z[V+1]-Z[V])(T=Z[V+7](Lbl?2(L=K-Z[V](H=J+RL:Goto?3◣(L≤-T(H=J+SL:Goto?3◣(L≥T(A=2T÷(S-R)(X=L+A(R+S)÷2(H=J+XX÷2÷A-ARS÷2(Lbl?3(H=H-Z[1](A=Abs?Q(C=0:Goto?6◣(A≤Z[4](I=-1Q(I=1◣(0(Lbl?4(Y=23(Lbl?5(Y=Y+1:Goto?5◣(K≥Z[Y](O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX(O=2◣(Z[Y+2]=0(X=2◣(Z[Y+3]=0(N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])(M=(X-O)(1-3NN+2NNN)+O(C=(Z[4]-A)M÷100:Goto?6◣(A≤Z[2](C=0.04(Z[2]-A)-M(Z[2]-Z[4])÷100M(C=(Z[4]-A)M÷100◣(4(Lbl?