vb矩阵解算及线性方程组求解

《vb矩阵解算及线性方程组求解》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、控制网平差课程设计设计说明书设计题目矩阵运算（求逆、相乘、转置等）线性方程解算姓　名　　　　　　　　　　　　　　指导教师　　　　　　　　　　　专　业　测绘工程　　　　2011年7月11日1.1.1河北理工大学课程设计说明书学号小组成员姓名课程设计具体工作内容个人得分个小组得分204刘志龙Vb程序开发206张硕设计任务书209张娜设计任务书215王杰Matlab例题解算215武晓亚Vb程序开发运用MATLAB和平差易控制网平差计算部分(0.3)题目的难易程度30程序总体运行通过50运行结果的准确度20VB或VC（其它语言）二次开发部分(0.5)界面设计友好，用户数

2、据输入及操作自由度高,有测试数据；20数据结构设计合理，代码模块化，通用性强；20设计思想清晰，代码编写采取逐层递进格式，注释可读性高；20程序总体运行通过，各部分功能实现程度高，注重容错处理40设计说明书部分(0.2)设计报告说明书内容全面，层次清楚、完整程度高30设计思路清析、对设计思想、完成情况等重要内容说明表达清晰，总体分析、详细设计、界面设计各部分内容表述清楚50数据结构和算法合理，知识点明晰20教师评语测绘工程专业课程设计评分表23交通与测绘学院河北理工大学课程设计说明书目　录1课程设计目的11.111.211.2.112课程设计任务22.122.2

3、22.2.122.2.223设计主要内容33.1平差易计算33.1.1题目简介33.1.233.2MatLab计算33.2.1题目简介33.3MatLab计算344参考文献523交通与测绘学院河北理工大学课程设计说明书1课程设计题目矩阵运算（求逆、相乘、转置等）线性方程解算2课程设计目的3课程学习和巩固VB程序设计的方法，充分体会VB在程序设计方面的强大功能和独特之处；解开VB开发项目的一般过程，培养运用VB解决实际问题的工作能力。3设计任务3.1用C/VB等语言在计算机上完成程序代码的编写，并调试通过，来实现矩阵的加法、减法、转置、乘法、求逆和求解线性方程组等

4、的运算，然后用算例印证程序的正确性。3.2初步掌握矩阵的加减乘除及矩阵的转置、求逆等基本运算在计算机上的实现方法；3.3初步掌握线性方程组的算法；3.4初步掌握线线性方程组在计算机上实现方法。4设计主要内容4.1利用vb的相关控件设计如下操作界面：23交通与测绘学院河北理工大学课程设计说明书4.2控件介绍Form：装在所有控件Label：显示提示性语言Command：利用click事件触发相关运算Text：显示输入数据和计算结果4.3系统结构流程图矩阵解算输入矩阵A输入矩阵B转置求逆求解方程组加法乘法减法23交通与测绘学院河北理工大学课程设计说明书4.4.1加减

5、法流程图4.4.2程序代码及其变量名表表1变量说明表变量名‘’类型全局/局部说明i整型局部变量循环变量j整型局部变量循环变量r字符串型局部变量显示矩阵A23交通与测绘学院河北理工大学课程设计说明书s字符串型局部变量显示矩阵Bt字符串型局部变量显示运算结果x整型局部变量矩阵的行数y整型局部变量矩阵的列数PrivateSubCommand1_Click()'加法运算Text1.Text=""Text2.Text=""Text3.Text=""Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueDimiAsInt

6、egerDimjAsIntegerDimxAsDoubleDimyAsDoubleDimrAsStringDimsAsStringDimtAsStringx=Val(InputBox("请输入矩阵A的行数","提示"))y=Val(InputBox("请输入矩阵A的列数","提示"))ReDima(1Tox,1Toy)AsDoubleFori=1Tox'输入矩阵A的元素Forj=1Toya(i,j)=Val(InputBox("请输入矩阵A("&i&","&j&")的数值：","提示",0))NextjNextiFori=1Tox'输出矩阵AForj=1Toys

7、=s&Str(a(i,j))Ifj=yThens=s&vbCrLf23交通与测绘学院河北理工大学课程设计说明书EndIfText1.Text=sNextjNextiReDimB(1Tox,1Toy)AsDouble'输入矩B的元素Fori=1ToxForj=1ToyB(i,j)=Val(InputBox("请输入矩阵B("&i&","&j&")的数值：","提示",0))NextjNextiFori=1Tox'输出矩阵BForj=1Toyt=t&Str(B(i,j))Ifj=yThent=t&vbCrLfEndIfNextjNextiText2.Text=tRe

8、DimC(1Tox,1T