程序名： DX-XY-PC
程序清單：

32 → DimZ （額外變量寄存器定義 ( 本程序以 11 個(gè)導(dǎo)線邊數(shù)定義 , 如超過應(yīng)修改此定義和程序內(nèi)額外變量寄存器的變量表達(dá)式 ) ） : Lb1 0: ＂ DX-DS （ 導(dǎo)線點(diǎn)數(shù)（含終點(diǎn)） ） = ＂？ W: ＂ YZ-ZD-X （已知終點(diǎn) X 坐標(biāo)） = ＂？ A: ＂ YZ-ZD-Y （已知終點(diǎn) Y 坐標(biāo)） = ＂？ B: ＂ SC-ZD-X （ 實(shí)測 終點(diǎn) X 坐標(biāo)） = ＂？ C: ＂ SC-ZD-Y （ 實(shí)測 終點(diǎn) Y 坐標(biāo)） = ＂？ D:C-A → E:D-B → F: √ (E2+F2) → G: Cls:Fix 4: ＂ X-BHC （ X 閉合差 ） = ＂ :Locate 7,1,E: ＂ Y-BHC （ Y 閉合差 ） = ＂ :Locate 7,2,F: ＂ BC-BHC （邊長閉合差） = ＂ :Locate 8,3,G ◢

Cls: ＂ YZ-QD-X （ 己知起 點(diǎn) X 坐標(biāo)） = ＂？ O :O → Z[31]: ＂ YZ-QD-Y （ 己知起 點(diǎn) Y 坐標(biāo)） = ＂？ P:P → Z[32]: 0 → H:0 → N: Lb1 1:N+1 → N: Cls: ＂ N= ＂ :Locate 4,1,N ◢

＂ SCD-X （ 實(shí)測 點(diǎn) X 坐標(biāo)） = ＂？ X:X → Z[N]: ＂ SCD-Y （ 實(shí)測 點(diǎn) Y 坐標(biāo)） = ＂？ Y:Y → Z[N+11]: Po1 （ X-O ， Y-P ） : I → Z[N+21]: H+I → H:X → O: Y → P: If N<W: Then Goto 1:IfEnd ： If N=W: Then Goto 2:IfEnd ←」

Lb1 2:H ÷ G → K: Cls:Fix 5: ＂ DX-QC （ 導(dǎo)線全長 ） = ＂ :Locate 7,1,H: ＂ DX-QC-XD-BHC-FM （ 導(dǎo)線全長相對閉合差的分母 ） = ＂ :Locate 1,3,K ◢

0 → N:0 → R:If 1 ÷ K <1 ÷ 10000 （導(dǎo)線全長相對閉合差允許值的分母） : Then Goto 3:E1se Goto 4: IfEnd ←」

Lb1 3:N+1 → N: Cls: ＂ N= ＂ :Locate 4,1,N ◢

Po1 （ Z[N]-Z[31] ， Z[N+11]-Z[32] ） :R+Z[N+21] → R:Z[N]-(ER) ÷ H → U:Z[N+11]-(FR) ÷ H → V: Cls:Fix 4: ＂ N= ＂ :Locate 4,1,N: ＂ PCH-X （ 平差后的 X 值 ） = ＂ :Locate 7,2,U: ＂ PCH-Y （ 平差后的 Y 值 ） = ＂ :Locate 7,3,V ◢

0 → Z[31]:0 → Z[32]: Z[N] → Z[31]:Z[N+11] → Z[32]: If N<W: Then Goto 3:E1se Goto 5:IfEnd ←」

Lb1 4: ＂ BHC （閉合差） - CX （超限） ⇒ CX （重新） -CL （測量）＂ ◢

Lb1 5: ＂ FH → 1 ， TC → 0 ＂？ Z:Z=1 ⇒ Goto 0: Z=0 ⇒ Return

程序功能： 本程序可以利用全站儀在閉（符）合導(dǎo)線點(diǎn)上實(shí)測的 X 、 Y 坐標(biāo)值，計(jì)算出坐標(biāo)閉合差、邊長閉合差和導(dǎo)線全長閉合差以后，若閉合差小于允許閉合差，則將坐標(biāo)閉合差反號后按各導(dǎo)線邊長占導(dǎo)線全長的比例進(jìn)行改正數(shù)計(jì)算，正確的計(jì)算出各導(dǎo)線點(diǎn)的平差后坐標(biāo)值；若閉合差大于允許閉合差，則自動(dòng)停止計(jì)算，顯示 BHC （閉合差） → CX （超限） ⇒ CX （重新） -CL （測量） 。（書店出售的程序書上是將符合導(dǎo)線的坐標(biāo)閉合差反號后按各導(dǎo)線邊長在起、終點(diǎn)間連線上的投影長度比例進(jìn)行改正數(shù)計(jì)算，本人認(rèn)為這樣進(jìn)行閉合差分配不合理而導(dǎo)致改正值計(jì)算不正確，所以求出的平差后坐標(biāo)值偏差較大；況且按照那種平差方法根本無法進(jìn)行閉合導(dǎo)線平差計(jì)算。）