5800圆曲线程序：坐标与里程转换算法优化.pdfVIP

5800圆曲线程序(YQXZFS)

Lbl0

****→G(直线方位角)..****→O(起点里程)..****→U(起点X坐

标)..****→V(起点Y坐标)..****→R(半径)..1,0,‑1→Q(左右转)

G+90Q→A..如果A0..那么A+360→A..结束如果..A+180→B..如

果B0..那么B+360→B..否则如果B≥360..那么B‑360→B..结束如果..

结束如果..Rec(R,A)..U+I→C..V+J→D

〝1.SZ＝＞XY〞..〝2.XY＝＞SZ〞..?N..N＝1＝＞转到1..转到2

Lbl1

?S..?Z..180×Abs(S‑O)÷(∏R)→P..Rec(R‑Z,B+QP)..C+I→X..

D+J→Y..G+QP→F..如果F0..那么F+360→F..结束如果

Cls..〝X＝〞..Locate8,1,X〝Y＝〞..

Locate8,2,Y〝F＝〞..Locate

8,3,F◢Goto1

Lbl2

?X..?Y..Pol(X‑C,Y‑D)..如果J0..那么J+360→J..否则如果J

≥360..那么J‑360→J..如果结束.