极坐标法放样元素计算

程序PR2，极坐标法放样元素计算
"POLAR SETTING-OUT PR2" ↙ 显示程序标题
Deg:ClrStat:FreqOff:Fix 3 ↙ 基本设置
"XO(m)="?A:"YO(m)="?B ↙ 提示输入测站点的坐标
"X0(m)="?C:"Y0(m)="?D ↙ 提示输入 0 方向点的坐标
Pol(C-A,D-B):Cls↙ 调用极坐标函数并清除屏幕显示
If J<0:Then J+360→E:Else J→E:IfEnd ↙ 判断并计算方位角
"DIST O → 0(m)=":I ◢ 显示测站→0 方向的水平距离
"BEAR O → 0(DMS)=":E▲DMS◢ 以六十进制度显示测站→0 方向的方位角
1→K:I→List X[K]:E→List Y[K]↙ 存储 0 方向的边长与方位角到统计串列
Lbl 0 ↙
K+1→K:Norm 1:"n=":K ↙ 计数变量计数
Fix 3:"Xn(m)=,(0 To END)"? U ↙ 提示输入放样点的x 坐标，输入 0 结束程序计算
While U≠0 ↙
"Yn=(m)"? V↙ 提示输入放样点的y 坐标
Pol(U-A,V-B):Cls↙ 调用极坐标函数并清除屏幕显示
If J<0:Then J+360 →F:Else J→F:IfEnd↙ 判断并计算方位角
F-E→H↙ 计算0 方向与n 方向的水平夹角
If H<0:Then H+360 → H:IfEnd↙ 判断并计算水平夹角
"DIST O → n(m)=":I◢ 显示测站→n 方向的水平距离
"ANGLE 0-O-n(DMS)=":H→DMS◢ 以六十进制度显示0 方向与n 方向的水平角
I→ List X[K]:F →List Y[K] 存储 O→n 方向的边长与方位角到统计串列
H → List Freq[K] 存储 O→n 方向的放样水平角到统计串列
Goto 0: WhileEnd↙ 提示重复输入端点的坐标
"PR2 END"
程序说明：程序先计算测站至零方向的边长与方位角，再分别计算测站至任意端点的边长与方
位角，并由此计算出零方向与任意端点方向的水平夹角。
运行上述程序，先输入测站点的x，y 坐标，再输入零方向点的x，y 坐标，然后分别输入放样
点的坐标。测站点与零方向点坐标只提示输入一次，测站点→零方向点的边长与方位角也只显示一
次；放样点坐标将反复提示用户输入，每输入完一个放样点坐标后，程序显示测站点→放样点的边
长、方位角及与零方向的水平夹角，放样点的x 坐标输入0 时，停止程序运行。