您现在的位置：程序化交易>> 期货公式>> 金字塔等>> 金字塔知识>>正文内容

vba数学函数　[金字塔]

作者：金字塔 来源：cxh99.com 发布时间：2017年05月02日 点击数： 　【收藏到本网的会员中心】
  • 咨询内容： 请问用vba编程计算两个商品相关性要怎么做？在vba编程信息里没有找到相关函数是不是要自己定义还是可以调用金字塔函数？

     

  • 金字塔客服： Array 对象

     

     

    Alike        计算该数组与其他Array对象之间的相似系数,例如Alike(ar)表示求与ar数组对象之间的相似度

    Releate      计算该数组与其他Array对象之间的相关系数

     

  • 用户回复： Sub TLStart1()  call marketdata.RegReportNotify("P05","DQ")  call marketdata.RegReportNotify("Y05","DQ")End Sub
    Sub MARKETDATA_ReportNotify(ReportData)  Set Report1 = marketdata.GetReportData("P05","DQ")  Set Report2 = marketdata.GetReportData("Y05","DQ")    Set histroydata1 = MarketData.GetHistoryData("P05","DQ",0)    Set histroydata2 = MarketData.GetHistoryData("Y05","DQ",0)
        Dim data     Set data = CreateObject("Stock.Array")        For i =0 to 149        data.AddBack(histroydata1.Close(histroydata1.count-i))        next        if data.count>150 then        ata.removeat(0)    end if 
        Dim data1     Set data1 = CreateObject("Stock.Array")        For i =0 to 149        data1.AddBack(histroydata2.Close(histroydata2.count-i))        next        if data1.count>150 then        data1.removeat(0)    end if 
    '相关性计算corr = data.releate(data1)  application.MsgOut  Cdate(time)& ",相关性:" & corr 


    Set d1 = nothing '释放对象Set d2 = nothing 
    End Sub    请问为什么输出的相关性数值都是1呢？是不是这么计算是错误的

     

  • 网友回复：

    MarketData 对象

     

    HistoryDataMode   历史数据处理处理模式 0默认值,GetHistoryData，GetHistoryDataByDate 方法取到的对象为共享模式;1为独立模式,打开不同品种可以分别处理各自的数据,数据处理完毕后要调用DestroyHistoryData方法销毁内存缓冲区.

     

  • 网友回复： 明白了，还有一个问题，就是数组元素如何监控？用application.msgout data(0)输出显示对象不支持

 

有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友

可联系技术人员 QQ: 511411198  点击这里给我发消息进行 有偿 编写！（不贵！点击查看价格！）


【字体：小 大】【打印文章】【查看评论】

相关文章

    没有相关内容

栏目导航

 本月热门排行

 用户常看内容