5800导线平差程序
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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
DXPCA(文件名称,可单独运行)
“AX”?→A:“A Y”?→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)²+(W)²)→P◣“RXDXBHCAFM”?→R:“DXBHCAFM=”:M÷P→E ◣E
三、程序符号含义
AFWJ?;BFWJ-?-----分别为起始边和终止边方位角,(闭合导线
平差时BFWJ输入0)。
JDRXBHCA=-----(24√¯(N),三级导线角度容许闭合差(秒),根据导线级别改常数,如二级导线将24改为16,一级改10. CZS---------测站个数。
∑(ZJ)?-------各站测量角度总和。
JDBHCA.f=----------角度闭合差。
CJ?-----------各站角度实测值。
JDGZ=-------毎站角度该正值。
JGH=----------平差修正后角值。
FWJ=----------平差后两站间方位角。
L?--------两站间实测距离。
XO=,YO=---------坐标增量计算值。
RXDXBHCAFM?-------容许导线闭合差分母。一级为15000,
二级为10000,三级5000.
DXBHCA.F----------计算的导线闭合差
∑(L)=∑(XO)=∑(YO)=------分别为边长X、Y坐标增量值总和。XF=,YF=--------分别为X,Y的闭合差
AX,A Y,BX,BY-------分别为起点和终点的设计坐标值。
XG=,YG=-------分别为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、按程序提示输入参数进行平差计算,本程序分两部分进行:
①、输入起始和终止方位角、测站个数,实测角度总和进行角度平差,如果不符合要求,给出错误提示,程序终止运行,符合要求时,输入实测角值和边长,程序给出平差改正后的角值和坐标方位角并且计算出坐标增量值,当复合导线计算边长输入0,闭合导线测角输入0时,本部分计算结束,程序会自动转入下一部分计算。
②、程序会自动给出边长、X增量、Y增量总和,接着提示输入起始点和终止点的坐标,程序自动进行导线平差,精度达不到规范要求时,程序给出错误提示,终止运行;符合要求时,提示输入边长,给出改正值,提示输入X、Y坐标增量值,程序给出改正后坐标增量和平差后的测站坐标值。继续按提示输入直至平差结束。
五、计算实例