5800计算器导线平差程序

下载本文档

ID 588151
格式 docx
大小 14.73 KB
约4页
收藏
点赞(0)
海报
举报

/ 4

下载本文档

文本预览下载提示常见问题

5800计算器导线平差程序一、程序用途及使用范围本程序适用于一般导线复测平差计算，利用左角复测复合导线、闭合导线的平差时可直接使用。复合导线平差时输入起始和终止边两个方位角，如果将终止边方位角输入为o,程序会自动转入闭合导线平差界面。如果想用观测右角平差时，只需将程序中带下划线的地方按使用说明稍加改动即可。二、源程序清单：1、角度平差：JDPCA（文件名称）0fM:0-I:0-K:“AFWJ”？A:“BFWJ”？B:“CZS”?—N:“JDRXBHCA“：24J-(N)“£(ZJ)”？-ClfBWOThenA-B-180N+CfD:ElseC-180(N-2)-D：IfEnd:"JDBHCA.f="：D►DMSkPGoto4:“JDGZ二":・DMNfFFDMS'Lbl1:“CJ”？fP:B=0AndP=0=>Goto3:"JGH="：P+F->J:JADMSkA+J-180E:IfE>0AndE<360:ThenE：Iffind:IfE>360:ThenE-360-E:IfEnd::IfE<360:ThenE+360-E：IfEnd:“FWJ=”：E►DMSk"L”?->L:L=OAndB^0=>Goto3:“XO二"：Lcos(E)->Xk“YO=":Lsin(E)->YkM+L->M:I+X->I:K+Y->K:E-*A:Gotol:LbI3:“£(L)=":Mk"K(XO)=":I\"£(YO)=V:KkProg“邓小平CA”：LbI42、导线平差：邓小平CA(文件名称，可单独运行)"AX”?fA:"AY"？fZ:IfBW0:Then“BX”?C:"BY”?一D:"FX=":LC+A->Fk"FY=”:K・D+Z-W'EIse"FX=”:I->Fk“FY---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---二”：K-W'lfEnd:“DXBHCA.FW「((F)2+(W)2)~P\"RXDXBHCAFM"？一R:“DXBHCAFM="：M+P-EkEGotol: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-Xk“Y="：Z+UfY，X-A:YfZ:GoloO:LbIl三、程序符号含义AFWJ?；BFWJ-?--分别为起始边和终止边方位角，(闭合导线平差时BFWJ输入0)。JDRXBHCA二一一(24J—(N),三级导线角度容许闭合差(秒)，根据导线级别改常数，如二级导线将24改为16,一级改10.CZS测站个数。X(ZJ)?——各站测量角度总和。JDBHCA.f=角度闭合差。CJ?各站角度实测值。JDGZ=——每站角度该正值。JGH=平差修正后角值。FWJ=平差后两站间方位角。L?两站间实测距离。XO=,YO=坐标增量计算值。RXDXBHCAFM?容许导线闭合差分母。一级为15000,二级为10000,三级5000.---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---DXBHCA.F计算的导线闭合差S(L)=S(XO)=S(YO)=——分别为边长X、Y坐标增量值总和。XF=,YF=分别为X,Y的闭合差AX,AY,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)-Co2、确定导线级别，按程序符号含义的规定修改程序参数。3、按程序提示输入参数进行平差计算，本程序分两局部进行：①、输入起始和终止方位角、测站个数，实测角度总和进行角度平差，如果不符合要求，给出错误提示，程序终止运行，符合要求时，输入实测角值和边长，程序给出平差改正后的角值和坐标方位角并且计算出坐标增量值，当复合导线计算边长输入0,闭合导线测角输入。时，本局部计算结束，程序会自动转入下一部分计算。②、程序会自动给出边长、X增量、Y增量总和，接着提示输入起始点和终止点的坐标，程序自动进行导线平差，精度达不到规范要---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---求时，程序给出错误提示，终止运行；符合要求时，提示输入边长，给出改正值，提示输入X、Y坐标增量值，程序给出改正后坐标增量和平差后的测站坐标值。继续按提示输入直至平差结束。---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---

1、当您付费下载文档后，您只拥有了使用权限，并不意味着购买了版权，文档只能用于自身使用，不得用于其他商业用途（如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利）。
2、本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供参考，付费前请自行鉴别。
3、如文档内容存在侵犯商业秘密、侵犯著作权等，请点击“举报”。