[TB源码] 飞狐DMA涵数改开拓者用户涵数[开拓者公式]

原文出自这里:

请编飞狐DMA函数.

函数： DMA(X,N)
别名： 动态移动平均

参数： X为数组，N为计算周期

返回： 返回数组
说明： 求X的动态移动平均。  
算法: 若Y=DMA(X,N) 则 Y=N*X+(1-N)*Y',其中Y'表示上一周期Y值,A必须小于1。
示例： DMA(CLOSE,（HIGH-LOW）/CLOSE)
表示求以该周期震幅为平滑因子的平均价

他上面的描述有点错误,应该是N必须小于1;
且N不是计算周期,我们还是看看文华的关于DMA的描述吧,这样清楚点:

很简单,我们可以看出,如果要写这个用户函数,则我们必须要先定义两个参数,
一个是上面的X,代表价格,我们用Price来表示,一个是N,代表动态因子,我们用Length来表示
当然,您可以用任意你喜欢的名字来表示;
好的,开始吧!
我们先新建一个用户函数,简称写DMA,名称写:求动态移动平均,分类选用户函数,模板任意(我选bool),然后确定;
出来如下东西:
Params
        Numeric Num(10);
Vars
        Bool Con1;
Begin
        Con1 = Close > Num;
        Return Con1;
End
我们把那些没用的东西删除,仅留下下面的内容
Params
      
Vars
      
Begin
      
End
在定义参数的时候我们首先考虑下参数的数据类型
我们先看价格参数,很明显我们应该把它定义为数值序列型,因为Close啊,Open...啊,都是数值序列型的
对于动态因子,同样简单,应该是数值型,于是,我们在Params关键字后面写定义参数的代码,如下:
Params
    NumericSeries Price(100);
    Numeric Length(0.5);
Vars
      
Begin
      
End
我们首先应该明白,我们写函数的目的是要他帮我们做点事情并且返回个什么东西给我们,所以我们
再定义一个变量ReturnValue,代表这个函数要返回的数据,到时候当这个函数执行完的时候我们就把这个东西返回给调用者 ( www.cxh99.com )
于是我们再在Vars后面定义一个变量ReturnVlaue,数据类型是数值序列型,因为每根K线上都有的,所以定义成序列型,代码如下:
Params
    NumericSeries Price(100);
    Numeric Length(0.5);
Vars
    NumericSeries ReturnValue(0);
Begin
      
End
好拉,现在我们开始写这个函数的工作代码了;
看看这个函数的意思,我们就很明白,今日的动态移动平均=昨日的动态移动平均*(1-动态因子)+今日的价格*动态因子;然后再把这个值Return返回就Ok了;
于是我们在Begin后面写代码:
Params
    NumericSeries Price(100);
    Numeric Length(0.5);
Vars
    NumericSeries ReturnValue(0);
Begin
    ReturnValue = ReturnValue[1]*(1-Length)+Price*Length;
    Return ReturnValue;
End

好了,这个函数就写好了啊,是不是very very 简单啊?
呵呵
但是细心的朋友可能会发现,这个函数还有点小问题,就是如果是第一根K线,那么这根K线的昨日的动态移动平均没有啊?
这样做是不是会出错啊?
对,非常对,会出错的啊,所以我们要先判断一下这根K线是不是第一根K线,用什么来判断是不是第一根K线呢?请看这个函数:
Integer BarStatus()
当前公式应用商品当前Bar的状态值，返回值0表示为第一个Bar，返回值为1表示为中间的普通Bar，返回值为2表示最后一个Bar。
呵呵,就用BarStatus这个函数,如果他返回0,就代表第一根K线啊
于是我们再改写完善上面的代码为:

1. //------------------------------------------------------------------------
   
2. // 简称: DMA
   
3. // 名称: 求动态移动平均
   
4. // 类别: 用户函数 QQ 1145508240
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         NumericSeries Price(100);
    
11.     Numeric Length(0.5);
    
12. Vars
    
13.         NumericSeries ReturnValue(0);
    
14. Begin
    
15.     If(BarStatus==0)
    
16.     {
    
17.        ReturnValue = Price;//如果是第一根K线就直接把Price赋值
    
18.     }
    
19.     Else
    
20.     {
    
21.        ReturnValue = ReturnValue[1]*(1-Length)+Price*Length;
    
22.     }
    
23.     Return ReturnValue;
    
24. End
    
25. 
    
26. //------------------------------------------------------------------------
    
27. // 编译版本        GS2004.06.12
    
28. // 用户版本        2007/11/03 11:57
    
29. // 版权所有
    
30. // 更改声明        TradeBlazer Software保留对TradeBlazer平台
    
31. //                        每一版本的TrabeBlazer公式修改和重写的权利
    
32. //------------------------------------------------------------------------

复制代码