DataConvert跨周期的问题

richroad

DataConvert(High,"min",60,"high");
这个函数能够返回小时k线上的最高值。

我需要拿到上一个小时k线上的最高值，是按以下的方式获取吗？
DataConvert(High[1],"min",60,"high");

好像的得到的值不对

谢谢

pepsi

按照 我的DataConvert函数得出的收盘价永远是当前图表中K线的收盘价，求管理员解释。
  下载 (32.64 KB)

2 分钟前
我的源代码如下
Params
        
Vars
        NumericSeries Line1;
        NumericSeries Line2;
        NumericSeries M5Close;
Begin
        M5Close = DataConvert(Close,"min",60,"close");
        Line1   = Average(Close,10);
        Line2   = Average(M5Close,10);
        PlotNumeric("Line1",Line1);
        PlotNumeric("Line2",Line2);
        Commentary(text(M5Close));
        Commentary("dataConvert="+text(DataConvert(Close,"min",60,"close")));

End

Ransoros

回复 1# richroad


    1. 老规矩，新建数据转换函数transMindata:

Params
        NumericSeries Price(1);
        numeric nMinSet(5);
        numeric minsAgo(0);
Vars
        NumericSeries barCnt;
        NumericSeries minData;
        numeric i;
        numeric j;
        numeric nindex(0);
Begin
        if (IntPart(minute%nMinSet)==0)
        {
                barCnt=1;
        }Else
        {
                barCnt=barCnt+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

  2. 设置函数的参数为high,60,1

  3.在你调用一小时最高值时，先使用dataconvert将数据转换成60分钟数据,保存为myHigh，然后调用transmindata(myHigh,60,1)，得到你要的。

Ransoros

回复 2# pepsi


    按照 我的DataConvert函数得出的收盘价永远是当前图表中K线的收盘价，求管理员解释。
  下载 (32.64 KB)

2 分钟前
我的源代码如下
Params
        
Vars
        NumericSeries Line1;
        NumericSeries Line2;
        NumericSeries M5Close;
Begin
        M5Close = DataConvert(Close,"min",60,"close");
        Line1   = Average(Close,10);
        Line2   = Average(M5Close,10);
        PlotNumeric("Line1",Line1);
        PlotNumeric("Line2",Line2);
        Commentary(text(M5Close));
        Commentary("dataConvert="+text(DataConvert(Close,"min",60,"close")));

End



dataconvert函数将每个周期内的数据都归一化，若要求60min的均价，除了用到楼上的transmindata函数外，需要添加另一个函数average_transMins:

params
      numericseries price(1);
      numeric length(60);
vars
      numeric sumValue(0);
      numeric meanValue;
      numeric i;
begin
      for i=0 to length-1
      {
          sumValue=sumValue+transMinsData(price,length,i);
      }
      meanValue=sumValue/length;
      return meanValue;
end

liq77

谢谢楼上相助！
测试了一下，好像求均价的问题还未解决。
average_transMins的代码似乎有问题，一是从一分钟（或N分钟）数据转换时考虑了整点切分，而上述求60分钟的均值时笼统地除以60不妥；二是即使从一分钟转成5分钟，数据也对不上。。。

Params
        
Vars
        NumericSeries Line1;
        NumericSeries Line2;
        NumericSeries myave;
                NumericSeries myclose;
Begin
      
                Myclose= DataConvert(close,"min",5,"close");
        myave  = transmindata(myclose,5,0);
               
                Line1  = average_transMins(myave,10);
        Line2  = transmindata(myclose,5,1);
        PlotNumeric("Line1",Line1);
        PlotNumeric("Line2",Line2);
      

End

rowa58

tb的源码现在对我来说还有难度

草根。

支持一下。。

feijian0000

Ransoros 发表于 2011-12-31 14:58
回复 1# richroad

为什么TransMinsData 编译不通过啊   返回值类型不对