用TB实现DMI指标！

k-i-n-d

tradeblazer 发表于 2007-10-20 15:23
使用界面如下：

根据书里移植而来的dmi指标，比较简单明了，不知道是不是原版的那样？

k-i-n-d

tradeblazer 发表于 2007-10-20 15:23
使用界面如下：

1. Params
   
2.         Numeric N(14);
   
3.         Numeric M(5);
   
4. Vars
   
5.         Numeric zdi;
   
6.         Numeric fdi;
   
7.         NumericSeries di1;
   
8.         NumericSeries di2;
   
9.         NumericSeries avgdi1;
   
10.         NumericSeries avgdi2;
    
11.         Numeric atr;
    
12.         Numeric adx;
    
13.         NumericSeries dx;
    
14. Begin
    
15.         di1 = High - High[1];
    
16.         di2 = Low[1] - Low;
    
17.         atr = AvgTrueRange(N);
    
18.        
    
19.         If( di1>0 && di1>di2 )
    
20.         {  
    
21.           zdi = di1;
    
22.           }
    
23.         Else
    
24.         {
    
25.           zdi = 0;
    
26.           }
    
27.         If( di2>0 && di2>di1 )
    
28.         {
    
29.           fdi = di2;
    
30.           }
    
31.         Else
    
32.         {
    
33.           fdi = 0;
    
34.           }
    
35.         avgdi1 = Average(zdi,n)/atr*100;
    
36.         avgdi2 = Average(fdi,n)/atr*100;
    
37.         dx = (Abs(avgdi2-avgdi1))/(avgdi1+avgdi2)*100;
    
38.     adx = Average(dx,m);
    
39.         PlotNumeric("adx",adx);
    
40.         PlotNumeric("多方",avgdi1);
    
41.         PlotNumeric("空方",avgdi2);
    
42. End

复制代码

k-i-n-d

请问这样是否可行?