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

TTOP

为什么调不出来？哪里不对啊

nopain

试试这个

1. Params
   
2.         NumericSeries Price(10);
   
3.         Numeric Length(10);
   
4.         Numeric Weight(1);
   
5. Vars
   
6.         NumericSeries HalfHourNo;
   
7.         NumericSeries MinsIndex;
   
8.         NumericSeries SMAValue;
   
9. Begin
   
10.         HalfHourNo = Date*100 + Hour*2+IntPart(Minute/30);
    
11.         If(HalfHourNo!=HalfHourNo[1])
    
12.         {
    
13.                 MinsIndex = 1;
    
14.         }Else
    
15.         {
    
16.                 MinsIndex = MinsIndex[1] + 1;
    
17.         }
    
18.       
    
19.         if (SMAValue[MinsIndex]==InvalidNumeric)
    
20.         {
    
21.                 SMAValue = Summation(Price, Length)/Length;
    
22.         }else
    
23.         {
    
24.                 SMAValue = (SMAValue[MinsIndex]*(Length-Weight)+Price*Weight)/Length;
    
25.         }
    
26.         Return SMAValue;
    
27. End

复制代码

TTOP

谢谢

TTOP

:) :)

[ 本帖最后由 TTOP 于 2009-8-3 15:17 编辑 ]

83857729

日线中调用周线MACD数据的代码。

1、新建用户函数WeekXAverage，返回值为数值型，代码如下：
复制内容到剪贴板代码:
//------------------------------------------------------------------------
// 简称: WeekXAverage
// 名称: 日线转化周线的指数平均
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//------------------------------------------------------------------------

Params
        NumericSeries Price(10);
        Numeric Length(10);
Vars
        NumericSeries WeeksNo;
        NumericSeries WeekDays;
        BoolSeries FirstWeek(True);
        Numeric sFcactor;
        NumericSeries XAvgValue;
Begin
        If(CurrentBar == 0)
        {
                FirstWeek = True;
        }Else
        {
                FirstWeek = FirstWeek[1];
                If(FirstWeek &&  Weekday==1)
                {
                        FirstWeek = False;
                }
        }
        
        WeeksNo = IntPart(DateDiff(19700105,Date)/7);
        If(WeeksNo!=WeeksNo[1])
        {
                WeekDays = 1;
        }Else
        {
                WeekDays = WeekDays[1] + 1;
        }

        sFcactor = 2 / ( Length + 1 );
        if (FirstWeek)
        {
                XAvgValue = Price;
        }else
        {
                XAvgValue = XAvgValue[WeekDays] + sFcactor * ( Price - XAvgValue[WeekDays] ) ;
        }        
    Return XAvgValue;
End

//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2008/04/08 20:23
// 版权所有        nopain
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

nopain

在写个指标调用这个函数

Nichole

Begin
        If(CurrentBar == 0)
        {
                FirstDay = True;
        }Else
        {
                FirstDay = FirstDay[1];
                If(FirstDay &&  (Hour/24)==0) // 这句不太理解...
                {
                        FirstDay = False;
                }
        }
        
        DaysNo = Date*100 + Hour;  
        If(DaysNo!=DaysNo[1])
        {
                DaysIndex = 1;
        }Else
        {
                DaysIndex = DaysIndex[1] + 1;
        }

        sFcactor = 2 / ( Length + 1 );
        if (FirstDay)
        {
                XAvgValue = Price;
        }else
        {
                XAvgValue = XAvgValue[DaysIndex] + sFcactor * ( Price - XAvgValue[DaysIndex] ) ;
        }        
    Return XAvgValue;
End

nopain

试试下面的，尚未测试

1. Begin
   
2.         If(CurrentBar == 0)
   
3.         {
   
4.                 FirstDay = True;
   
5.         }Else
   
6.         {
   
7.                 FirstDay = FirstDay[1];
   
8.                 If(FirstDay &&  (Hour==9)） // 找到第一个完整的开始日期
   
9.                 {
   
10.                         FirstDay = False;
    
11.                 }
    
12.         }
    
13.         
    
14.         DaysNo = Date；
    
15.         If(DaysNo!=DaysNo[1])
    
16.         {
    
17.                 DaysIndex = 1;
    
18.         }Else
    
19.         {
    
20.                 DaysIndex = DaysIndex[1] + 1;
    
21.         }
    
22. 
    
23.         sFcactor = 2 / ( Length + 1 );
    
24.         if (FirstDay)
    
25.         {
    
26.                 XAvgValue = Price;
    
27.         }else
    
28.         {
    
29.                 XAvgValue = XAvgValue[DaysIndex] + sFcactor * ( Price - XAvgValue[DaysIndex] ) ;
    
30.         }        
    
31.     Return XAvgValue;
    
32. End

复制代码

Nichole

恩 见识老大速度！
编译后可以通过，但指标调用却没数据。。。。

Nichole

o(∩_∩)o...哈哈 OK啦！