测量平差基础课程设计.docx
《测量平差基础课程设计.docx》由会员分享，可在线阅读，更多相关《测量平差基础课程设计.docx（15页珍藏版）》请在冰点文库上搜索。
测量平差基础课程设计
测量平差基础课程设计
题目：
导线平差
班级：
测绘二班
姓名：
潘多
学号：
080614867
完成日期：
测量平差课程设计
摘要：
内容，以补充题名的不足。
包括研究工作的目的、方法、结果和结论，而重点是结果和结论。
（摘要使用小4号宋体）
关键词：
EXCEL；无缝结合；数据处理；平差；导线；导线网
1.概述（4号黑体）
该课程设计主要目的是对导线平差进行计算机化,在输入数据后报表自动生成,和平差后的图形自动生成。
在对数据是否合格和与草图对比起到了很大的检验作用。
在进行闭合导线，附和导线及其导线网平差计算时都相当简便。
2.设计的基本原理
在EXCEL对数据处理有着很强大的功能，能够完成数据的排序，分类汇总，函数计算，统计，自动生成统计图表，数据库编辑等功能，所有计算过程都以表格形式体现，可以直接输出或被WORD调用形成报表的插表。
在对控制网的平差计算中对矩阵的计算也相当简便。
在与VB结合，在VB中调用EXCEL实现了数据输入的便捷，全部自动化计算。
实现了在一个界面同时输出报表，图形等。
2.1.VB与EXCEL的无缝结合
VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一旦报表格式发生变化，就得相应修改程序，给应用软件的再利用带来极大的不方便。
由于VB的自动化功能可以读写EXCEL,这就实现了VB与EXCEL的有机结合。
2.2.网形结构的平差
在这部分由于要加入逻辑运算，在对网状结构的判断及其行列式的运行都很困难，还有函数式的自动化还无法实现，所以在此就只好我们先手工给出判断，以列出法方程来进行计算，其实这部分也就是一个计算程序。
3.程序设计（4号黑体）
3.1×××（小4号黑体）
要求：
系统（或顶层文件）结构描述，各个模块（或子程序）的功能描述；
1）用原理图实现的，报告需包含以下内容：
（1）系统原理图
（2）主要模块或符号说明；
1）数据录入：
可以用TXT文本编好过后直接进行数据传输，也可一在EXCEL中直接编写进行计算
2）数据处理：
这一模块住要在EXCEL中做出，对所有的公式进行编写一达到我们所要的计算目的。
3）成图：
是在VB图形控件中显示，即与CAD结合
2）用VB语言实现，报告包含以下内容：
（1）源代码；
DimxlappAsExcel.Application
DimxlbookAsExcel.Workbook
DimxlsheetAsExcel.Worksheet
DimaAsInteger
DimbAsInteger
DimbAsInteger
DimdAsInteger
DimeAsInteger
DimfAsInteger
a=Val（Text1.Text）
b=Val（Text5.Text）
c=Val（Text6.Text）
d=Val（Text7.Text）
e=Val（Text8.Text）
f=Val（Text9.Text）
PrivateSubCommand3_Click（）
IfDir（"d:
\temp\excel.bz"）=""Then
Setxlapp=CreateObject（"excel.application"）
xlapp.Visible=True
Setxlbook=xlapp.Workbooks.open（"d:
\temp\bb.xls"）
Setxlsheet=xlbook.Worksheets
（1）
xlsheet.Activate
xlsheet.Cells（2,3）="abc"
xlbook.RunAutoMacros（xlAutoOpen）
Else
MsgBox（"excel已经打开!
"）
EndIf
EndSub
PrivateSubCommand2_Click（）
IfDir（"d;\temp\excel.bz"）<>""Then
xlbook.RunAutoMacros（xlAutoClose）
xlbook.Close（True）
xlapp.Quit
EndIf
Setxlapp=Nothing
EndSub
PrivateSubCommand4_Click（）
IfDir（"d:
\temp\excel.bz"）=""Then
Setxlapp=CreateObject（"excel.application"）
xlapp.Visible=True
Setxlbook=xlapp.Workbooks.open（"d:
\temp\bb.xls"）
Setxlsheet=xlbook.Worksheets
（2）
xlsheet.Activate
xlsheet.Cells（1,1）="abc"
xlbook.RunAutoMacros（xlAutoOpen）
Else
MsgBox（"excel已经打开!
"）
EndIf
EndSub
程序代码:
OptionBase1
PrivateSubForm_Click（）
DimmAsInteger,nAsInteger
DimiAsInteger,jAsInteger
ReDimb（3,3）AsInteger
ReDimc（3,3）AsInteger
Fori=1To3
Forj=1To3
b（i,j）=CInt（Rnd*3）+2
Nextj
Nexti
Print"矩阵b:
"
Print
Fori=1To3
Forj=1To3
PrintTab（4*j）;b（i,j）;
Nextj
Nexti
Fori=1To3
Forj=1To3
c（i,j）=b（j,i）
Nextj
Nexti
Print
Print"b矩阵的转置:
";‘显示转置后的数组以确认代码的正确性
Print
Fori=1To3
Forj=1To3
PrintTab（4*j）;c（i,j）;
Nextj
Nexti
EndSub
b）矩阵乘法模块
模块代码:
OptionBase1
PrivateSubForm_Click（）
DimmAsInteger
DimnAsInteger
DimiAsInteger
Dima（3,3）AsInteger
Dimb（3,3）AsInteger
Dimc（3,3）AsInteger
Form=1To3
Forn=1To3
a（m,n）=Rnd*20+8
b（m,n）=Rnd*12+7
Nextn
Nextm
Print"矩阵a:
"
Form=1To3
Forn=1To3
PrintTab（5*n）;a（m,n）;
Nextn
Nextm
Print
Print"矩阵b:
"
Form=1To3
Forn=1To3
PrintTab（5*n）;b（m,n）;
Nextn
Nextm
Form=1To3
Forn=1To3
c（m,n）=0
Fori=1To3
c（m,n）=c（m,n）+a（m,i）*b（i,n）
Nexti
Nextn
Nextm
Print
Print"矩阵c:
"
Form=1To3
Forn=1To3
PrintTab（5*n）;c（m,n）;
Nextn
Nextm
EndSub
c）矩阵求逆模块
程序采用了求矩阵的行列式和矩阵伴随矩阵,最后求商得到矩阵的逆的方法,由于采用了大量的循环语句和递归调用的方式,程序在执行大数据量的时候显得有些慢,例如在解算校内导线的时候,是一个8×8矩阵,并且数据量较大,因而在解算时花了好几秒的时间。
因此该方法还有待改进。
程序代码:
OptionBase1
'建立一个函数求下一个矩阵
Functionnext_a（ByRefa（）AsInteger,ByValnAsInteger,ByVali
AsInteger）AsInteger
Dimk,jAsInteger
DimcountAsInteger
count=0
Fork=2Ton+1
Forj=1Ton+1
Ifj<>iThen
a（Fix（count/n）+1,（countModn）+1）=a（k,j）
count=count+1
EndIf
Nextj
Nextk
EndFunction
'建立一个函数求取矩阵的行列式值
Functiondvalue（ByRefa（）AsInteger,ByValnAsInteger）As
Integer
Dimb（）AsInteger
Dimo,pAsInteger
Dimi,k,jAsInteger
DimsignAsInteger:
sign=1
DimsumAsInteger:
sum=0
ReDimb（n,n）AsInteger
Ifn=1Then
sum=a（1,1）
Else:
Fori=1Ton
Forj=1Ton
Fork=1Ton
b（j,k）=a（j,k）
Nextk
Nextj
next_ab（）,n-1,i'调用nexta函数
sum=sum+sign*a（1,i）*dvalue（b（）,n-1）'递归调用
dvalue函数
sign=（-1）*sign
Nexti
EndIf
dvalue=sum
EndFunction
'建立一个函数求取矩阵的伴随矩阵
Functionaccom_a（ByRefa（）AsInteger,ByValnAsInteger,ByVali
AsInteger,ByValjAsInteger）AsInteger
Dimt（）AsInteger
Dime,bAsInteger
DimcountAsInteger:
count=0
DimsAsInteger:
s=0
ReDimt（n,n）AsInteger
Fore=1Ton
Forb=1Ton
Ife<>iAndb<>jThen
t（Fix（count/（n-1））+1,（countMod（n-1））+1）=a（e,b）
count=count+1
EndIf
Nextb
Nexte
s=dvalue（t（）,n-1）
If（（i+j）Mod2）<>0Then
s=（-1）*s
Else:
s=s
EndIf
accom_a=s
EndFunction
abc
闭合导线平差
度
分
秒
X坐标
Y坐标
距离
所测角度
方位角
已知方位角
第1点
第2点
第3点
第4点
第5点
第6点
第7点
第8点
第9点
第10点
第11点
第12点
第13点
第14点
x
y
S=
相对精度=
4.课程设计过程中遇到的问题以及解决方法
在vb中实现导线的平差太难了，而且编制过成也太长，我们在接到通知要交的时候还六下3天时间，所以我们主要编制导线网的平差，在导线那一部分我们使用vb与EXCEL连接计算，本来我们还要把acd连接进入直接进行成图，但是还没找到相关资料，不过我们知道以后会在这一方面努力的
首先在页面设计是我要考虑到我们要的起誓数据是什么，一开始我们并没有在意，可是后来我们在编制程序的时候发现了问题。
所以又耽误了我们好长时间重新来过，包括EXCEL的编制，主要使用起内部函数。
第二在实现编程的时候我们对于vb的好多命令有点生疏了，使得进度更加慢了我们知道在学习编程的时候我们不可以停下脚步，我们要不段的饿学习，不断的更新自己的知识
在最后编制过车工中出现了错误，晕人的挖，不知道是哪里错了，可是用的vb是下载的没有msdn不好查找，只好出现一个在网上搜一个，只怪自己技术不到家。
其实我想如果我们在做课程设计的时候有个老师在边上指导我想，那效果会更好的
5.总结
经过一个星期的上机实践学习，使我对vb语言有了更进一步的认识和了解，要想学好它要重在实践，要通过不断的上机操作才能更好地学习它，通过实践，我也发现我的好多不足之处，首先是自己在指法上还不行，经常按错字母，通过学习也有所改进；再有对vb语言的一些标准库函数不太了解，还有对函数调用的正确使用不够熟悉，还有对vb语言中经常出现的错误也不了解，通过实践，使我在这几个方面的认识有所提高。
通过实践的学习，我认到学好计算机要重视实践操作，不仅仅是学习vb语言，还是其它的语言，以及其它的计算机方面的知识都要重在实践，所以后在学习过程中，我会更加注视实践操作，使自己便好地学好计算机。
6.心得体会
通过该课程设计，对该课程的一些基本概念、词法分析、语法分析、属性文法和语法制导翻译有了深刻的了解并比较掌握了什么是平差，平差工作的基本过程及其各阶段的基本任务，熟悉了编译程序总流程框图，了解了编译程序的生成过程、构造工具及其相关的技术对课本上的知识有了更深的理解，课本上的知识机械的，表面的。
通过把该算法的内容，算法的执行顺序在计算机上实现，把书本知识更好的融入自己的头脑，对实验原理有更深的理解。
通过该课程设计，全面系统的理解了编译原理程序构造的一般原理和基本实现方法。
把学过的计算机平差原理以及相关课程的知识强化，能够把课堂上学的知识通过自己设计的程序表示出来，加深了对理论知识的理解和对自己动手能力的提高。
以前对与计算机平差系统概念上的认识是模糊的，现在通过自己动手做实验，从实践上认识了操作系统是如何处理命令的，如何协调计算机内部各个部件运行记忆是怎么运行的，对计算机平差原理的认识更加深刻。
在这次课程设计中，通过自己动手，加深理解文件系统的内部功能及内部实现，培养实践动手能力和程序开发能力的目的。
把死板的课本知识变得生动有趣，激发了学习的积极性。
参考文献：
互联网出师表
两汉：
诸葛亮
先帝创业未半而中道崩殂，今天下三分，益州疲弊，此诚危急存亡之秋也。
然侍卫之臣不懈于内，忠志之士忘身于外者，盖追先帝之殊遇，欲报之于陛下也。
诚宜开张圣听，以光先帝遗德，恢弘志士之气，不宜妄自菲薄，引喻失义，以塞忠谏之路也。
宫中府中，俱为一体；陟罚臧否，不宜异同。
若有作奸犯科及为忠善者，宜付有司论其刑赏，以昭陛下平明之理；不宜偏私，使内外异法也。
侍中、侍郎郭攸之、费祎、董允等，此皆良实，志虑忠纯，是以先帝简拔以遗陛下：
愚以为宫中之事，事无大小，悉以咨之，然后施行，必能裨补阙漏，有所广益。
将军向宠，性行淑均，晓畅军事，试用于昔日，先帝称之曰“能”，是以众议举宠为督：
愚以为营中之事，悉以咨之，必能使行阵和睦，优劣得所。
亲贤臣，远小人，此先汉所以兴隆也；亲小人，远贤臣，此后汉所以倾颓也。
先帝在时，每与臣论此事，未尝不叹息痛恨于桓、灵也。
侍中、尚书、长史、参军，此悉贞良死节之臣，愿陛下亲之、信之，则汉室之隆，可计日而待也
。
臣本布衣，躬耕于南阳，苟全性命于乱世，不求闻达于诸侯。
先帝不以臣卑鄙，猥自枉屈，三顾臣于草庐之中，咨臣以当世之事，由是感激，遂许先帝以驱驰。
后值倾覆，受任于败军之际，奉命于危难之间，尔来二十有一年矣。
先帝知臣谨慎，故临崩寄臣以大事也。
受命以来，夙夜忧叹，恐托付不效，以伤先帝之明；故五月渡泸，深入不毛。
今南方已定，兵甲已足，当奖率三军，北定中原，庶竭驽钝，攘除奸凶，兴复汉室，还于旧都。
此臣所以报先帝而忠陛下之职分也。
至于斟酌损益，进尽忠言，则攸之、祎、允之任也。
愿陛下托臣以讨贼兴复之效，不效，则治臣之罪，以告先帝之灵。
若无兴德之言，则责攸之、祎、允等之慢，以彰其咎；陛下亦宜自谋，以咨诹善道，察纳雅言，深追先帝遗诏。
臣不胜受恩感激。
今当远离，临表涕零，不知所言。
升级会员 