测量程序第五章.pptVIP

测量程序设计 第五章 测量通用子程序设计 §5-1 奇进偶舍 为避免凑整误差的积累，测量计算中的凑整规则如下： 一、规则：大于5进，小于5舍；正好是5，前面为奇数则进1，为偶数则舍去。 二、奇进偶舍子程序 Public Function NNN(ByVal NM As Double, ByVal BB As Integer) BYVAL NM 的好处？ Dim BNM As Double Dim C As Integer C = Sgn(NM) NM = Abs(NM) BNM = Fix((NM * 10 ^ BB - Fix(NM * 10 ^ BB) + 10 ^ (-11)) * 10 ^ 10) / 10 ^ 10 关键 Select Case BNM Case Is 0.5 NNN = Fix(NM * 10 ^ BB + 1) / 10 ^ BB Case Is 0.5 NNN = Fix(NM * 10 ^ BB) / 10 ^ BB Case Is = 0.5 If (Fix(NM * 10 ^ BB) - 10 * Fix(NM * 10 ^ (BB - 1))) Mod 2 = 0 Then NNN = Fix(NM * 10 ^ BB) / 10 ^ BB Else: NNN = Fix(NM * 10 ^ BB + 1) / 10 ^ BB End If End Selec NNN = C * NNN End Function §5-2 DEGREE与RADIAN的互化 计算机程序设计里三角函数所用的角值，必须为弧度值。 输入程序和程序输出的是人们习惯的度.分分秒秒格式。 一、DEGREE化RADIAN程序 Public Function jzh(ByVal angle As Double) As Double Dim a As Double, B As Double, c As Double, d As Double Dim ang As Double, sign As Integer ang = Abs(angle) + 0.0000000000001: sign = Sgn(angle) a = Int(ang): B = (ang - a) * 100#: c = Int(B): d = (B - c) * 100# jzh = sign * (a + c / 60# + d / 3600#) * M_RAD End Function 二、RADIAN化DEGREE程序 Public Function hzj(ByVal radian As Double) As Double Dim a As Double, B As Double, c As Double, d As Double, e As Double Dim ang As Double, sign As Integer ang = Abs(radian) + 0.00000000000001: sign = Sgn(radian): a = ang * M_DEG B = Int(a): c = (a - B) * 60: d = Int(c): e = (c - d) * 60 hzj = sign * (B + d / 100# + e / 10000#) End Function §5-3 坐标方位角推算 §5-4 坐标正、反算 一、坐标反算的公式 特殊情况： 二、坐标反算程序 Public Function A(ByVal X1 As Double, ByVal X2 As Double, ByVal Y1 As Double, ByVal Y2 As Double) As Double Dim DX, DY As Double DX = X2 - X1: DY = Y2 - Y1 If DX = 0 Then Select Case DY Case Is 0 A = PI / 2: Exit Function Case Is 0 A = PI * 3 / 2: Exit Function End Select End If A = Atn(DY / DX) If DX 0 Then A = A + PI: Exit Function If DY 0 And DX 0 Then A = A + 2 * PI End Function 测量程序