请教：关于跨周期求MACD值的问题

linqian

非常感谢各位前辈，我想到的一些问题已经由各位都提出来了！

TTOP

原帖由 nopain 于 2008-4-8 21:26 发表
日线中调用周线MACD数据的代码。

1、新建用户函数WeekXAverage，返回值为数值型，代码如下：

//------------------------------------------------------------------------
// 简称: WeekXAverage
// 名称: 日线转化周 ...

这个用户函数，如果改成5分钟调用30分钟，如何改这个用户函数，改哪些地方？

nopain

5分钟调用30分钟MACD值的算法

1、新建一个用户函数，命名为HalfHourXAverage,返回值为数值型。代码如下：

1. Params
   
2.         NumericSeries Price(10);
   
3.         Numeric Length(10);
   
4. Vars
   
5.         NumericSeries HalfHourNo;
   
6.         NumericSeries MinsIndex;
   
7.         BoolSeries First30Min(True);
   
8.         Numeric sFcactor;
   
9.         NumericSeries XAvgValue;
   
10. Begin
    
11.         If(CurrentBar == 0)
    
12.         {
    
13.                 First30Min = True;
    
14.         }Else
    
15.         {
    
16.                 First30Min = First30Min[1];
    
17.                 If(First30Min && (Minute/30)==0)
    
18.                 {
    
19.                         First30Min = False;
    
20.                 }
    
21.         }
    
22. 
    
23.         HalfHourNo = Date*100 + Hour*2+IntPart(Minute/30);
    
24.         If(HalfHourNo!=HalfHourNo[1])
    
25.         {
    
26.                 MinsIndex = 1;
    
27.         }Else
    
28.         {
    
29.                 MinsIndex = MinsIndex[1] + 1;
    
30.         }
    
31. 
    
32.         sFcactor = 2 / ( Length + 1 );
    
33.         if (First30Min)
    
34.         {
    
35.                 XAvgValue = Price;
    
36.         }else
    
37.         {
    
38.                 XAvgValue = XAvgValue[MinsIndex] + sFcactor * ( Price - XAvgValue[MinsIndex] ) ;
    
39.         }
    
40.   
    
41.         Return XAvgValue;
    
42. End

复制代码

2、新建一个技术指标，假设为test。代码如下：

1. Params
   
2.         Numeric FastLength(12);
   
3.         Numeric SlowLength(26);
   
4.         Numeric MACDLength(9);
   
5. Vars
   
6.         NumericSeries MACDValue;
   
7.         NumericSeries AvgMACD;
   
8.         NumericSeries MACDDiff;
   
9.        
   
10. Begin
    
11.         MACDValue = HalfHourXAverage( Close, FastLength ) - HalfHourXAverage( Close, SlowLength );
    
12.         AvgMACD = HalfHourXAverage(MACDValue,MACDLength);
    
13.         MACDDiff = MACDValue - AvgMACD;
    
14.        
    
15.         PlotNumeric("MACDValue",MACDValue);
    
16.         PlotNumeric("AvgMACD",AvgMACD);
    
17.         If (MACDDiff >= 0)       
    
18.                 PlotNumeric("MACDDiff",MACDDiff,Red);
    
19.         Else
    
20.                 PlotNumeric("MACDDiff",MACDDiff,Green);
    
21.         PlotNumeric("零线",0);          
    
22. 
    
23. End

复制代码

TTOP

非常感谢nopain兄！

TTOP

上面的用户函数是XAverage，如何改成SMA，假设权重为8，不知道我改的对不对
Params
        NumericSeries Price(10);
        Numeric Length(10);
Vars
        NumericSeries HalfHourNo;
        NumericSeries MinsIndex;
        BoolSeries First30Min(True);
        Numeric sFcactor;
         NumericSeries SMAAvgValue;
Begin
        If(CurrentBar == 0)
        {
                First30Min = True;
        }Else
        {
                First30Min = First30Min[1];
                If(First30Min && (Minute/30)==0)
                {
                        First30Min = False;
                }

        }

        HalfHourNo = Date*100 + Hour*2+IntPart(Minute/30);

If(HalfHourNo!=HalfHourNo[1])
        {
                MinsIndex = 1;
        }Else
        {
                MinsIndex = MinsIndex[1] + 1;
        }

        sFcactor = 8 /Length ;
        if (First30Min)
        {
                SMAAvgValue = Price;
        }else
        {
                SMAAvgValue = SMAAvgValue[MinsIndex] + sFcactor * ( Price - SMAAvgValue[MinsIndex] *2) ;
        }
  
        Return SMAAvgValue;
End

nopain

这可不一样，算法需要重写。采取什么样的均线并无本质区别，不要纠结于这个。

TTOP

EMA(X,N),求X的N日指数平滑移动平均。算法：若Y=EMA(X,N)
则Y=[2*X+(N-1)*Y']/(N+1),其中Y'表示上一周期Y值。
例如：EMA(CLOSE,30)表示求30日指数平滑均价


SMA(X,N,M),求X的N日移动平均，M为权重。
算法: 若Y=SMA(X,N,M)
则 Y=[M*X+(N-M)*Y')/N,其中Y'表示上一周期Y值,N必须大于M。
例如：SMA(CLOSE,30,1)表示求30日移动平均价

这是大智慧给的算法，不知道TB的具体算法是否一样
能否给写一下5M调用30M的SMA用户函数

lh948

SMA在我们TB里算法是一样的

TTOP

5M调用30M SMA用户函数，nopain兄看看对不对，
Params
        NumericSeries Price(10);
        Numeric Length(10);
        Numeric Weight(1);
Vars
        NumericSeries HalfHourNo;
        NumericSeries MinsIndex;
        BoolSeries First30Min(True);
        NumericSeries SMAValue;
Begin
        If(CurrentBar == 0)
        {
                First30Min = True;
        }Else
        {
                First30Min = First30Min[1];
                If(First30Min && (Minute/30)==0)
                {
                        First30Min = False;
                }

        }

        HalfHourNo = Date*100 + Hour*2+IntPart(Minute/30);
        If(HalfHourNo!=HalfHourNo[1])
        {
                MinsIndex = 1;
        }Else
        {
                MinsIndex = MinsIndex[1] + 1;
        }

      
        if (First30Min)
        {
                SMAValue = Summation(Price, Length)/Length;
        }else
        {
                SMAValue = (SMAValue[MinsIndex]*(Length-Weight)+Price*Weight)/Length;
        }
  
        Return SMAValue;
End

nopain

应该是要求当时的N个周期30分钟价格的平均值。但不好取的情况，直接用5分钟的N周期平均代替也无妨
误差很小。