DMI indicator DI+ and DI-

• 05/26/2016 at 8:27 AM #8064
  deleted190722

  Hi,

  I need to create the DI+ and DI- indicators manually because I need to use them in lower TF.

  I need to use DI based on daily candles on a hour time frame.

  Does anyone knows how to build manually the DI+ and DI-?

  (I can after this transform the indicator to work for lower TF)

  Thanks

  david

   

  

  deleted190722

  Participant

  Topics: 8

  Replies: 80

  Been thanked: 6 times
  05/26/2016 at 9:07 AM #8079
  Nicolas

  Hi David, you remember me that someone ask me the same question some days ago. Didn’t have time already to code it. Find the right formula on internet is quiet hard, but here is the metastock one, that can be easily converted:

  ---

  ADX Raw

  {MetaStock code written by Equis and published in the Oct99 TASC}

  Periods:= Input(“Enter time periods”,1,100,14);

  PlusDM:= If(HIGH>Ref(HIGH,-1) AND

  LOW>=Ref(LOW,-1), HIGH-Ref(HIGH,-1),

  If(HIGH>Ref(HIGH,-1) AND LOW<Ref(LOW,-1)

  AND HIGH-Ref(HIGH,-1)>Ref(LOW,-1)-LOW,

  HIGH-Ref(HIGH,-1), 0));

  DIPlus:= 100 * Wilders(PlusDM,Periods) /

  ATR(Periods);

  MinusDM:= If(LOW<Ref(LOW,-1) AND

  HIGH<=Ref(HIGH,-1), Ref(LOW,-1)-LOW,

  If(HIGH>Ref(HIGH,-1) AND LOW<Ref(LOW,-1)

  AND HIGH-Ref(HIGH,-1)<Ref(LOW,-1)-LOW,

  Ref(LOW,-1)-LOW, 0));

  DIMinus:= 100 * Wilders(MinusDM,Periods) /

  ATR(Periods);

  DIDif:= Abs(DIPlus – DIMinus);

  DISum:= DIPlus + DIMinus;

  ADXRaw:= 100 * Wilders(DIDif/DISum, Periods);

  ---

  That’s a good exercise for your ProBuilder knowledge 🙂

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  05/26/2016 at 10:23 AM #8093
  deleted190722

  the DI+ and DI- can be calculated in this way:

   

  n=14 plusDM = MAX(DHIGH(0)-DHIGH(1), 0) minusDM = MAX(DLOW(1)-DLOW(0), 0) IF plusDM > minusDM THEN minusDM = 0 ENDIF IF plusDM < minusDM THEN plusDM = 0 ENDIF IF plusDM = minusDM THEN plusDM = 0 minusDM = 0 ENDIF plusDI = WILDERAVERAGE[n](plusDM) minusDI = WILDERAVERAGE[n](minusDM) Return plusDI, minusDI

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

  n=14   plusDM = MAX(DHIGH(0)-DHIGH(1), 0) minusDM = MAX(DLOW(1)-DLOW(0), 0)   IF plusDM > minusDM THEN minusDM = 0 ENDIF   IF plusDM < minusDM THEN plusDM = 0 ENDIF   IF plusDM = minusDM THEN plusDM = 0 minusDM = 0 ENDIF   plusDI = WILDERAVERAGE[n](plusDM) minusDI = WILDERAVERAGE[n](minusDM)   Return plusDI, minusDI

   

  The problem is how to do the wilderavarage of the PlusDM. It work in daily TF but if I reduce the TF to 1 hours the wilderavarage is done on the previus n Hours and not days…

   

  To do so we have to create also the wilderavarage by ourself…

   

  I am tring but with big fails for the moment…

   

  n=2 K = 1/n y=2/(n+1) ONCE Ema=0 ONCE plusDI=0 //EMA formula = price today * y + EMA yesterday * (1-y) //Wilder EMA formula = price today * K + EMA yesterday (1-K) FOR i=0 TO n DO plusDM = MAX(DHIGH(i)-DHIGH(i+1), 0) minusDM = MAX(DLOW(i+1)-DLOW(i), 0) IF plusDM > minusDM THEN minusDM = 0 ENDIF IF plusDM < minusDM THEN plusDM = 0 ENDIF IF plusDM = minusDM THEN plusDM = 0 minusDM = 0 ENDIF Ema = PlusDM*y + Ema*(1-y) PlusDI=plusDM*k + ema //Wilder EMA formula = plusDM(0)* K + EMA yesterday (1-K) NEXT //plusDI = WILDERAVERAGE[n](plusDM) //minusDI = WILDERAVERAGE[n](minusDM) Return PlusDI

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

  n=2 K = 1/n y=2/(n+1) ONCE Ema=0 ONCE plusDI=0 //EMA formula = price today * y + EMA yesterday * (1-y)     //Wilder EMA formula = price today * K + EMA yesterday (1-K)     FOR i=0 TO n DO   plusDM = MAX(DHIGH(i)-DHIGH(i+1), 0) minusDM = MAX(DLOW(i+1)-DLOW(i), 0)   IF plusDM > minusDM THEN minusDM = 0 ENDIF   IF plusDM < minusDM THEN plusDM = 0 ENDIF   IF plusDM = minusDM THEN plusDM = 0 minusDM = 0 ENDIF Ema = PlusDM*y + Ema*(1-y) PlusDI=plusDM*k + ema   //Wilder EMA formula = plusDM(0)* K + EMA yesterday (1-K) NEXT   //plusDI = WILDERAVERAGE[n](plusDM) //minusDI = WILDERAVERAGE[n](minusDM)   Return PlusDI

   

  

  deleted190722

  Participant

  Topics: 8

  Replies: 80

  Been thanked: 6 times
  05/26/2016 at 11:17 AM #8101
  Nicolas

  Because you use instruction of daily OHLC! 🙂

  You should replace your code with:

  plusDM = MAX(HIGH(0)-HIGH(1), 0) minusDM = MAX(LOW(1)-LOW(0), 0)

  1 2	plusDM = MAX(HIGH(0)-HIGH(1), 0) minusDM = MAX(LOW(1)-LOW(0), 0)

  So now you can use the wilderaverage instruction directly and not recode it all.

  Very nice work! BIG APPLAUSE!

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  05/26/2016 at 11:19 AM #8102
  Nicolas

  Oh sorry, I realize you were looking for the daily values, not the actual timeframe one.

  The big problem here is that your wilderaverage on n period give your result of the n period of the current timeframe.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  05/26/2016 at 11:38 AM #8105
  deleted190722

  yes Nicolas… that’s my issue 🙂

   

  The big Applause go to another users… I copied a little from him. but… our work is 99% copy, fix and paste! 🙂

  

  deleted190722

  Participant

  Topics: 8

  Replies: 80

  Been thanked: 6 times
  05/26/2016 at 12:10 PM #8114
  Nicolas

  Ok, maybe a trick to calculate correctly the daily values is to only consider to do it only if the current bar is include in a day that is not the same as the previous bar:

  n=14 plusDM = MAX(DHIGH(0)-DHIGH(1), 0) minusDM = MAX(DLOW(1)-DLOW(0), 0) if day[0]<>day[1] then IF plusDM > minusDM THEN minusDM = 0 ENDIF IF plusDM < minusDM THEN plusDM = 0 ENDIF IF plusDM = minusDM THEN plusDM = 0 minusDM = 0 ENDIF plusDI = WILDERAVERAGE[n](plusDM) minusDI = WILDERAVERAGE[n](minusDM) endif Return plusDI, minusDI

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  n=14   plusDM = MAX(DHIGH(0)-DHIGH(1), 0) minusDM = MAX(DLOW(1)-DLOW(0), 0)   if day[0]<>day[1] then IF plusDM > minusDM THEN minusDM = 0 ENDIF   IF plusDM < minusDM THEN plusDM = 0 ENDIF   IF plusDM = minusDM THEN plusDM = 0 minusDM = 0 ENDIF   plusDI = WILDERAVERAGE[n](plusDM) minusDI = WILDERAVERAGE[n](minusDM) endif   Return plusDI, minusDI

  But something still wrong in the returned values…

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  10/12/2016 at 3:58 PM #14777
  gregoire

  bonjour

  j essais de modifié le di pour le faire fonctionné avec les valeur de williams R % mais je bloque en tant que débutant, monindicateur me sort bien quelque chose mais rien a voir avec le di de base.

  besoin d un peu d aide merci

  

  gregoire

  Participant

  Topics: 23

  Replies: 101

  Been thanked: 7 times
• Author
  Posts