公路中、边桩坐标计算及放样程序.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=0：Q=0：V=0：≠Goto1：Lbi1：X=LL5÷40K2+L9÷3456K4-L13÷599040K6+L17÷175472640K8-L21÷710K10：Y=L3÷6KL7÷336K3+L11÷42240K5-L15÷9676800K7+L19÷3530096640K9-L23÷1.880240947E12K11：C=√（X2+Y2）：V=90L2÷лK：X≠0=Q=tanY┛X：≠Q=0：⊿ F 5 Prog“9”：X=G+Ccos（P+Q）：Y=H+Csin（P+Q）： V=P+V F 6 L=Z-B：Q=90L÷лR：C=2RsinQ：Prog“9”：X=X+Ccos（AbsV+Q）：Y=Y+Csin（AbsV+Q）：V=AbsV+2Q F 7 X=I+Ccos（P+W180-Q）：Y=J+Csin（P+W180-Q）：V=P+WV F 8 X=I+Ccos（P+W）：Y=J+Csin（P+W）：V=P+W F 9 W≥0=Q：V：≠Q= Q：V= V：⊿ F 0 X=X+Dcos（V+T）：Y=Y+Dsin（V+T）：O=0=“X=”：X：Pause0：Y=Y◢ Prog“A”：Prog“D”：≠O=“X=”：X：Pause0：Y=Y◢ ◢ F A X＞M=Prog“B”：Goto0：≠X=M=Prog“C”：≠X＜M=Prog“B”：Q=Q+180：Lbi0：Q=Q+360：Q360=Q=Q-360◢ ≠Q=Q◢ F B Q=tan-1（YN）┛（XM） F C YN=Q=90◢ ≠Q=270◢ F D C=√（（XM）2+（YN）2）：“SO=”：Pause0 ZH-Q（P）：直缓（直圆）点切线方位角 Z-G（W）弯道转角（左转为负，右转为正） J-G（T）：中桩至右侧某点方向与中桩切线方位角的夹角（大于等于0度且小于等于180度，当正交时为90度） ZH（A）：直缓或直圆点桩号 HZ（F）：缓直或圆直点桩号 X-ZH（G）：直缓或直圆点X坐标； Y-ZH（H）：直缓或直圆点Y坐标 X-HZ（I）：缓直或圆直点X坐标 Y-HZ（J）：缓直或圆直点Y坐标 XO（M）：测站X坐标； YO（N）：测站X坐标 X-HS：后视点X坐标； Y-HS：后视点Y坐标 X、Y：计算或放样点坐标 Q（Q）：计算或放样方位角 SO（C）：计算或放样距离 Z（Z）：计算点桩号 D（D）：边桩距中桩宽度（左为负值，右为正值） V（V）：中桩切线方位角 二、输入、计算要点 1．该程序一次只可输入一个弯道的参数，计算段落为上一弯道终点（HZ或YZ）至下一弯道起点（ZH或ZY）。 2．计算单圆曲线时LS1、LS2输入时输0 3．当只计算第一缓和曲线及圆曲线，不计算第二缓和曲线时，弯道转角只需输入正或负值（左转为正、右转为负）即可，可不输入准确的角度。 4．如只计算上一弯道曲线（HZ或YZ）终点至ZH点间的桩号时，除ZH点桩号、方位角和坐标须输入正确外，其它参数可任意输入（但不能有逻辑错误，如HZ点桩号小于了ZH点的桩号） 5．后视点X、Y坐标在每次重启程序时需重新输入，建议第一次输入计算出后视角度及距离后用笔将计算的后视角度和距离在纸上记录下来，便于中途后视时核对。 6．用于卵型曲线时坐标计算时，需先计算出卵型曲线的相关参数后再用本