帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2023-12-31

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-6-6 10:34 | 只看該作者

[發問] 如何判斷週期訊號?

我有一組數字fm1=32.2, fm2=44.3, fm3=63.0, fm4=79.1, fm5=95.2, fm6=111.3
我以陣列的型式將它寫入成
fm(0)=32.2
fm(1)=44.3
fm(2)=63.0
fm(3)=79.1
fm(4)=95.2
fm(5)=111.3
我要判斷這幾個數之間是否有一固定週期(間隔),並排除其中個別週期例如:
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
所以固定週期(間隔)應為16.1, 而fm(1)=44.3這個數顯然有偏差故將它排除
以上的例子直接看很容易判斷但是該如何讓成是來做判斷呢?
請板上的高手給個建議謝謝

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-6-6 12:11 | 只看該作者

回復 1# acdx
例子怪怪的若固定周期16.1，則 fm(1) 應為 46.9；fm(0) 應為 30.8
這樣兩個都有偏差都要排除?

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2023-12-31

3^#

發表於 2013-6-6 12:29 | 只看該作者

回復 2# stillfish00

原始數據為量測結果我的程式是為了協助分析
所以有些許誤差是可接受的(+/- 1.5以內可視為相同) 但是要排除個別的雜訊

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 96
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-6-6 15:06 | 只看該作者

回復 3# acdx

Sub nn()
Dim Ar()
k = 1.5 '容許誤差
fm = Array(32.2, 44.3, 63, 79.1, 95.2, 111.3) '常數陣列
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) '最常出現差值
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

複製代碼

學海無涯_不恥下問

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2023-12-31

5^#

發表於 2013-6-19 17:51 | 只看該作者

回復 4# Hsieh
我利用 n = Application.Mode(Ar) 來判斷最常出現的值
若是遇到整組數字無重複的值(無週期訊號時)程式則會出現error
這該如何修正呢?

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2013-6-20 14:56 | 只看該作者

回復 5# acdx
用回歸直線的方法排除差異過大的值，看看是否有幫助，
須注意這裡用的回歸直線是包含偏差值的資料所推出的直線，
所以deltaY值請自行斟酌

Sub Test()
Dim d, fm
Dim a, b, it
Dim deltaY
fm = Array(32.2, 44.3, 63, 79.1, 95.2, 111.3)
Set d = CreateObject("scripting.dictionary")
For i = 0 To UBound(fm)
d(i) = fm(i)
Next
'回歸直線 fm=ax+b
a = WorksheetFunction.Index(WorksheetFunction.LinEst(d.items, d.keys), 1)
b = WorksheetFunction.Index(WorksheetFunction.LinEst(d.items, d.keys), 2)
deltaY = 1.5 '與回歸線Y軸上的容許誤差
For Each it In d.keys
'排除誤差過大的值
If Abs((it * a + b) - d(it)) > deltaY Then d.Remove it
Next
MsgBox Join(d.items, ",")
Set d = Nothing
End Sub

複製代碼

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2023-12-31

7^#

發表於 2013-6-26 15:37 | 只看該作者

回復 6# stillfish00
後來我把它改成這樣也可以

Sub nn()
Dim Ar()
k = 1.5 '容許誤差
fm = Array(32.2, 44.3, 63, 79.1, 95.2, 111.3) '常數陣列
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) '最常出現差值
If IsNumeric(n) = False Then
n = 0
MsgBox "無週期訊號"
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

TOP