大地坐标与施工坐标转换程序

大地坐标与施工坐标转换程序

Lbl 2:?N:If N=1:Then Goto 0: IfEnd:

If N=-1:Then Goto 1: IfEnd:

Lbl 0: “X=”?X: “Y=”?Y: “X0=”?C: “Y0=”?D:“∠i=”?Q:

“A=”:(X-C)×cosQ+(Y-D)×sinQ→E⊿

“B=”:(Y-D)×cosQ-(X-C)×sinQ→F⊿

Goto 2

Lbl 1: “A=”?A: “B=”?B: “X0=”?C: “Y0=”?D:“∠i=”?Q:

“X=”:C+AcosQ-BsinQ→E⊿

“Y=”:D+BcosQ+AsinQ→F⊿

Goto 2

注:N的输入只能为+1，-1。输入+1时，是大地坐标转为施工坐标。输入-1时，是施工坐标转为大地坐标。X、Y为待定点（所求点）的大地坐标。X0、Y0为施工原点的大地坐标，A、B为待定点（所求点）的施工坐标，∠i为施工坐标系X 轴在大地坐标系中的方位角。