以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://weistock.com/bbs/list.asp?boardid=2)
----  系统自带自定义函数出错  (http://weistock.com/bbs/dispbbs.asp?boardid=2&id=51641)

--  作者:ljact
--  发布时间:2013/5/3 20:39:15
--  系统自带自定义函数出错

系统自带自定义函数CU_MA1出错.

我按照教程,自编了序列模式下的公式,发现出错。

在公式处,我按教程输入:MA1:CU_MA1(c,5);没有其他的代码。

 

自定义函数,采用系统自带的,没有编辑,转贴如下:

\'????DòáD?£ê??????¨?ü?ú3¤?èμ?ê??ì???ù??
Function CU_MA1(Formula,CLOSE,CYC)
   CU_MA1=0

    \'·à?11?ê??e?ü?ú?£ê?ê±μ÷ó?
    If Formula.WorkMode = 0 Then
        Exit Function
    End If

    \'CLOSEêy×éêy?Y3¤?èò??¨?áó?Formula.DataSize-1?àμè
    DataCount = UBound(CLOSE)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

    \'?¨ò?ò???????·μ??μ?êy×é
    Dim ResultMa
    Redim ResultMa(DataCount)

    For i = Cyc-1 To Formula.DataSize-1
        Count = 0
        For k = i-(Cyc-1) To i
            Count = Count + CLOSE(k)
        Next
        ResultMa(i) = Count / Cyc
    Next

    \'·μ??ò???????íê±?μ??ù??êy×é
    CU_MA1 = ResultMa
End Function

 

结果无法画出均线。请问何处出错?


--  作者:王锋
--  发布时间:2013/5/3 22:08:32
--  
直接跟系统里自带的这个自定义函数对比一下看看到底什么地方出了异常