FX5800卡西欧计算器应用及程序 I、各观测变量组序号 B、观测水平角（°′″） D、平距（m）。注：当所有观测数据输入后，必须将D值输为0，程序则进行数组定位，并完成所有计算工作。
h、高差（m） u、往返测距较差（㎜）
输 出
※ 超限警示 fa CAO、方位角闭合差超限警示 fh CAO、高程闭合差超限警示
※ 精度参数 fa、方位角闭合差（″） mB、测角中误差（″） D、导线全长（m） fx、X坐标闭合差（m） fy、Y坐标闭合差（m） fh、高程闭合差（m） K=1:、全长相对中误差 mD、测距中误差（㎜）
※ 平差结果（严密平差） I、各改正数序号
BV、方位角改正数（″） DV、边长改正数（″）
※ 平差坐标、高程 N、各导线点序号 X、Y：各导线点坐标（m） H、各导线点高程（m）
注：
1、程序运算前必须对数组进行确定。如：Defm 34 8×T+2=8×4+2=34
2、进行闭合导线平差时，闭合方位角、闭合点坐标、高程程序进行自动转换； 4、程序中所有角度的输入都是以度分秒的小数形式：84°24′46″以84.2446输入 5、高程部分的平差计算本程序均采用近似平差计算；
6、本程序运算时，各已知数据、观测变量不会随之变化，可非常方便地进行各数据的核对。
Prog DDX
34->DimZ:“B=0 F≠0”?B:“A0”?A:A->M:Prog“2”:M+180->C:“X0”?O:“Y0”?P:“H0”?Z:If:B=0:Then 0->Q:P->G:Z->H:Goto 0:IfEnd:“AN”?R:R->M:Prog“2”:“XN”?Q:“YN”?G:“HN”?H:「b」0:M->S:0->E:0->F:0->K:0->X:0->Y:0->I:「b」1:Cls:“I=”:I=I+1◢ J=4I-3:Z[J->M:“B”?M:M->Z[J]:Z[J+1->D:?D:D->Z[J+1]:D=0=>Goto 2:Z[J+2->V:“h”?
2
V:V->Z[J+2]:E+D->E:F+V->F:K+D÷×106->K:Goto 1:「b」2:I-1>T:For 1->I To T+1:Z[4I-3->M:Prog“2”:C+M+180->C:「b」3:If C≥360:Then C-360->C:IfEnd:C≥360=>Goto 3:C->Z[4T+2+I]:Next:C-S->M:For 1->V To T:4T+2+V->C:Z[C]-VM÷(T+1->Z[C]:Prog“X0”:Next:X-Q+O->C:Y-G+P->U:F-H+Z->D:Abs (M>10√(T+1)÷3600=>“fa0 CAO”:Abs D>.05√K=>“fh CAO”:60Frac (M->N:Int (M)+×10-2Int(N)+6×10-3Frac(N->M:×104
2
√(M÷(T+1->W:Fix 1:“fa(:)=”:Locate 8,4, ×104M:“mB(:)=”:Locate 8,4,W◢
22
E÷√(C+U->K:Fix 3:“D(m)=”:Locate 7,4,E:“fx(m)=”:Locate 8,4,C:“fy(m)=”:Locate 8,4,U:“fh(m)=”:Locate 8,4,D◢ Norm 1:Cls:“K=1÷”:Int (K◢
且行天涯 804963666 41 FX5800卡西欧计算器应用及程序 “J=0 Y≠0”?K:If K≠0:Then Q->M:G->N:IfEnd:O->X:P->Y:Z->F:For 1->V To T:Prog“X0”:5T+2+V->S:F+Z[4V-1]-DL÷E->F:F->Z[S]:If K=0:Then X+I-CL÷E->X:Y=Y+J-UL÷E:“(m):”:Locate 6,4,V:Fix 4:“X=”:Locate 4,4,X:“Y=”:Locate 4,4,Y:“H=”:Locate 4,4,F◢
Norm 1:Else S+T->J:X->Z[J]:Y->Z[J+T]:If V=T:Then O->X:P->Y:IfEnd:M+X->M:N+Y->N:IfEnd:Next:K=0=>Goto 4:M÷(T+1->X:N÷(T+1->Y:0->M:0->N:For 1->I To T:“I=”:I◢
2
Z[4I->D:“u(mm)”?D:D->Z[4I]:M+D->M:N+D->N:Next:M÷E->K:√(N÷2÷T->M:M>16=>“mD CAO”:Fix 1:“mD(mm)=”：M◢
2
Norm 1:0 ->S:For 1->I To T:Z[4I-2->J:Z[4I]-KJ->D:S+E3÷J×E﹣3D->S:Next:2062
22
65->K:×10﹣3√(S÷2÷(T-1->S:W÷K÷S->S:S÷K->W:0->D:0->E:0->F:0->K:0->M:0
22
->N:For 1->V To T:Prog“X0”:D+I÷L->D:E+J÷L->E:F+IJ÷L->F:Next:For 0->V To T:If V=0:Then O->I:P->J:Goto 5:IfEnd:6T+2+V->J:Z[J->I:Z[J+T->J:If V=T:Th
22
en Q->I:G->J:IfEnd:「b」5:I-X->I:J-Y->J:K+I->K:M+J->M:N+IJ->N:Next:WM+D->L:
2
WK+E->M:F-WN->I:LM-I->J:(IU-MC)÷J->K:(IC-LU)÷J->F:X->C:Y->U:0->D:V=0:「b」6:If D=0:Then O->M:P->N:Goto 7:IfEnd:V+1->V:6T+2+V->J:Z[J->M:Z[J+T->N:If V=T=>Q->M:G->N:IfEnd:「b」7:M-C->M:N-U->N:S(NK-MF->M:D+M÷3600->D:V+1->V:Prog“X0”:4V-2->M:Z[M->N:L+IK+JF->Z[M]:4T+2+V->M:Z[M]+D->Z[M]:V-1->V:If V=0:Then O->X:P->Y:Else E->X:W->Y:IfEnd:V+1->V:Prog“X0”:N->Z[4V-2]:X->E:Y->W:Z[5T+2+V->M:“(m):”:Locate 6,4,V:Fix 4:“X=”:Locate 4,4,X:“Y=”:Locate 4,4,Y:“H=”:Locate 4,4,M◢
Norm 1:V-1->V:If V Z[4V-2->L:Rec(L,Z[4T+2+V:If K≠0:Then X+I->X:Y+J->Y:IfEnd 附 合 导 线 示 例 且行天涯 804963666 42 FX5800卡西欧计算器应用及程序 “B=0 F≠0”=3 Defm =8×4+2=34 （1） 近 似 平 差 “J=0 Y≠0”=0 角号 1 2 3 4 5 点号 0 1 2 3 4 B 84.2446 △B ﹣3.9 D 154.773 148.337 151.480 187.751 Y 7722.1990 7876.2436 8017.5744 8168.8008 8353.3278 △D 6.3 9.1 7.6 6.6 h 24.792 24.794 24.773 24.762 H 2839.3412 2864.1311 2888.9230 2913.6939 2938.4533 △h ﹣2.1 ﹣2.1 ﹣2.1 ﹣2.6 精度参数 fa=19.7″ mB=±8.8″ fx=0.036 fy=﹣0.030 fh=0.009 K=1÷13642 D=642.341 起 算 方 位 角 A0=0 附 合 方 位 角 AN=12.29413 203.1641 ﹣3.9 165.4029 ﹣3.9 165.5928 ﹣3.9 113.0837 ﹣3.9 X 11131.9560 11147.0190 11101.9393 11093.0466 11127.7267 K=0 平 差 坐 标、高 程 注：表中△B（″）、△D（㎜）、△h（㎜）是各相应观测值的改正数。以下表相同。 （2） 严 密 平 差 “J=0 Y≠0”=13642 角号 1 2 3 4 5 点号 0 1 2 3 4 B 84.2446 203.1641 165.4029 165.5928 113.0837 X 11131.9560 11147.0216 11101.9498 11093.0563 11127.7267 △B D △D 6.2 6.2 7.4 h △h u（㎜） 2.5 3.5 ﹣1.8 4.0 fa=18.7″ mB=±8.4″ fx=0.036 fy=﹣0.030 fh=0.009 K=1÷13642 D=642.341 mD=±2.2㎜ 精 度 参 数 5.1 154.773 10.2 151.480 8.1 187.751 ﹣28.2 Y 7722.1990 7876.2433 8017.5732 8168.7982 8353.3278 24.792 ﹣2.1 24.773 ﹣2.1 24.762 ﹣2.6 H 2839.3412 2864.1311 2888.9230 2913.6939 2938.4533 ﹣14.9 148.337 ﹣5.9 24.794 ﹣2.1 K≠0 平 差 坐 标、高 程 起算方位角 A0=0 附合方位角 AN=12.29413 且行天涯 804963666 43 FX5800卡西欧计算器应用及程序 闭 合 导 线 示 例 “B=0 F≠0”=0 近 似 平 差 “J=0 Y≠0”=0 角号 1 2 3 4 5 B 285.14239 70.10327 103.39175 92.15347 168.40137 △B D △D ﹣1.5 ﹣4.8 1.7 4.8 h ﹣4.049 20.629 ﹣6.385 H 1789.4562 1785.4107 1806.0429 1795.8384 1789.4562 △h 3.5 3.2 2.8 精度参数 fa=2.5″ mB=±1.1″ fx=0.020 fy=0.007 fh=﹣0.012 K=1:546661 D=11889.349 起 算 方 位 角 A0=169.38507 闭 合 方 位 角 AN=169.38507 ﹣0.5 3421.809 ﹣0.5 3191.312 ﹣0.5 2540.761 ﹣0.5 2735.467 ﹣0.5 X 5259.5560 4968.0284 8051.4979 7994.6300 5259.5560 Y 17614.0400 21023.4062 20200.8144 17660.6882 17614.0400 ﹣10.207 2.5 K=0 平 差 坐 标、高 程 点号 0 1 2 3 4 严 密 平 差 “J=0 Y≠0”=546661 角号 1 2 3 4 B △B D △D h △h u（㎜） 5.0 ﹣3.9 ﹣4.1 2.7 精 度 参 数 fa=2.5″ mB=±1.1″ fx=0.020 fy=0.007 285.14239 ﹣0.2 3421.809 ﹣0.2 ﹣4.049 3.5 70.10327 ﹣1.5 3191.312 ﹣0.6 20.629 3.2 103.39175 ﹣0.7 2540.761 0.2 ﹣10.207 2.5 92.15347 0.2 2735.467 0.6 ﹣6.385 2.8 且行天涯 804963666 44