道路测量程序合集

《道路测量程序合集》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、道路测量程序大全（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”

2、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

3、”¿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

4、”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-S

5、S÷(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+JU

6、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¿Lb

7、l 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

8、[4]-A)M÷100◣Þ4¿Lbl 6C=H+C8．反求线路桩号子程序FQ¿Prog ”YS”¿Z[4]=74445.797¿Z[3]=501515.278¿K=771.296:Q=0:Goto 2◣◣ÞZ[3]=YÞZ[4]=X¿Q=Z[4]:K=Z[3]:G=S+π÷2¿Prog ”ZH”¿G=L