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

samwjwj

Pain!!!!!!!!!

zzhong

我试了一下不用函数的表示法，好像基本一致：
Params
        Numeric Length(10);
Vars
        Numeric MyOpen;
        Numeric MyHigh;
        Numeric MyLow;
        Numeric MyClose;
        NumericSeries MyAvgPrice;
        
        Numeric SumValue(0);
        Numeric SumValue1(0);
        Numeric Value1;
        Numeric i;
Begin
        MyOpen = DataConvert(Open,"min",5,"Open");
        MyHigh = DataConvert(High,"min",5,"High");
        MyLow = DataConvert(Low,"min",5,"Low");
        MyClose = DataConvert(Close,"min",5,"Close");
        MyAvgPrice = (MyOpen+MyHigh+MyLow+MyClose)*0.25;
        
        For i = Length-1 DownTo 0
        {
                Value1 = TransMinsData(MyAvgPrice,5,i);
                SumValue = SumValue + Value1;
                SumValue1 = SumValue1 + MyAvgPrice[5*i] ;  //换一种表示法

        }
        PlotNumeric("AvgPrice",SumValue/Length);
        PlotNumeric("AvgPrice1",SumValue1/Length);     //新线
End

请版主看一下有没有问题？

nopain

应该还是有区别的，在5分钟未走完的过程中

zzhong

这样算走完了吧？

Params
        Numeric Mins(5);
        Numeric Length(10);
Vars
        Numeric MyOpen;
        Numeric MyHigh;
        Numeric MyLow;
        Numeric MyClose;
        NumericSeries MyAvgPrice;
        
        Numeric SumValue(0);
        Numeric i;
Begin
        if(IntPart(Minute%Mins)==0){
            MyOpen = DataConvert(Open,"min",Mins,"Open");
            MyHigh = DataConvert(High,"min",Mins,"High");
            MyLow = DataConvert(Low,"min",Mins,"Low");
            MyClose = DataConvert(Close,"min",Mins,"Close");
            MyAvgPrice = (MyOpen+MyHigh+MyLow+MyClose)*0.25;
         }
        else  MyAvgPrice=MyAvgPrice[1];
        
        For i = Length-1 DownTo 0
        {
                SumValue = SumValue + MyAvgPrice[i*Mins];
        }

        PlotNumeric("AvgPrice",SumValue/Length);
End

bjcifco

亲娘嘞 自己捣鼓了2礼拜总算明白这个程序什么意思了 哎 真费劲

李晓东

48楼，也给大家分享一下你的成佛感言吧！
另外我想从日线调入小时线数据，准确说我想知道当日最高价最低价谁先产生的。

nancy108

我想问下这个函数TransMinsData是不是
取出前 minsago个 以nMinSet为周期的数据

ivaniccy

原帖由 nopain 于 2008-4-6 19:02 发表
您上面的例子，应该执行i==1的分支。
即 j = 0;
nIndex = nIndex + BarCnt[0];
nIndex = 0 + 2;

按照老师的表述，那么返回值应该是 MinData[nIndex]= MinData[2];也不是1个5分钟前的数据啊？
当currentbar=12时，barcnt=3，那么：
nIndex = nIndex + BarCnt[0];
nIndex = 0 + 3; 返回值应该是 MinData[nIndex]= MinData[3];所取的值与currentbar=11取的值一样。
希望老师能详细讲解下。

thjyqr

复制内容到剪贴板
代码:
Params
        NumericSeries Price(1);
        Numeric nMinSet(5);
        Numeric MinsAgo(2);
Vars
        NumericSeries barCnt;
        NumericSeries MinData;
        Numeric i;
        Numeric j;
        Numeric nIndex(0);
Begin
        If(IntPart(Minute%nMinSet)==0)
        {
                barCnt = 1;
        }Else
        {
                barCnt = barCnt[1] + 1;
        }
        MinData = Price;
               
        If(MinsAgo == 0)
        {
                return MinData;
        }Else
        {
                For i = 1 To MinsAgo
                {
                        If( i == 1)
                        {        
                                j = 0;
                        }Else
                        {
                                j = j + BarCnt[j];                                
                        }
                        If (j > CurrentBar ) Return InvalidNumeric;
                        nIndex = nIndex + BarCnt[j];
                }
                Return MinData[nIndex];
        }
End

nopain写的这个函数我编译保存后，以后我随意用到比如：2分钟周期图表上我调用10分钟图标的开高低收均价的13周期平均值时值需要在函数的括号里改为10 就行吗？
TransMinsData(MyAvgPrice,10,i);
我怎么在两分钟图标上引用的跟10分钟图标上的均值对比不上呢？

newtimes

不太懂，1分钟取5分钟均线，支架5个1分钟不就可以了吗？这有什么意义？新手学习中，感谢各位分享！