1. Params
   
2.             Numeric Length(14);
   
3.             NumericRef oDMIPlus;
   
4.             NumericRef oDMIMinus;
   
5.             NumericRef oDMI;
   
6.             NumericRef oADX;
   
7.             NumericRef oADXR;
   
8.             NumericRef oVolty;
   
9.     Vars
   
10.             NumericSeries sDMI;
    
11.             NumericSeries sADX;
    
12.             Numeric sADX0;                       
    
13.             NumericSeries sVolty;
    
14.             Numeric PlusDM;
    
15.             Numeric MinusDM;
    
16.             Numeric UpperMove;
    
17.             Numeric LowerMove;
    
18.             Numeric SumPlusDM(0);
    
19.             Numeric SumMinusDM(0);
    
20.             Numeric SumTR(0);
    
21.             NumericSeries AvgPlusDM;
    
22.             NumericSeries AvgMinusDM;
    
23.             Numeric SF;                        // smoothing factor
    
24.             Numeric Divisor;
    
25.             Numeric i;
    
26.             NumericSeries TRValue;
    
27.     Begin
    
28.             SF = 1/length;
    
29.             TRValue = TrueRange;
    
30.             If(CurrentBar == Length)
    
31.             {
    
32.                     for i = 0 To Length - 1
    
33.                     {
    
34.                             PlusDM = 0 ;
    
35.                             MinusDM = 0 ;
    
36.                             UpperMove = High[i] - High[ i + 1 ] ;
    
37.                             LowerMove = Low[ i + 1 ] - Low[i] ;
    
38.                             if (UpperMove > LowerMove and UpperMove > 0 )
    
39.                             {
    
40.                                     PlusDM = UpperMove;
    
41.                             }else if (LowerMove > UpperMove and LowerMove > 0)
    
42.                             {
    
43.                                     MinusDM = LowerMove ;
    
44.                             }
    
45.                             SumPlusDM = SumPlusDM + PlusDM ;
    
46.                             SumMinusDM = SumMinusDM + MinusDM ;
    
47.                             SumTR = SumTR + TRValue[i] ;
    
48.                     }
    
49.                     AvgPlusDM = SumPlusDM / Length ;
    
50.                     AvgMinusDM = SumMinusDM / Length ;
    
51.                     sVolty = SumTR / Length ;
    
52.             }Else if(CurrentBar > Length)
    
53.             {
    
54.                     PlusDM = 0 ;
    
55.                     MinusDM = 0 ;
    
56.                     UpperMove = High - High[1] ;
    
57.                     LowerMove = Low[1] - Low ;
    
58.                     if (UpperMove > LowerMove and UpperMove > 0 )
    
59.                     {
    
60.                             PlusDM = UpperMove;
    
61.                     }else if (LowerMove > UpperMove and LowerMove > 0 )
    
62.                     {
    
63.                             MinusDM = LowerMove ;
    
64.                     }
    
65.                     AvgPlusDM = AvgPlusDM[1] + SF * ( PlusDM - AvgPlusDM[1] ) ;
    
66.                     AvgMinusDM = AvgMinusDM[1] + SF * ( MinusDM - AvgMinusDM[1] ) ;
    
67.                     sVolty = sVolty[1] + SF * ( TRValue  - sVolty[1] ) ;
    
68.             }Else
    
69.             {
    
70.                     oDMIPlus = InvalidNumeric;
    
71.                     oDMIMinus = InvalidNumeric;
    
72.                     oDMI = InvalidNumeric;
    
73.                     oADX = InvalidNumeric;
    
74.                     oADXR = InvalidNumeric;
    
75.                     oVolty = InvalidNumeric;
    
76.                     Return True;
    
77.             }
    
78.            
    
79.             if (sVolty > 0)
    
80.             {
    
81.                     oDMIPlus = 100 * AvgPlusDM / sVolty ;
    
82.                     oDMIMinus = 100 * AvgMinusDM / sVolty ;
    
83.             }else
    
84.             {
    
85.                     oDMIPlus = 0 ;
    
86.                     oDMIMinus = 0 ;
    
87.             }
    
88. 
    
89.             Divisor = oDMIPlus + oDMIMinus ;
    
90.             if (Divisor > 0)
    
91.             {
    
92.                     sDMI = 100 * Abs( oDMIPlus - oDMIMinus ) / Divisor;
    
93.             }else
    
94.             {
    
95.                     sDMI = 0 ;
    
96.             }
    
97.                             sADX0 = Cum( sDMI ) / CurrentBar ;
    
98.             if(CurrentBar > 0)
    
99.             {
    
100.                     if (CurrentBar <= Length)
     
101.                     {
     
102.                             sADX = sADX0 ;
     
103.                             oADXR = ( sADX + sADX[ CurrentBar - 1 ] ) * 0.5 ;
     
104.                     }else  
     
105.                     {
     
106.                             sADX = sADX[1] + SF * ( sDMI - sADX[1] ) ;
     
107.                             oADXR = ( sADX + sADX[ Length - 1 ] ) * 0.5 ;
     
108.                     }
     
109.             }
     
110.             oVolty = sVolty;
     
111.             oDMI = sDMI;
     
112.             oADX = sADX;
     
113.             Return True;

nopain 發表于 2013-7-25 14:36
我們提供的代碼移植于TS，至于文華移植的代碼就不知道算法是什么樣的了