# 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

应用于

Array 对象