复数形式建筑坐标与测量坐标的相互变换程序
    设测量坐标系为χOy，点的复数表示为z=χ+yi；建筑坐标系为χ＇O＇y＇，点的复数表示为z＇=χ＇+y＇i。原点O＇的测量坐标为z0=x0+y0i,+ χ＇轴的测量坐标方位角为α，尺度参数为κ，则z＇变换为z的复数公式为———z=z0+κ∠αz＇；反之，z变换为z＇的复数公式为———。程序PM11-5如下：
"IND-SUR COOR TRANS PM11-5"   显示程序标题
Deg: Fix 3↓   十进制度，3位固定小数显示
"XO+YOi(SUR)="?O↓ 输入建筑坐标原点测量坐标的复数形式
"α(Deg)="?A↓  输入建筑坐标系+χ＇的方位角
1∠A→P↓   尺度与旋转参数的复数形式
"IND→SUR(0),SUR→IND(Else)="?L↓　输入坐标变换方向判断数值
If L=0↓   建筑坐标→测量坐标
Then Lbl 0↓
"X+Yi(IND)="X↓  输入任意点建筑坐标的复数形式
O+XP→U↓   计算测量坐标的复数形式
"SUR X(m)=":Rep(U)   显示测量坐标系的x坐标(复数实部)
"SUR Y(m)=":ImP(U)      显示测量坐标系的y坐标(复数虚部)
Goto 0↓         重复计算
Else Lbl 1↓
"X+Yi(SUR)="?X↓      输入任意点测量坐标的复数形式
(X-O)÷P→U↓       计算建筑坐标的复数形式
"IND X(m)=":Rep(U)      显示建筑坐标系的x坐标(复数实部)
"IND Y(m)=":ImP(U)          显示建筑坐标系的y坐标(复数虚部)
Goto 1↓         重复计算
IfEnd
　　某工业厂房建筑物，建筑坐标原点O＇的测量坐标为χ0=98042.831，y0=11430.122，建筑坐标+χ＇轴的在测量坐标系的方位角为69°56′23″，用程序PM11-5计算：① 已知E、F点的测量坐标，计算其建筑坐标，结果见表1；② 已知1、2、3、4点的建筑坐标，计算其测量坐标，结果见表2。