Lbl 0
****→Ｇ（直线方位角）︰****→O(起点里程) ︰****→U(起点X坐标) ︰****→V(起点Y坐标) ︰****→R(半径)︰1,0,-1→Q(左右转)
G+90Q→A︰If A<0︰Then A+360→A︰IfEnd︰A+180→B︰If B<0︰Then B+360→B︰Else If B≥360︰Then B-360→B︰IfEnd︰IfEnd︰Rec(R,A) ︰U+I→C︰V+J→D
〝１．ＳＺ＝＞ＸＹ〞︰〝２．ＸＹ＝＞ＳＺ〞︰？Ｎ︰N＝1＝＞Goto1︰Goto2
Lbl 1
?S︰?Z︰180×Abs(S-O)÷(∏R) →P︰Rec(R-Z,B+QP) ︰C+I→X︰D+J→Y︰G+QP→F︰If F<0︰Then F+360→F︰IfEnd
Cls︰〝X＝〞︰Locate 8,1,X
〝Y＝〞︰Locate 8,2,Y
〝F＝〞︰Locate 8,3,F◢Goto1
Lbl 2
?X︰?Y︰Pol(X-C,Y-D) ︰If J<0︰Then J+360→J︰Else If J≥360︰Then J-360→J︰IfEnd︰IfEnd
Abs(J-B) ∏R÷180+O→S︰Q(R-I) →Z
Cls︰〝S＝〞︰Locate 8,1,S
〝Z＝〞︰Locate 8,2,Z◢Goto2
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。