本工具主要用于分析LTE掃頻測試中的干擾情況。

使用VBA開發(fā)，希望對從事LTE網(wǎng)絡清頻工作的工程師有用。。

涉及到相關算法如下：

'計算場強最大的十個的平均值
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

'從數(shù)組中找到最大的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


'從數(shù)組中找到最大的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


'合并數(shù)組索引為字符串
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