Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:系统自带自定义函数出错

1楼
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

 

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

2楼
王锋 发表于:2013/5/3 22:08:32
直接跟系统里自带的这个自定义函数对比一下看看到底什么地方出了异常
共2 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.01563 s, 2 queries.