1. Params
   
2.     Numeric Length(14);
   
3.     Numeric MM(6);
   
4.         Numeric Lots(1);
   
5.         Numeric LongLength(10);
   
6. Vars
   
7.         NumericSeries MTRvalue;
   
8.         NumericSeries Hvalue;
   
9.         NumericSeries Lvalue;
   
10.         Numeric DMPvalue ;
    
11.         Numeric DMMvalue ;
    
12.         Numeric PDI;
    
13.         Numeric MDI;
    
14.         Numeric mind;
    
15.         Numeric DPZ;
    
16.         Numeric DMZ;
    
17.         NumericSeries ADX(0);
    
18.         NumericSeries ADX1;
    
19.         NumericSeries PMDI;
    
20.        
    
21. Begin
    
22.        
    
23. //\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ DMI趨向指標 /////////////////////////////////
    
24.         mind = MAX( MAX( HIGH-LOW , ABS(HIGH-CLOSE[1] ) ), ABS(CLOSE[1]-LOW));
    
25.         If(CurrentBar > Length)//會是這里有問題嗎？
    
26.         {
    
27.                 MTRvalue = XAverage( mind ,Length);
    
28.                 Hvalue = High -High[1] ;
    
29.                 Lvalue = Low[1] - Low;
    
30. //若Y=EXPMEMA(X,N)則Y=[2*X+(N-1)*Y']/(N+1)，其中Y'表示上一周期Y值。       
    
31. //  DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);       
    
32.         if( Hvalue > 0 AND Hvalue > Lvalue)
    
33.         {
    
34.             DPZ = Hvalue;  //如果條件
    
35.         }else
    
36.         {
    
37.             DPZ = 0; //如果條件不成立...
    
38.         }
    
39.                 DMPvalue = XAverage( DPZ,Length );
    
40. //        DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);       
    
41.         if(Lvalue > 0 AND Lvalue > Hvalue)
    
42.         {
    
43.             DMZ = Lvalue; //如果條件
    
44.         }else
    
45.         {
    
46.             DMZ = 0; //如果條件不成立...
    
47.         }       
    
48.                 DMMvalue = XAverage( DMZ,Length );
    
49. //        PDI: DMP*100/MTR;
    
50. //  MDI: DMM*100/MTR;
    
51. //        ADX = EXPEMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM);
    
52.                 PDI = DMPvalue *100 / MTRvalue;
    
53.                 MDI = DMMvalue *100 / MTRvalue;
    
54.                 ADX = XAverage(ABS(MDI-PDI)/(MDI+PDI)*100,MM);
    
55.         }Else
    
56.         {
    
57.                 PDI = InvalidNumeric;
    
58.                 MDI = InvalidNumeric;
    
59.                 ADX = InvalidNumeric;
    
60.         }
    
61.        
    
62.         PlotNumeric("PDI",PDI);
    
63.         PlotNumeric("MDI",MDI);       
    
64.         PlotNumeric("ADX",ADX);
    
65. End

chairmin 發表于 2013-9-7 14:06
為什么在指數上不能顯示adx

xyof 發表于 2013-9-10 16:44
好的啊，有顯示