5800直线坐计算程序.docx

《5800直线坐计算程序.docx》由会员分享，可在线阅读，更多相关《5800直线坐计算程序.docx（1页珍藏版）》请在三一办公上搜索。

5800直线坐计算程序直线计算程序 0I:0J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):JA:If A<0: Then A+360A:Else AA:IfEnd:Lbl 0:?O:?S:If O0:Then Goto 1:IfEnd: D+Scos(A) X:”X=”:X E+Ssin(A) Y:”Y=”:Y Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) X:”X=”:X E+Ssin(A)+Osin(A+90) Y:”Y=”:Y Goto 0 输入程序时注意区别字母 O 与数字 0 程序运行时符号说明 X0? Y0? 分别输入直线起点的 XY 坐标值 X1? Y1? 分别输入直线终点的 XY 坐标值 O? 输入边桩与中桩的距离 ( 左边桩为负值 , 右边桩为正值 ), 如计算中桩坐标输入 0 S? 输入所求点到直线起点的距离