问题:在1分钟图上求日线

yml0396

1,先建一个内建函数,
Params
        NumericSeries Price(1);
        Numeric nMinSet(360);
        Numeric MinsAgo(2);
Vars
        NumericSeries barCnt;
        NumericSeries MinData;
        Numeric i;
        Numeric j;
        Numeric nIndex(0);
Begin
        If(IntPart((Hour*60+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
再建一个技术指标:
Params
        Numeric Length(10);
Vars
        Numeric MyOpen;
        Numeric MyHigh;
        Numeric MyLow;
        Numeric MyClose;
        NumericSeries MyAvgPrice;
        
        Numeric SumValue(0);
        Numeric Value1;
        Numeric i;
Begin
        MyOpen = DataConvert(Open,"min",360,"Open");
        MyHigh = DataConvert(High,"min",360,"High");
        MyLow = DataConvert(Low,"min",360,"Low");
        MyClose = DataConvert(Close,"min",360,"Close");
        MyAvgPrice = (MyOpen+MyHigh+MyLow+MyClose)*0.25;
        
        For i = Length-1 DownTo 0
        {
                Value1 = TransMinsData(MyAvgPrice,360,i);
                SumValue = SumValue + Value1;
        }
        PlotNumeric("MyLow ",MyLow );
        
                PlotNumeric("SumValue",SumValue/Length);
End
在图表上显示的结果不 对.

nopain

老大，一分钟求日线直接用AverageD就可以了

yml0396

这样改了还不对,干脆你把正确的贴出来.我也知道错在什么地方.
Params
        Numeric Length(10);
Vars
        Numeric MyOpen;
        Numeric MyHigh;
        Numeric MyLow;
        Numeric MyClose;
        NumericSeries MyAvgPrice;
        
                Numeric BB;
        
Begin
        MyOpen = DataConvert(Open,"Day",1,"Open");
        MyHigh = DataConvert(High,"Day",1,"High");
        MyLow = DataConvert(Low,"Day",1,"Low");
        MyClose = DataConvert(Close,"Day",1,"Close");
        MyAvgPrice = (MyHigh+MyLow)*0.5;
        
        bb=Average(MyAvgPrice,Length);
                PlotNumeric("MyOpen",MyOpen);
                PlotNumeric("bb",bb);

End

nopain

您的目的是什么，在1分钟线上求N天收盘价的均线？

yml0396

对,我想在分钟图上求N天的平均线.


知道你们很忙,不愿意麻烦你,可自己实在搞不好.拜托了.

小米

求N天的平均价可直接使用AverageD()

nopain

建一个技术指标，参数Length是表示N天

1. Params   
   
2.     Numeric Length(5);
   
3. Vars
   
4.     Numeric DaysAvgPrice;
   
5. Begin
   
6.     DaysAvgPrice = AverageD(1,Length);
   
7.     PlotNumeric("DaysAvgPrice",DaysAvgPrice );
   
8. End

复制代码

yml0396

nopain 先生这么快就解决了我的问题.如果我有时间参加你们这个周末的培训,到时间请你喝啤酒.

TB的功能也太强大了.需要好好学习.

[ 本帖最后由 yml0396 于 2008-7-23 15:54 编辑 ]