计算机测绘程序及设计实验报告.docVIP

计算机测绘程序设计 实验报告 专业： 班级： 姓名： 学号： 实验一 角度与弧度的转换 原理 首先获取输入角度的正负号，再取绝对值，通过提取度、分、秒计算出角度总和，利用1度=π/180弧度求出弧度；首先获取输入弧度的正负号，再取绝对值，利用1弧度=180/π度将弧度转换为角度，单位为度，通过提取度、分、秒计算出度.分秒。 （2）属性设置 窗体、控件属性设置 默认控件名 设置的控件名（Name） 标题（Caption) Form1 frm_jdhdzh 角度与弧度转换（彭思强） Command1 Cmd_jh 角度→弧度 Command2 Cmd_hj 弧度→角度 Command3 Cmd_qk 清空 Label1 Label1 角度： Label2 Label2 弧度： Text1 txt_jd 无定义 Text2 txt_hd 无定义 （3）程序代码 Private Sub Cmd_jh_Click() Const pi# = 3.14159265358979 定义常量pi Dim d%, f%, m#, fh%, jdzh% jd = txt_jd.Text fh = Sgn(jd) 获取输入角度的正负号 jd = Abs(jd) 取输入角度的绝对值 d = Int(jd) 提取度 f = Int((jd - d) * 100) 提取分 m = ((jd - d) * 100 - f) * 100 提取秒 jdzh = (d + f / 60 + m / 3600) 得到角度总和，单位为度 hd = Format(jd * pi / 180 * fh, 0.000000) 保留6位小数 txt_hd.Text = hd End Sub Private Sub Cmd_hj_Click() Const pi# = 3.14159265358979 定义常量pi Dim d%, f%, m#, fh% hd = txt_hd.Text fh = Sgn(hd) 获取输入弧度的正负号 jdzh = Abs(hd) * 180 / pi 将弧度转换为角度，单位为度 d = Int(jdzh) 提取度 f = Int((jdzh - d) * 60) 提取分 m = ((jdzh - d) * 60 - f) * 60 提取秒 jd = Format((d + f / 100 + m / 10000) * fh, 0.0000) 得到度.分秒并保留四位小数 txt_jd.Text = jd End Sub Private Sub Cmd_qk_Click() txt_jd.Text = txt_hd.Text = End Sub （4）运行结果 实验二 矩阵的加、减、乘、转置、求逆 原理 根据矩阵的运算方法及规则，只有当两个矩阵是同型矩阵时，这两个矩阵才能进行加法和减法运算。只有当第一个矩阵（左矩阵）的列数等于第二个矩阵（右矩阵）的行数时，两个矩阵才能相乘。矩阵的转置是行变列，列变行。矩阵的求逆：。首先提取矩阵中的数据，再利用调用函数完成矩阵运算。 属性设置 窗体、控件属性设置 默认控件名 设置的控件名（Name） 标题（Caption) Form1 frm_jzys 矩阵运算（彭思强） Command1 Cmd_jia A+B Command2 Cmd_jian A-B Command3 Cmd_cheng A*B Command4 Cmd_zhuanzhi AT Command5 Cmd_qiuni A-1 Command6 Cmd_qc 清除 Label1 Label1 A Label2 Label2 B Label3 Label3 C Text1 Txt_a 无定义 Text2 Txt_b 无定义 Text3 Txt_c 无定义 程序代码 Option Base 1 数组从1开始 Dim A() As Double Dim B() As Double Dim C() As Double 矩阵相加运算提取数据 Private Sub Cmd_jia_Click() Dim i As Integer Dim j As Integer Dim m1 As Integer Dim n1 As Integer Dim m2 As Integer Dim n2 As Integer Dim mystring() As String Dim l() As String 提取矩阵A的数据 mystring() = Split(Txt_a.Text, vbCrLf) m1 = UBound(mystring, 1) - LBound(mystring, 1)