附合导线简易平差(4500PA)

附合导线简易平差（ｆｘ－4500PA）

一、图形模型

二、数学模型

1、角度闭合差：ｆβ=（α始－α终）＋Σβ左－ｎ.180

2、角度改正数：Vβ＝－ｆβ/ｎ

3、坐标增量：Δｘ＝S .cosα，Δｙ＝S .sinα

4、坐标增量闭合差：ｆx=Σx测－（X终-X始）, ｆy=Σy测-(X终-X始)

5、坐标增量改正数：VΔxi=-ｆx/ΣS.Si, VΔyi=-ｆy/ΣS.Si

6、导线全长闭合差：ｆs=√¯(ｆ²x＋ｆ²ｙ)，K＝ｆs/ΣS

7、各点坐标：Xi+1=Xi+Δxi, Yi+1=Yi+Δyi

三、程序

主程序

FHDX

L1  N”JS”:M”MB”:A”A0”:A=180+A:O”AN”:Defm2N:U=A:Prog 9:A=U:

U=O:Prog 9:O=U

L2  I=0:Lb1 0:｛B｝：U＝B：Prog 9:B=U:I=I+1: A=A+180+B:Z[2I－1]=A:I≠N→Goto 0△F＝A－O－Int(A－O):3600F▲H=2M√¯N▲G=F/N

L3  X”XA”:Y”YA”:Q”XB”:R”YB”:I=0:P=0:Lbl 1:｛S｝:I=I+1:

Z[2I]=S:P=P+S:I≠N－1→Goto 1△L=P▲

L4  I=0:C=0:D=0:Lbl 2:I=I+1:Prog C:C=C+V:D=D+W:I≠N－1→Goto 2△E=X+C－Q▲J=Y+D－R▲P=√¯(E²+J²) ▲K=L/P▲

L5 I=0:Lbl 3:I=I+1▲Prog C:X=X+V－Z[2I]E/L▲Y=Y+W－Z[2I]J/L▲I≠N－1→Goto 3△

子程序　

9

L1 U=Int U+5Frac U/3+Frac 100U/90

C

L1 V=Z[2I]Cos（Z[2I－1] －G）：W=Z[2I]Sin（Z[2I－1] －G）

四、说明

1、N－内角个数，M－角度限差，A0、AN－起终边方位角，B－各内角，XYQR－起终点坐标。

2、本程序的巧妙：

1）把角存在Z[2I]，边存在Z[2I+1]，互不干扰。

2）F＝A－O－Int(A－O)精妙的求出角度闭合差。

3）程序所占空间约424STEPS。

五、示例

Xii01= 5534.570, Yii01=4252.462; Xii02=5203.976, Yii02=4543.409;

Xii03=5704.789, Yii03=4524.758; Xii04=4880.087, Yii04=4829.766

Key:

N0                        x/y

01                     5434.382

                       4126.953

02                     5326.705

                       4260.905

03                     5279.561

                       4415.390

示图：