meiyuanchunxue@
平均值
最小偏向角δ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) Байду номын сангаасjz = jiao((a + b + c) / 3) End Function