[µo°Ý] ¦p¦ó§PÂ_¶g´Á°T¸¹?

acdx

§Ú¦³¤@²Õ¼Æ¦rfm1=32.2, fm2=44.3, fm3=63.0, fm4=79.1, fm5=95.2, fm6=111.3
§Ú¥H°}¦Cªº«¬¦¡±N¥¦¼g¤J¦¨
fm(0)=32.2
fm(1)=44.3
fm(2)=63.0
fm(3)=79.1
fm(4)=95.2
fm(5)=111.3
§Ú­n§PÂ_³o´X­Ó¼Æ¤§¶¡¬O§_¦³¤@©T©w¶g´Á(¶¡¹j),¨Ã±Æ°£¨ä¤¤­Ó§O¶g´Á ¨Ò¦p:
fm(1)-fm(0)=12.1
fm(2)-fm(1)=18.7
fm(3)-fm(2)=16.1
fm(4)-fm(3)=16.1
fm(5)-fm(4)=16.1
©Ò¥H©T©w¶g´Á(¶¡¹j)À³¬°16.1, ¦Ófm(1)=44.3³o­Ó¼ÆÅãµM¦³°¾®t¬G±N¥¦±Æ°£
¥H¤Wªº¨Ò¤lª½±µ¬Ý«Ü®e©ö§PÂ_ ¦ý¬O¸Ó¦p¦óÅý¦¨¬O¨Ó°µ§PÂ_©O?
½ÐªO¤Wªº°ª¤âµ¹­Ó«Øij ÁÂÁÂ

acdx

¦^´_ 2# stillfish00


­ì©l¼Æ¾Ú¬°¶q´úµ²ªG §Úªºµ{¦¡¬O¬°¤F¨ó§U¤ÀªR
©Ò¥H¦³¨Ç³\»~®t¬O¥i±µ¨üªº(+/- 1.5¥H¤º¥iµø¬°¬Û¦P) ¦ý¬O­n±Æ°£­Ó§OªºÂø°T

acdx

¦^´_ 4# Hsieh
§Ú§Q¥Î n = Application.Mode(Ar) ¨Ó§PÂ_³Ì±`¥X²{ªº­È
­Y¬O¹J¨ì¾ã²Õ¼Æ¦rµL­«½Æªº­È(µL¶g´Á°T¸¹®É)µ{¦¡«h·|¥X²{error
³o¸Ó¦p¦ó­×¥¿©O?

acdx

¦^´_ 6# stillfish00
«á¨Ó§Ú§â¥¦§ï¦¨³o¼Ë¤]¥i¥H

Sub nn()
Dim Ar()
k = 1.5 '®e³\»~®t
fm = Array(32.2, 44.3, 63, 79.1, 95.2, 111.3) '±`¼Æ°}¦C
Set d = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(fm)
If i > 0 Then
ReDim Preserve Ar(s)
Ar(s) = fm(i) - fm(i - 1)
s = s + 1
End If
   d(i) = fm(i)
Next
n = Application.Mode(Ar) '³Ì±`¥X²{®t­È
If IsNumeric(n) = False Then
    n = 0
    MsgBox "µL¶g´Á°T¸¹"
   Exit sub
End If
For i = LBound(fm) + 1 To UBound(fm) - 1
   If d(i) - d(i - 1) < n - k Or d(i + 1) - d(i) > n + k Then
   d.Remove i
   End If
Next
MsgBox Join(d.items, Chr(10))
End Sub