# Releate 方法
Releate(Array)
计算该数组与其他Array对象之间的相关系数
说明:参数Array中的数组数量必须是要与本数组中的数量一致,否则将无法计算出结果
参数
参数 | 说明 |
---|---|
Array | 另一个数组的用来计算相关系数的数据 |
示例
Sub Test()
'创建一个变量
Dim d1
'创建Array外部对象,将对象实例置变量d中
Set d1 = CreateObject("Stock.Array")
Set Data1 = MarketData.GetHistoryData("IF07","ZJ",5)
If Data1.Count < 10 Then
Set d1 = nothing '释放对象
Exit Sub
End if
'由于GetHistoryData只能返回一个HistoryData对象,因此需要这里读出一个保存一个到数组中
'取最近10个交易日的数据做相关系数判断
'将收盘价数据置数组中
For i =1 to 10
d1.AddBack(Data1.Close(Data1.Count-i))
Next
'创建一个变量
Dim d2
'创建Array外部对象,将对象实例置变量d中
Set d2 = CreateObject("Stock.Array")
Set Data2 = MarketData.GetHistoryData("IF09","ZJ",5)
If Data2.Count < 10 Then
Set d1 = nothing '释放对象
Set d2 = nothing
Exit Sub
End if
For i =1 to 10
d2.AddBack(Data2.Close(Data2.Count-i))
Next
MsgBox d1.Releate(d2)
Set d1 = nothing '释放对象
Set d2 = nothing
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
应用于