直线段坐标计算程序

直线段坐标计算1.A“X2”C“Y2”B“X1”D“Y1”：Pol（A-B,C-D）▲2.J0→J=J+360△J▲3.Lbl2：M=A+Tcos（J-180）：N=C+Tsin（J-180）：Lbl2：｛KS｝：L“L0”K“KS”4.Lbl3：X=M+（T+L-K）cos（J-180）▲5.Y=N+（T+L-K）sin（J-180）▲6.Lbl4：｛O｝：X=X+Scos（J+O）▲7.Y=Y+Ssin（J+O）▲8.Goto2说明：此程序适用于直线中桩及边桩计算。X2：输入大里程X坐标Y2：输入大里程Y坐标X1：输入小里程X坐标Y1：输入小里程Y坐标r：显示距离J：显示小里程至大里程前进方向方位角T：输入0L0：输入大里程桩号KS：输入待求桩号X：待求点桩号X坐标Y：待求点桩号Y坐标S：中桩至边桩距离0：前进方向夹角左-，右+x：显示边桩x坐标y：显示边桩y坐标