1、導線平差程序1）附和導線觀測角度平差f1 d101-1 l1 lbi 0 l2 abcdehijlmn l3 g=c+d+e+h+i+j+l+ml4 ab=goto 1:agoto 2l5 lbi 1 l6 q=a-b l7 f=q+g-n180l8 v=-(f/n) u=nv l9 r=q+g+nv-n 180l10 k” k1” =c+vk” k2” =d+vk” k3” =e+vk” k4” =h+vk” k5” =i+v k” k6” =j+vk” k7” =l+vk” k8” =m+v goto 0 l11 lbi 2 l12 q=a+360-b l13 f=q+g-n180l14

2、v=-(f/n) u=nv l15 r=q+g+nv-n 180l16 k” k1” =c+vk” k2” =d+vk” k3” =e+vk” k4” =h+vk” k5” =i+v k” k6” =j+vk” k7” =l+vk” k8” =m+v l17 goto 0 cdehijlm ？附和導線觀測值； g 觀測角總和； a？附和導線起始邊方位角；b？附和導線終止邊方位角；q附和導線 b-a之差； n？觀測角個數或測站數；f附和導線觀測角閉合差；v附和導線觀測角閉合差改正數； u改正和等于 f但符號相反以檢驗計算正確與否；r觀測角經改正后的角閉合差，應等于零，以檢查觀測角改正是否正確；k

3、1,k2,k3,k4,k5,k6,k7,k8,-經改正后的觀測值，角平差值。本程序觀測角設置了 8個，如果不足 8個，多余的輸入零，如果大于8個，則程序要追加訂正。該程序的觀測角都是左角，如果是右角則輸入角度時，用360- 觀測的右角閉合導線觀測角度平差f2 d101-2 l1 lbi 0 l2 cdehijlmn l3 g=c+d+e+h+i+j+l+ml4 f=g-(n-2)180l5 v=-(f/n) u=nv l6 r=g+nv-(n-2) 180l7 k” k1 ” =c+vk” k2” =d+vk” k3” =e+vk” k4” =h+vk” k5” =i+v k” k6” =j+

4、vk” k7” =l+vk” k8” =m+v l8 goto 0 cdehijlm ？ 閉合導線觀測值； g觀測角總和； n ？觀測角個數或測站數；f閉合導線觀測角閉合差；v閉合導線觀測角閉合差改正數；u改正和等于 f但符號相反以檢驗計算正確與否；r觀測角經改正后的角閉合差，應等于零，以檢查觀測角改正是否正確；k1,k2,k3,k4,k5,k6,k7,k8,-經改正后的觀測值，角平差值。2)導線方位角及坐標增量f2 d102 l1 lbi 0 l2 dmk l3 m+k180=goto 1: m+kgoto 2l4 lbi 1 l5 t=m+k-180 l6 w=dcostl7 p=dsin

5、t l8 goto 0 l9 lbi 2 l10 t=m+k+180l11 w=dcost l12 p=dsint l13 goto 0 m ？導線后視邊的已知方位角；k？- 平差角； t所求邊方位角；d？- 所求邊平距； w ，p所求邊坐標增量。3)導線坐標增量閉和差f3 d103 l1 lbi 0 l2 efghklmn:opqrstuv:cdab l3 x=e+f+g+h+k+l+m+n l4 z=c-a l5 y=o+p+q+r+s+t+u+vl6 w=d-bl7 i=x-zl8 j=y-w l9 goto 0 efghklmn？- 導線第一邊 - 第八邊的各邊縱坐標增量；x縱坐標增量

6、和； c？- 導線起點縱坐標a？- 導線終點縱坐標； z- 導線全長縱坐標增量和；opqrstuv？- 導線第一邊 第八邊的橫坐標增量；y橫坐標增量和； d？- 導線起點橫坐標；b？- 導線終點橫坐標；w 導線全長已知橫坐標增量和；i 縱坐標增量閉合差； j橫坐標增量閉合差4)導線坐標增量改正數計算及精度評定f4 d104 l1 lbi 0 l2 ij:abcefghk l3 d=a+b+c+e+f+g+h+kl4 v=-(i/d):u=-(j/d) l5 r” xv1 ” =var” xv2 ” =vbr” xv3” =vcr” xv4” =ver” xv5” =vfr” xv6” =vg

7、r” xv7” =vhr” xv8” =vk l6 l” yu1 ” =ual” yu2 ” =ub l” yu3 ” =ucl” yu4” =uel” yu5 ” =ufl” yu6 ” =ug l” yu7 ” =uhl” yu8” =uk l7 i” iv ” =va+vb+vc+ve+vf+vg+vh+vkl8 j ” ju” =ua+ub+uc+ue+uf+ug+uh+ukl9 w ” fs” =(i2+j2) l10 q” 1/t ” =d/w l11 goto 0 abcefghk？ -導線第一邊 第八條邊各邊邊長；d導線邊長總和；i ？- 縱坐標增量閉合差；j？- 橫坐標增量閉合差； ” xv1” “ xv2” “ xv3 ”“ xv4”“ xv5” “ xv6” “ xv7” “ xv8 ” 各邊縱坐標改正數；” yu1 ”“ yu2 ” “ yu3 ”“ yu4 ” “ yu5” “ yu6 ” “ yu7” “ yu8 各邊橫坐標改正數； iv縱坐標改正和， iv=-i ；ju橫坐標改正和， ju=-j；fs 導線全長絕對閉合差；1/t 導線全長相對閉合差，分子為1 5) 導線坐標值平差計算f5 d105 l1 lbi 0 l2 abpwrl l3 x=a+p+(r) l4 y=b+w+(l) a？- 導線后一點已知縱