5800导线平差程序

《5800导线平差程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、5800计算器导线平差程序一、程序用途及使用范围本程序适用于一般导线复测平差计算，利用左角复测复合导线、闭合导线的平差时可直接使用。复合导线平差时输入起始和终止边两个方位角，如果将终止边方位角输入为0，程序会自动转入闭合导线平差界面。如果想用观测右角平差时，只需将程序中带下划线的地方按使用说明稍加改动即可。二、源程序清单：1、角度平差：JDPCA（文件名称）0→M:0→I:0→K:“AFWJ”?A:“BFWJ”?B:“CZS”?→N:“JDRXBHCA”:24√¯(N)→P◣“∑(ZJ)”?→C:IfB≠0ThenA-B-180N+C→D:EIseC-180(N-2)→D:IfEn

2、d:“JDBHCA.f=”:D▶DMS◣PGoto4:“JDGZ=”:-D÷N→F:F▶DMS◣LbI1:“CJ”?→P:B=0AndP=0＝>Goto3:“JGH=”:P+F→J:J▶DMS◣A+J-180→E:IfE>0AndE<360:ThenE:IfEnd:IfE>360:ThenE-360→E:IfEnd::IfE<360:ThenE+360→E:IfEnd:“FWJ=”:E▶DMS◣“L”?→L:L=0AndB≠0＝>Goto3:“XO=”:Lcos(E)→X◣“YO=”:Lsin(E)→Y◣M+L→M:I+X→I:K+Y→K:E→A:Goto1:Lb

3、I3:“∑(L)=”:M◣“∑(XO)=”:I◣“∑(YO)=”:K◣Prog“DXPCA”：LbI42、导线平差：DXPCA（文件名称，可单独运行）“AX”?→A:“AY”?→Z:IfB≠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)²+（W）²)→P◣“RXDXBHCAFM”?→R:“DXBHCAFM=”:M÷P→E◣EGoto1:F÷M→N:W÷M→O:LbI0:“L”?→L:“XG=”:-LN→Q◣“YG=”:-LO→

4、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?-----------各站角度实测值。J

5、DGZ=-------毎站角度该正值。JGH=----------平差修正后角值。FWJ=----------平差后两站间方位角。L?--------两站间实测距离。XO=,YO=---------坐标增量计算值。RXDXBHCAFM?-------容许导线闭合差分母。一级为15000，二级为10000，三级5000.DXBHCA.F----------计算的导线闭合差∑(L)=∑(XO)=∑(YO)=------分别为边长X、Y坐标增量值总和。XF=,YF=--------分别为X,Y的闭合差AX,AY,BX,BY-------分别为起点和终点的设计坐标值。XG=，YG=----

6、---分别为X、Y坐标增量改正值。XGH=，YGH=-------分别为改正后X、Y坐标增量值。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、按

7、程序提示输入参数进行平差计算，本程序分两部分进行：①、输入起始和终止方位角、测站个数，实测角度总和进行角度平差，如果不符合要求，给出错误提示，程序终止运行，符合要求时，输入实测角值和边长，程序给出平差改正后的角值和坐标方位角并且计算出坐标增量值，当复合导线计算边长输入0，闭合导线测角输入0时，本部分计算结束，程序会自动转入下一部分计算。②、程序会自动给出边长、X增量、Y增量总和，接着提示输入起始点和终止点的坐标，程序自动进行导线平差，精度达不到规范要求时，程序给出错误