5800导线平差程序.docVIP

5800计算器导线平差程序 一、程序用途及使用范围 本程序适用于一般导线复测平差计算，利用左角复测复合导线、闭合导线的平差时可直接使用。复合导线平差时输入起始和终止边两个方位角，如果将终止边方位角输入为0，程序会自动转入闭合导线平差界面。如果想用观测右角平差时，只需将程序中带下划线的地方按使用说明稍加改动即可。 二、源程序清单：1、JDPCA（文件名称） 0→M:0→I:0→K: “AFWJ”?A: “BFWJ”?B:“CZS”? →N: “JDRXBHCA”:24√ˉ N →P◣“∑ ZJ ”? →C:If B≠0 Then A-B-180N+C→D: EIseC-180 N-2 →D:IfEnd: “JDBHCA.f ”:D?DMS◣P Abs D ＝ Goto 4: “JDGZ ”:-D÷N→F:F?DMS◣LbI 1: “CJ”? →P:B 0 And P 0＝ Goto3: “JGH ”:P+F→J:J?DMS◣A+J-180→E:If E 0 And E 360:ThenE:IfEnd:If E 360:ThenE-360→E:IfEnd: :If E 360:ThenE+360→E:IfEnd: “FWJ ”: E?DMS◣“L”? →L:L 0 And B≠0＝ Goto3:“XO ”:Lcos E →X◣“YO ”:Lsin E →Y◣M+L→M:I+X→I:K+Y→K:E→A:Goto1:LbI3: “∑ L ”:M◣“∑ XO ”:I◣“∑ YO ”:K◣Prog“DXPCA”： LbI4 DXPCA（文件名称，可单独运行） “AX”? →A:“AY”? →Z:If B≠0:Then “BX”? →C: “BY”? →D: “FX ”:I-C+A→F◣“FY ”:K-D+Z→W◣EIse “FX ”:I→F◣“FY ”:K→W◣IfEnd: “DXBHCA.F ”:√ˉ F 2+（W）2 →P◣“RXDXBHCAFM”? →R:“DXBHCAFM ”:M÷P→E◣E R＝ Goto1:F÷M→N:W÷M→O:LbI0:“L”? →L:“XG ”:-LN→Q◣“YG ”:-LO→V◣“XO”? →R: “YO”? →S: “XGH ”:Q+R→T◣“YGH ”:S+V→U◣“X ”:A+T→X◣“Y ”:Z+U→Y◣X→A:Y→Z:Goto0:LbI1 三、程序符号含义 AFWJ?； BFWJ-?-----分别为起始边和终止边方位角，（闭合导线平差时BFWJ输入0）。 JDRXBHCA -----（24√ˉ N ，三级导线角度容许闭合差（秒），根据导线级别改常数，如二级导线将24改为16，一级改10. CZS ∑ ZJ ？ JDBHCA.f CJ? JDGZ JGH FWJ L? XO ,YO RXDXBHCAFM? 二级为10000，三级5000. DXBHCA.F ∑ L ∑ XO ∑ YO XF ,YF AX,AY,BX,BY XG ，YG XGH ，YGH X ,Y JD.ERR;DX.ERR-----分别为角度闭合差和导线闭合差不符合求。 四、程序使用方法说明 1、首先确定侧角方向，如果是观测的左角，可以直接启动程序进行计算，如果观测的是右角，将程序中带下划线的地方按下式修改：-D/N改成D/N; A+J-180改成A-J+180。复合导线平差将A-B-180N+C改成A-B+180N-C;闭合导线平差将C-180 N-2 改成180（N-2）-C。 2、确定导线级别，按程序符号含义的规定修改程序参数。 3、按程序提示输入参数进行平差计算，本程序分两部分进行： ①、输入起始和终止方位角、测站个数，实测角度总和进行角度平差，如果不符合要求，给出错误提示，程序终止运行，符合要求时，输入实测角值和边长，程序给出平差改正后的角值和坐标方位角并且计算出坐标增量值，当复合导线计算边长输入0，闭合导线测角输入0时，本部分计算结束，程序会自动转入下一部分计算。 ②、程序会自动给出边长、X增量、Y增量总和，接着提示输入起始点和终止点的坐标，程序自动进行导线平差，精度达不到规范要求时，程序给出错误提示，终止运行；符合要求时，提示输入边长，给出改正值，提示输入X、Y坐标增量值，程序给出改正后坐标增量和平差后的测站坐标值。继续按提示输入直至平差结束。 五、计算实例