本工具主要用于分析LTE扫频测试中的干扰情况。

使用VBA开发，希望对从事LTE网络清频工作的工程师有用。。

涉及到相关算法如下：

'计算场强最大的十个的平均值
Function MaxMeanX(arr() As Double, N As Integer) As Double
Dim meanv As Double
For i = LBound(arr) To N - 1
meanv = meanv + WorksheetFunction.Large(arr, i + 1)
Next
MaxMean = meanv / N
End Function


'计算场强最大的十个的平均值(Pair)
Function MaxMean(arr() As Pair, N As Integer) As Double
Dim tmp As Pair
For i = LBound(arr) To UBound(arr)
For j = i + 1 To UBound(arr)
If arr(i).value < arr(j).value Then
tmp = arr(i)
arr(i) = arr(j)
arr(j) = tmp
End If
Next
Next

Dim meanv As Double
For i = LBound(arr) To N - 1
meanv = meanv + arr(i).value
Next
MaxMean = meanv / N
End Function

'计算场强最大的前十个的频点号（有点问题，值相同的找到的为一个频点）
Function MaxRxFreq(arr() As Double, N As Integer) As String
Dim str As String
For i = LBound(arr) To N - 1
str = str & " " & WorksheetFunction.Match(WorksheetFunction.Large(arr, i + 1), arr, 0)
Next
MaxRxFreq = str
End Function

'从数组中找到最大的N个元素
Function FindMaxN(arr() As Integer, N As Integer) As Integer()
Dim tmp As Integer
Dim tmpArr() As Integer

For i = LBound(arr) To UBound(arr)
For j = i + 1 To UBound(arr)
If arr(i) < arr(j) Then
tmp = arr(i)
arr(i) = arr(j)
arr(j) = tmp
End If
Next
Next

For i = 0 To N - 1
ReDim Preserve tmpArr(i) As Integer
tmpArr(i) = arr(i)
Next
FindMaxN = tmpArr
End Function


'从数组中找到最大的N个元素的索引
Function FindMaxNindex(arr() As Pair, N As Integer) As Pair()
Dim tmp As Pair
Dim tmpArr() As Pair

For i = LBound(arr) To UBound(arr)
For j = i + 1 To UBound(arr)
If arr(i).value < arr(j).value Then
tmp = arr(i)
arr(i) = arr(j)
arr(j) = tmp
End If
Next
Next

For i = 0 To N - 1
ReDim Preserve tmpArr(i) As Pair
tmpArr(i) = arr(i)
Next
FindMaxNindex = tmpArr
End Function


'合并数组索引为字符串
Function CombinIndex(arr() As Pair, add As Integer) As String
Dim strIndex As String
For i = LBound(arr) To UBound(arr)
strIndex = strIndex & " " & arr(i).index + add
Next
CombinIndex = strIndex
End Function