[發問] 如何判斷&quot;斜率值&quot;

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-6-5 13:48 | 只看該作者

[發問] 如何判斷"斜率值"

想請教各位大大們

如果我有一筆數據如下，

A B
1 1
2 1
3 2
4 3
5 4
6 5
7 6
8 5
9 4
10 3
11 2
12 1
13 1
14 1
15 2
16 3
17 4
18 5
19 6
20 5
21 4
22 3
23 2
24 1
25 1
26 1
27 1
28 1
29 1
30 2

畫出來圖如下，

我的問題是

假設我想以每3筆資料來看(ex. 123、234、345...)，求出每組的斜率值，

並假設如果斜率值連續5組都介於-0.5~0.5之間，則將值去除，如果沒有則繼續。

麻煩各位，謝謝。

※迴歸線斜率的計算方式是：

樓主熱帖

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

2^#

發表於 2014-6-6 13:23 | 只看該作者

各位大大能否幫忙我~~

stillfish00

大學生 Rank: 4

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

3^#

發表於 2014-6-6 16:25 | 只看該作者

回復 2# 518587
看不懂要算甚麼，你期望算完的值應該是如何?

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

4^#

發表於 2014-6-6 21:18 | 只看該作者

大大你好，

我想算出的是，判斷每組斜率值，如果斜率值連續5組都介於在-0.5~0.5之間的話，將值刪除，沒有的話則保留。

跪求各位大大ㄉ幫忙~~拜託

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

5^#

發表於 2014-6-7 21:55 | 只看該作者

假設說，

我以A列每三個為一組(ex. 123，234，345，一直依序下去)，
運用上面所提到的迴歸線斜率來算出每組的斜率值，
例如，A列(123)為一組
x為A列值，
y為B列值，
x平均為=(1+2+3)/3=2
y平均為=(1+1+2)/3=1.333

帶入公式則，

斜率值(b) = (((1-2)*(1-1.333))+((2-2)*(1-1.333))+((3-2)*(2-1.333))) / ((1-2)^2+(2-2)^2+(3-2)^2) = 0.5  (此為123組的斜率值)

A列(234)的斜率
x平均=(2+3+4)/3=3
y平均=(1+2+3)/3=2
234組斜率為 = (((2-3)*(1-2))+((3-3)*(2-2))+((4-3)*(3-2))) / ((2-3)^2+(3-3)^2+(4-3)^2) = 1  (此為234組的斜率值)
...依序往下

將所有斜率值算完後，
我要如何判斷，當我的斜率值如果連續超過5筆都介於在-0.5~0.5之間，則將這些值刪除，沒有的話則繼續判斷，直到結束。

如何寫成VBA  拜託各位幫忙了。

stillfish00

大學生 Rank: 4

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

6^#

發表於 2014-6-8 01:11 | 只看該作者

回復 5# 518587

Sub Test()
Dim i, cnt
With ActiveSheet.Range("C1:C28")
.FormulaR1C1 = "=COVAR(RC[-2]:R[2]C[-2],RC[-1]:R[2]C[-1])/VARP(RC[-2]:R[2]C[-2])"
.Value = .Value
For i = .Count To 1 Step -1
If Abs(.Cells(i).Value) <= 0.5 Then
cnt = cnt + 1
Else
If cnt >= 5 Then .Cells(i + 1).Resize(cnt).Delete xlShiftUp
cnt = 0
End If
Next
End With
End Sub

複製代碼

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

7^#

發表於 2014-6-8 14:46 | 只看該作者

回復 6# stillfish00

謝謝您的指點，

但我有個小疑惑

我如果AB列都增加了值之後，如下

A B
1 1
2 1
3 2
4 3
5 4
6 5
7 6
8 5
9 4
10 3
11 2
12 1
13 1
14 1
15 2
16 3
17 4
18 5
19 6
20 5
21 4
22 3
23 2
24 1
25 1
26 1
27 1
28 1
29 1
30 2
31 3
32 4
33 5
34 6
35 5
36 4
37 3
38 2
39 1
40 1
41 1
42 2

我將Range("C1:C28")改為Range("C1:C40")
他算出來的斜率值跟一開始算的不一樣，且沒辦法將斜率值刪除。
拜託幫我解決疑問，感謝感謝~

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

8^#

發表於 2014-6-9 19:38 | 只看該作者

大大們，幫小弟解決這個疑惑