测绘程序设计实验八水准网平差程序设计报告完整版

测绘程序设计实验八水准网平差程序设计报告
Document serial number【NL89WT-NY98YT-NC8CB-NNUUT-NUT108】
《测绘程序设计》上机实验报告
（Visual C++.Net）
班级：测绘0901班
学号： 04
姓名：代娅琴
2012年4月29日
实验八平差程序设计基础
一、实验目的
巩固过程的定义与调用
巩固类的创建与使用
巩固间接平差模型及平差计算
掌握平差程序设计的基本技巧与步骤
二、实验内容
水准网平差程序设计。

设计一个水准网平差的程序，要求数据从文件中读取，计算部分与界面无关。

1.水准网间接平差模型：
2.计算示例：
近似高程计算：
3.水准网平差计算一般步骤
(1)读取观测数据和已知数据；
(2)计算未知点高程近似值；
(3)列高差观测值误差方程；
(4)根据水准路线长度计算高差观测值的权；
(5)组成法方程；
(6)解法方程，求得未知点高程改正数及平差后高程值；
(7)求高差观测值残差及平差后高差观测值；
(8)精度评定；
(9)输出平差结果。

4.水准网高程近似值计算算法
5.输入数据格式示例
实验代码：
#pragma once
class LevelControlPoint
{
public:
LevelControlPoint(void);
~LevelControlPoint(void);
public:
CString strName;trName=pstrData[0];
m_pKnownPoint[i].strID=pstrData[0];
m_pKnownPoint[i].H=_tstof(pstrData[1]);
m_pKnownPoint[i].flag=1;trName=pstrData[i];
m_pUnknownPoint[i].strID=pstrData[i];
m_pUnknownPoint[i].H=0;lag=0;pBackObj=SearchPointUsingID(pstrData[0]);pFrontObj=Sea rchPointUsingID(pstrData[1]);ObsValue=_tstof(pstrData[2]);ist=_tstof(pstrData[3]);trID==ID) {return &m_pKnownPoint[i];}
}
return NULL;
}
trID==ID)
{return &m_pUnknownPoint[i];}
}
return NULL;
}
LevelControlPoint* AdjustLevel::SearchPointUsingID(CString ID)
{
LevelControlPoint* cp;
cp=SearchKnownPointUsingID(ID);
if(cp==NULL)
cp=SearchUnknownPointUsingID(ID);
return cp;
}
void AdjustLevel::ApproHeignt(void)lag!=1)
{
pFrontObj->strID==m_pUnknownPoint[i].strID)
&& m_pDhObs[j].cpBackObj->flag==1 )
{ =m_pDhObs[i].cpBackObj->H - m_pDhObs[i].ObsValue;*/
m_pUnknownPoint[i].H=m_pDhObs[j].cpBackObj->H +
m_pDhObs[j].HObsValue;
m_pUnknownPoint[i].flag=1;
break;
}
}
if(m_pUnknownPoint[i].flag!=1)pBackObj-
>strID==m_pUnknownPoint[i].strID)
&& m_pDhObs[j].cpFrontObj->flag==1 )
{ =m_pDhObs[j].cpFrontObj->H-m_pDhObs[j].HObsValue;
/* m_pUnknownPoint[i].H=m_pDhObs[i].cpFrontObj-
>H+m_pDhObs[i].ObsValue;*/
m_pUnknownPoint[i].flag=1;
break;
}
}
}
}
if(i==m_iUnknownPointCount-1)lag!=1)ist);
p(i,i)=value;
}
return p;
}
void AdjustLevel::FormErrorEquation(CMatrix &B, CMatrix &L)
{
(m_iDhObsCount,m_iUnknownPointCount);
(m_iDhObsCount,1);
for(int i=0;i<m_iDhObsCount;i++)pBackObj->strID);
tmpFront=SearchPointUsingID(m_pDhObs[i].cpFrontObj->strID);
trID==tmpBack->strID)trID==tmpFront->strID)bsValue-(m_pDhObs[i].cpBackObj->H-m_pDhObs[i].cpFrontObj->H);*/
L(i,0)=m_pDhObs[i].HObsValue-(m_pDhObs[i].cpFrontObj->H -
m_pDhObs[i].cpBackObj->H);
(_T("%.3f"),L(i,0));
L(i,0)=_tstof(tmp);
L(i,0)=L(i,0)*1000;+=x(i,0);xt"));xt"));
if()==IDCANCEL) return;
CString strFileName=();
setlocale(LC_ALL,"");
CStdioFile sf;
if(!(strFileName, CFile::modeCreate|CFile::modeWrite)) return;
(LevleContent);
();
UpdateData(FALSE);
}
void CIndircLelveDlg::OnBnClickedComputelevel()
{
f\r\n"), [i].strID,[i].H);
LevleContent+=Temp;
}
(_T("单位权中误差：%.1f mm\r\n"),r0*1000);
LevleContent+=Temp;
LevleContent+=_T("未知点高程中误差(mm):\r\n");
for(int i=0;i< ;i++)
{
();
(_T("%s,%.1f\r\n"),[i].strName,Qx[i]*1000);
LevleContent+=Temp;
}
UpdateData(false);
}
void CIndircLelveDlg::OnBnClickedSavelevleresult()
{
xt"));
if()==IDCANCEL) return;
CString strFileName=();
setlocale(LC_ALL,"");
CStdioFile sf;
if(!(strFileName, CFile::modeCreate|CFile::modeWrite)) return;
(LevleContent);
();
UpdateData(FALSE);
}
三、实验结果
打开文件数据：
平差结果：
四、实验心得
这从实验是我们测绘程序设计的最后一次实验，虽然这个学期我们做了好几次相关的实验，但是我却发现自己学的东西也越来越模糊，感觉很多内容都不理解。

这次
的实验很大程度上我都是按照《测绘程序设计》上面单导线简易计算来编的，在加上后面的关于水准网间接平差的误差方程和法方程，以及精度评定的相关函数，来完成的。

而自己主要完成的就是水准网的数据读取，保存的操作，由于这部分主要用的知识是文件的读取的，因为前面做过，所以不是太难。

但是这并不意味着这次实验很简单，至少在我心中这的确比较难，因为里面很多东西不是纯粹的把代码写上去就可以完成，还要靠自己做相应的代码对应，才能够真正的得到想要的结果。

但学好编程并扎实的为自己所用是需要更多的学习和练习的，我知道在掌握课堂知识的同时，主动的去寻找吸收相关的知识，希望通过本门课程的学习，掌握学习编程的方法，使自己的水平能够更进一步，循序渐进的掌握更多。

虽然这门课的实验已经结束，但是我却深深地知道，我们专业对编程的要求很高，而且必须具备较好的编程能力，或许这些日子下来，我学到的不是很多，但是我或多或少明白，编程是一个循序渐进的过程，我想真的能够在这方面有所突破，就更要花时间多花工夫。