求解MinMaxError

這也是一個評估波動度的方法，假設共有A、B、C、D、E、F、G七筆資料，
由A開始，依據計算AB、AC、AD、AE、AF之間的距離，然後找出該組的最大距離亦即該組的MaxError，
然後依序對B資料計算BA、BC、BD、BE、BF、BG ...
最後在各組所計算出的MaxError數值，找出最小的值，此即為MinMaxError。以下提供Excel VBA程式碼參考

'波動度求解 minMaxError
'最小最大化離差值，最為資料重心位置，並以離差作為波動度的評估依據， 'Output = 1 求解離散資料均衡點、Output = 2 求解MinMaxError
Public Function minMaxErrorBP(ByVal InputData As Range, ByVal TickScale As Variant, ByVal Output As Variant) As Variant

Dim ArrDataX() As Variant
Dim DataCount As Variant
Dim ii As Variant
ArrDataX = InputData
DataCount = InputData.Count
Dim Max As Variant
Dim Min As Variant
Max = ArrDataX(1, 1)
Min = ArrDataX(1, 1)
minMaxErrorBP = ArrDataX(1, 1)

'利用迴圈求解最大、最小值
For ii = 1 To DataCount
If ArrDataX(ii, 1) > Max Then Max = ArrDataX(ii, 1)
If ArrDataX(ii, 1) < Min Then Min = ArrDataX(ii, 1)
Next 'For ii = 1 To DataCount

Dim HLrange As Variant
HLrange = Max - Min

Dim MaxError As Variant
Dim MaxErrorTemp As Variant
Dim jj As Variant
Dim MinMaxError As Variant
Dim TempBP As Variant

MinMaxError = HLrange

For ii = 0 To HLrange Step TickScale
TempBP = Min + ii
MaxError = 0

For jj = 1 To DataCount
MaxErrorTemp = Abs(ArrDataX(jj, 1) - TempBP)
'Debug.Print "ii", ii, "jj", jj, "TempBP", TempBP
If MaxErrorTemp > MaxError Then MaxError = MaxErrorTemp
'Debug.Print "MaxError:", MaxError
Next 'For jj = 1 To DataCount

If MaxError < MinMaxError Then
MinMaxError = MaxError
If Output = 1 Then minMaxErrorBP = Min + ii
If Output = 2 Then minMaxErrorBP = MinMaxError
End If
Next 'For ii = 0 To HLrange Step TickScale

'Application.Volatile True
'無論何時工作表中任意單格重新計算，都會強制計算該函數
'Application.Volatile False
'只有在該函數的一個或多個參數發生改變時，才會重新計算該函數
'Debug.Print ArrDataX(1, 1), ArrDataX(2, 1)
'Debug.Print "DataCount:", DataCount, "TickScale:", TickScale
'Debug.Print "Max:", Max, "Min:", Min, "HLrange:", HLrange, "minMaxErrorBP:", minMaxErrorBP
End Function