由本站论坛　 YANG　提供，谢谢



⑴主程序或支程序：

公路中桩坐标计算程序

…… Q ＝…… ▲ X＝…… ▲ Y＝…… ▲ Prog ″XY1 ″∶

⑵子程序：任意边桩坐标计算程序。

⒈ XY1程序 69字节

｛B W ｝∶ U ″X1″＝X + Rec (B , (Q –180 + W ▲ V ″Y1″＝Y+ J ▲ U ″X2″＝X+ Rec (B , (Q + W ▲ V ″Y2″＝Y+ J ▲

⒉ XY1程序 65字节

｛BW ｝∶ U“X1”=X－B cos（Q + W ▲ V“Y1”=Y－B sin（Q + W ▲ U “X2”=X＋B cos（Q ＋W ▲ V “Y2”=Y＋B sin（Q ＋W ▲

⑶使用说明：

⒈字母意义：

B─公路半宽度(m )，

W─横断面与轴线的左夹角(度)

X、Y─主程序或支程序计算的中桩坐标(m )，

Q ─主程序或支程序计算的中桩的切线方位角(度) ，

X1、Y1─左边桩坐标(m )，

X2、Y2─右边桩坐标(m )，

⒉二个支程序计算结果一样，可自行选择，主程序设置格式应按规定进行。

⒊此程序可计算正交、斜交任意角度的边桩坐标计算，很方便，可作为边桩坐标的标准计算程序。

⒋支程序也可单独使用，但当显示X？、Y？、 Q？时，需输入相应的中桩坐标、中桩的切线方位角即可计算。

⒌此程序可以解决正、斜交跨线建筑物轴线坐标计算难题。