分光计的调整与使用实验数据处理
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
分光计的调整与使用实验数据处理
方位 θ1 1 θ2 θ1 2 θ2 θ1 3 θ2 测量最小偏向角 次数 1 2 3 方位 θ1 θ2 θ1 θ2 θ1 θ2 反射法 次数 左游标计数 226°31′ 346°42′ 213°55′ 333°55′ 261°37′ 381°45′ 左游标计数 28°19′ 79°09′ 21°28′ 72°35′ 45°10′ 96°35′ 右游标计数 46°31′ 166°40′ 33°57′ 153°56′ 81°37′ 201°46′ 右游标计数 208°02′ 259°09′ 201°29′ 252°36′ 225°10′ 276°36′ 顶角A 顶角A 60°4′ 59°59′ 60°4′ 60°2 ′
平均值
ຫໍສະໝຸດ Baidu
最小偏向角δm 最小偏向角δm 50°58′ 51°7′ 51°25′
平均值
51°9 ′
数据处理VBA代码（划线部分为注释） Function shuzhi(θ) '（分光计的调整与使用）角度转数值 Dim i, j, k i = Application.WorksheetFunction.Find("°", θ) j = Application.WorksheetFunction.Find("′", θ) 'k = Application.WorksheetFunction.Find("″", θ) shuzhi = Val(Mid(θ, 1, i - 1)) + Val(Mid(θ, i + 1, j - 1)) / 60 '+ Val(Mid(θ, j + 1, k - 1)) / 60 End Function Function dj(leftθ1, leftθ2, rightθ1, rightθ2) '（分光计的调整与使用）算顶角 a = shuzhi(leftθ1) b = shuzhi(leftθ2) c = shuzhi(rightθ1) d = shuzhi(rightθ2) dj = jiao(Abs(a - b) / 4 + Abs(c - d) / 4) End Function Function pxj(leftθ1, leftθ2, rightθ1, rightθ2) '（分光计的调整与使用）最小偏向角 a = shuzhi(leftθ1) b = shuzhi(leftθ2) c = shuzhi(rightθ1) d = shuzhi(rightθ2) pxj = jiao(Abs(a - b) / 2 + Abs(c - d) / 2) End Function Function jiao(θ) '（分光计的调整与使用）数值转角度 jiao = Int(θ) & "°" & Int((θ - Int(θ)) * 60) & "′" End Function Function pjz(j1, j2, j3) ' '（分光计的调整与使用）平均值 a = shuzhi(j1) b = shuzhi(j2) c = shuzhi(j3) pjz = jiao((a + b + c) / 3) End Function
meiyuanchunxue@163.com
方位 θ1 1 θ2 θ1 2 θ2 θ1 3 θ2 测量最小偏向角 次数 1 2 3 方位 θ1 θ2 θ1 θ2 θ1 θ2 反射法 次数 左游标计数 226°31′ 346°42′ 213°55′ 333°55′ 261°37′ 381°45′ 左游标计数 28°19′ 79°09′ 21°28′ 72°35′ 45°10′ 96°35′ 右游标计数 46°31′ 166°40′ 33°57′ 153°56′ 81°37′ 201°46′ 右游标计数 208°02′ 259°09′ 201°29′ 252°36′ 225°10′ 276°36′ 顶角A 顶角A 60°4′ 59°59′ 60°4′ 60°2 ′
平均值
ຫໍສະໝຸດ Baidu
最小偏向角δm 最小偏向角δm 50°58′ 51°7′ 51°25′
平均值
51°9 ′
数据处理VBA代码（划线部分为注释） Function shuzhi(θ) '（分光计的调整与使用）角度转数值 Dim i, j, k i = Application.WorksheetFunction.Find("°", θ) j = Application.WorksheetFunction.Find("′", θ) 'k = Application.WorksheetFunction.Find("″", θ) shuzhi = Val(Mid(θ, 1, i - 1)) + Val(Mid(θ, i + 1, j - 1)) / 60 '+ Val(Mid(θ, j + 1, k - 1)) / 60 End Function Function dj(leftθ1, leftθ2, rightθ1, rightθ2) '（分光计的调整与使用）算顶角 a = shuzhi(leftθ1) b = shuzhi(leftθ2) c = shuzhi(rightθ1) d = shuzhi(rightθ2) dj = jiao(Abs(a - b) / 4 + Abs(c - d) / 4) End Function Function pxj(leftθ1, leftθ2, rightθ1, rightθ2) '（分光计的调整与使用）最小偏向角 a = shuzhi(leftθ1) b = shuzhi(leftθ2) c = shuzhi(rightθ1) d = shuzhi(rightθ2) pxj = jiao(Abs(a - b) / 2 + Abs(c - d) / 2) End Function Function jiao(θ) '（分光计的调整与使用）数值转角度 jiao = Int(θ) & "°" & Int((θ - Int(θ)) * 60) & "′" End Function Function pjz(j1, j2, j3) ' '（分光计的调整与使用）平均值 a = shuzhi(j1) b = shuzhi(j2) c = shuzhi(j3) pjz = jiao((a + b + c) / 3) End Function
meiyuanchunxue@163.com