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:Fi