FX5800卡西欧计算器应用及程序 fh=﹣0.012 K=1÷546661 D=11889.349 mD=±2.8㎜ 5 点号 0 1 2 3 4
168.40137 ﹣0.2 X 5259.5560 4968.0296 8051.5012 7994.6259 5259.5560 Y 17614.0400 21023.4076 20200.8073 17660.6828 17614.0400 H 1789.4562 1785.4107 1806.0429 1795.8384 1789.4562 K≠0 平 差 坐 标、高 程 起算方位角 A0=169.38507 闭合方位角 AN=169.38507 2.2.2 无定向导线近似平差程序
本程序用于无定向导线的坐标、高程的近似平差计算。当导线精度超限时，程序输出超限警示。最后输出各导线点的平差坐标和平差高程。
输 入
※ 已知数据 X0、Y0、H0：起算点的坐标、高程 XN、YN、HN：闭合点的坐标、高程
※ 观测变量组 D、平距（m） h、高差（m） B、观测水平角（°′″）
输 出
※ 超限警示 K < 30000、相对闭合差超限警示 fh CAO、高程闭合差超限警示
※ 精度参数 K=1:、相对中误差 D、导线全长（m）
fx、X坐标闭合差（㎜） fy、Y坐标闭合差（㎜） fh、高程闭合差（㎜）
mD、测距中误差（㎜）
※ 平差坐标、高程 N、各导线点序号 X、Y：各导线点坐标（m）H、各导线点高程（m）
注：
1、程序运算前必须对数组进行确定。如：
Defm 33 3×T+2(T+1)+1=3×6+2×(6+1)+1 T=N+1 N=5 N、未知点数目
2、本程序除了考虑定位数组以外，程序使用中不进行数组循环定位。当全部观测数据输完后，只需在出现的“D？”中输入0或负数，程序就自动识别数组并进行后面的全部计算工作。
3、程序中所有角度的输入都是以度分秒的小数形式：84°24′46″以84.2446输入 4、本程序的精度指标是按一级导线设置。可根据相应导线等级另行设置。
5、本程序运算时，各已知数据、观测变量不会随之变化，可非常方便地进行各数据的
且行天涯 804963666 45 FX5800卡西欧计算器应用及程序 核对。
Prog WDX
34->DimZ：“X0”?O:“Y0”?P:“H0”?Z:“XN”?Q:“YN”?G:“HN”?H:Pol(Q-O,G-P:If J<0:Then J+360->J:IfEnd:J->A:180->B:0->E:0->F:0->S:0->X:0->Y:0->C:「b」0:“I=”:C+1->C◢
3C-2->J:Z[J->D:Z[J+1->V:?D:D->Z[J]:D=0=>Goto 1:?V:V->Z[J+1]:E+D->E:F+V->F:2
S+D÷×106->S:If C=1:Then 0->M:Else Z[J+2->M:Porg “3”:“B”?M:Porg “2”:M->Z[J+2]:IfEnd:Prog “W0”:Goto 0:「b」1:C-1->N:3N+1->T:Pol(X,Y:If J<0:Then J+360->J:IfEnd:A-J+180->B:If B<0:Then B+360->B:IfEnd:O->X:P->Y:For 1->To N:3C-2->J:T+2C-1->K:Z[J->D:If C=1:Then 0->M:Else Z[J+2->M:IfEnd:Porg “W0”:
22
I->Z[K]:J->Z[K+1]:Next:X-Q->U:Y-G->W:F-(H-Z->V:“K=1:”:Int(E÷√(U+W◢ Fix 4:“D(m)=”:Locate 7,4,E:“fx(m)=”:Locate 8,4,U:“fy(m)=”:Locate 8,4,W:“fh(m)=”:Locate 8,4,V◢
Norm 1:O->X:P->Y:Z->L:For 1->C To N:3C-2->J:T+2C-1->K:Z[J->D:X+Z[K]-UD÷E->X:Y+Z[K+1]-WD÷E->Y:L+Z[J+1]-VD÷E->L:“(m)=”:Locate 4,4,C:“X=”:Locate 4,4,X:“Y=”:Locate 4,4,Y:“H=”:Locate 4,4,L◢ Norm 1:Next:“END” Prog W0
B+M+180->B:「b」0:If B≥360:Then B-360->B:IfEnd:B≥360=>Goto 0:X+Rec(D,B->X:Y+J->Y:
无 定 向 导 线 示 意 图N点0点D1h1D2B3B52点h2B2h3D3B4D4h44点D5h5B65点1点3点h6D6
程 序 示 例 序 号 1 2 观 测 值 平 距(m) 312.303 339.549 高 差(m) 8.132 1.459 水平角(°′″) / 163.0228 且行天涯 804963666 46 FX5800卡西欧计算器应用及程序 213.55108 153.2719 225.3356 109.0836 3 4 5 6 点 号 0 1 2 3 4 5 N 301.725 298.549 286.296 379.432 平 差 坐 标 X(m) 5337.5650 5147.7721 5029.0485 4783.7598 4644.3320 4369.9591 4353.0790 Y(m) 4238.5040 4486.5189 4804.6347 4980.3364 5244.3269 5326.0864 5705.1420 -60.210 92.767 44.378 0.392 H(m) 2930.9920 2939.1287 2940.5929 2880.3874 2973.1589 3017.5413 3017.9390
备 注 起算点 闭合点 精 度 参 数 K=1:435335 D=1917.854 fx=-0.0025 fy=0.0037 fh=-0.029
2.2.3 单一水准导线近似平差程序
本程序用于等外水准的近似平差计算，可进行闭合、附合水准导线的近似平差计算。
程序执行条件
※ 数组 线形
T、后视读数个数 B、=0进行闭合水准导线，≠0进行附合水准导线
※ 平差条件 S、=0平差时以测站数目，≠0以距离平差
输 入
※ 已知数据
H0、起算高程（m） HN、闭合高程（m）
※ 观测变量 I、观测变量序号
V、后视读数（m） U、前视读数（m）
输 出
※ 超限警示 fh CAO、高程闭合差超限警示
※ 精度参数
fh、高程闭合差（m） D、水准导线全长（m）
※ 平差结果 N、各高程点序号 H、各点平差高程（m）
注：
1、程序运算前必须对数组进行确定。如：Defm 30 T×3=10×3=30 2、进行闭合水准导线平差时，闭合点高程程序进行自动转换；
且行天涯 804963666 47 FX5800卡西欧计算器应用及程序 3、本程序运算时，各已知数据、观测变量不会随之变化，可非常方便地进行各数据的核对。
Prog SZDX
30->DimZ:“B=0 F≠0”?B:?S:?Z:If B=0:Then Z->H:Goto 0:IfEnd:?H:「b」0:Z->L:0->M:0->F:0->I:「b」1:“I=”:I+1->I◢
If S=0:Then 2I-1->J:Else 3I-2->J:Z[J+2->D:IfEnd:Z[J->V:Z[J+1->U:?V:V->Z[J]:V=0=>Goto 2:?U:U->Z[J+1]:If S≠0:Then ?D:D->Z[J+2]:F+D->F:IfEnd:M+V-U->M:Goto 1:「b」2:I-1->T:Z+M-H->W:Abs(×103W->J:Fix 3:If S=0:Then 6√(T->I:Else 20√(×10-3F->I:“D=”:F◢
IfEnd:If J>I:Then “fh CAO”:IfEnd:“fh(m)=”:W◢
For 1->I TO T:Norm 1:If S=0:Then 2I-1->J:W÷T->X:Else 3I-2->J:WZ[J+2]÷F->X:IfEnd:L+Z[J]-Z[J+1]-X->L:“N=”:Locate 4,4,I:Fix 4:“H(m)=”:Locate 7,4,L◢ Next:Norm 1:“END”
附 合 水 准 导 线 示 意 图N点1点h1h2D2D3h3D4h4D13点0点2点 B=3
序 号 H0 1 2 3 4 5 6 7 8 9 后 视 1.600 1.847 1.636 1.920 0.428 1.082 1.863 0.036 0.859 前 视 0.202 0.118 0.138 0.608 1.214 0.792 0.081 1.818 1.131 0.416 平 距 100.1 98.7 56.3 33.0 78.9 100.1 98.7 56.3 33.0 78.9 1816.209 1817.938 1819.437 1820.749 1819.964 1820.254 1822.037 1820.255 1819.983 高 程（m） 1814.810 1816.209 1817.938 1819.437 1820.749 1819.964 1820.254 1822.037 1820.255 1819.984 1820.754 fh=﹣0.005 m D=734m 精度参数 V（m） U（m） D（m） (S≠0)距离平差 （S=0）测站数平差 10 (HN) 1.186 D5h54点且行天涯 804963666 48