公路中、边桩坐计算及放样程序.docVIP

公路中、边桩坐标计算及放样程序 适用范围：单圆曲线、基本型缓和曲线、非对称基本型缓和曲线、卵型曲线、回头曲线（转角大于180度） 特点：1．任意半径曲线、任意交角边桩 2．子程序可独立执行 源程序： F 2（文件名：2） “O=0 X Y Q SO O≠0 X Y ”：ORS“LS1”U“LS2”P“ZHQ”W“Z-G”T“J-G”A“ZH”：B=A+S：F“HZ”：E=FU：G“XZH”H“Y-ZH”I“X：HZ”J“Y：HZ”M“XO”N“YO”X“XHS”Y“Y-HS”：Prog“A”：Prog“D”：Lbi0：{Z}：Z：D=0=Goto1：≠Goto2：Lbi2：{D}：D：Lbi1：ZA=Prog“3”：Prog“0”：Goto0：≠ZA=Z≤B=L=Z-A：K=RS：Prog“4”：Prog“5”：Prog“0”：Goto0：≠Z＞B=ZE=L=S：K=RS：Prog“4”：Prog“5”：Prog“6”：Prog“0”：Goto0：≠Z＞E=ZF=L=F-Z：K=RU：Prog“4”：Prog“9”：Prog“7”：Prog“0”：Goto0：≠ZF=C=Z-F：Prog“8”：Prog“0”：Goto0 F 3 C=A-Z：X=G+Ccos（P+180）：Y=H+Csin（P+180）：V=P F 4 S=0X=0：Y=0：C