跨周期情况下的均线计算。

yml0396

自己也试了好几次,星期天一直在捣鼓这个东东,搞不好.希望nopain 先生帮忙相助.

yml0396

再顶一下.
请您帮忙修改SMA的算法以支持跨周期,我实在是搞不好.拜托啦.

nopain

代码很麻烦，SMA并不会比MA好。所以建议还是直接用MA

MLGBZ18

楼主 我测试TRANSMINSDATA 函数为何出现错误提示：

RETURN语句的返回值类型与公式定义的返回值类型不符（这是我输入的，强烈希望程序中的出错信息可以复制 粘贴，以节省时间 ）

nopain

TransMinsData函数的返回值需要设置位数执型。在函数的属性中设置

f600624

原帖由 nopain 于 2008-7-18 16:49 发表
跨周期取得的数据，是不能直接用SMA进行计算的，要修改SMA的算法以支持跨周期。

看来跨周期要用所有的函数在那都是问题,版主看下能不能这样解决.
      打开同一品种两种不同周期的K线图(对不起,我还是习惯用这个名称),比如一个1分种和1个日线,在图中设一个关联交易选项,不选时二者的功能同现在完全一样,当选择时可将二都设为一主一从,比如设为1分钟为主,日线为从,那么日线的信号就不参加交易,只是给1分钟作参考,比如我要得到现在日K线上是单边多头、单边空头还是盘整,阻力位是多少等，在一个日线图上编写起来比在1分钟图上跨周期调用要简童得多，所需的K线数量也要小得多，可以把这些结果存在公共变量中供1分钟读取，这样实现跨周期比用数据转换函数要好得多。还可轻易实现跨品种调用。
   现在很多股票软件都能跨周期，它肯定不是用的你们这种方式，因为周期可能转换，但跨品种是不可能转换的，人家连跨品种都实现了，还会用这种方法实现跨同期么？

samwjwj

这是＂跨周期情况下的均线计算"的函数部分，请帮忙回答一下红色部分问题!!感谢！！
同时对本函数整体编程也有点模糊，是否从思路结构方面点拔一下！！
http://www.tradeblazer.net/forum/viewthread.php?tid=1996　　原贴！！
Params
        NumericSeries Price(1);
        Numeric nMinSet(5);
        Numeric MinsAgo(2);
Vars
        NumericSeries barCnt;// 定义和周期长度一致的Numeric型序列值变量BarCnt
        NumericSeries MinData;
        Numeric i;
        Numeric j;
        Numeric nIndex(0);
Begin
        If(IntPart(Minute%nMinSet)==0)
/* IntPart：Number 需要进行取整处理的实数,返回实数舍入后的整数值,
IntPart (8.9) = 8；IntPart (-8.9) = -9。Minute：获得当前Bar的分钟信息, 获得当前Bar的分钟信息，
格式为0-59之间的整数, 如果当前Bar的时间为11:34:21，Minute返回值为34．*/
        {
                barCnt = 1;
        }Else
        {
                barCnt = barCnt[1] + 1;
        }
　　　　 MinData = Price;//Ｐrice是参数，是不是就一直等于1呢,那么本句是不是把Minadata赋值为1
               
        If(MinsAgo == 0)// MinsAgo是参数，不是赋了2了吗？何时等于0呢???   
    {
                return MinData;//如果minsAgo等于0,返回MinData
        }Else
        {
                For i = 1 To MinsAgo
                {
                        If( i == 1)
                        {        
                                j = 0;
                        }Else
                        {
                                j = j + BarCnt[j];
                        }
                        If (j > CurrentBar ) Return InvalidNumeric;// InvalidNumeric: 返回数值型的无效值
                        nIndex = nIndex + BarCnt[j];
                }
                Return MinData[nIndex];
        }
End

nopain

1、MinData是把输入的参数值给保留下来。Price参数的值1代表参数默认值是1，实际调用的时候是一个序列变量，比如Close，Vol等。
2、MinsAgo参数默认值是2,有可能会被设置为0.　

samwjwj

TransMinsData的三个参数：
参数1：Price   要计算的数据源。
参数2：nMinSet 想按N分钟来处理，本例是5分钟，不能大于60。
参数3：MinsAgo 希望取多少个N分钟前的数据


Value1 = TransMinsData(MyAvgPrice,5,i)的i是不是MinsAgo的参数值?

另：
实在劳驾NOPAIN先生能把TransMinsData的语句能注释一下，看了三天了，还是很模糊！！
本人苦心钻研学习ＴＢ，只是底子薄，还望NOPAIN不吝赐教！！
真诚感谢NOPAIN的帮助！！

[ 本帖最后由 samwjwj 于 2008-10-22 23:27 编辑 ]

nopain

看不清楚是很正常的，只要会用这个公式就可以了。
没有必要关心细节的问题，要解释这个程序的原理也是比较麻烦的。
通过文字很难表述，当面都不太好说清楚。