Help with code please ADX DMI with EMA

• 01/30/2017 at 11:04 PM #23170
  prttrader

  Hello all, only just found this site, have been using PRT for a few years now. Would anyone know how to code ADX/Directional movement but using exponential averages instead of wilders smooth averages. I basically want the directional movement DI+ and Di – with ADX line how it is in PRT now but with exponential averages used instead of wilders. Been struggling to do this for a long time, any help would be greatly appreciated.

   

  Thanks

  

  prttrader

  Participant

  Topics: 1

  Replies: 3

  Been thanked: 0 times
  01/31/2017 at 11:29 AM #23225
  Nicolas

  Please find below a quick fix to get the ADX and Directional Movement Index in the same window, calculated with Exponential Moving Average instead of Wilder’s Average.

  Wilders smoothing formula is almost like EMA, for your information. A bit more smoothed though.

  Here is the code:

  p=14 plusDM = MAX(HIGH-HIGH[1], 0) minusDM = MAX(LOW[1]-LOW, 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 = exponentialaverage[p](plusDM)//WILDERAVERAGE[p](plusDM) minusDI = exponentialaverage[p](minusDM)//WILDERAVERAGE[p](minusDM) DM = (plusDI-minusDI)/pointsize DX = ABS(plusDI - minusDI) / (plusDI + minusDI) * 100 myADX = exponentialaverage[p](DX)//wilderAverage[p](DX) Return DM*10,myADX

  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

  p=14   plusDM = MAX(HIGH-HIGH[1], 0) minusDM = MAX(LOW[1]-LOW, 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 = exponentialaverage[p](plusDM)//WILDERAVERAGE[p](plusDM) minusDI = exponentialaverage[p](minusDM)//WILDERAVERAGE[p](minusDM)   DM = (plusDI-minusDI)/pointsize   DX = ABS(plusDI - minusDI) / (plusDI + minusDI) * 100 myADX = exponentialaverage[p](DX)//wilderAverage[p](DX)   Return DM*10,myADX

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  01/31/2017 at 11:55 AM #23235
  prttrader

  Thank you very much for your reply, what is the original code for the directional movement indicator in PRT?

   

  Thanks

  

  prttrader

  Participant

  Topics: 1

  Replies: 3

  Been thanked: 0 times
  01/31/2017 at 12:45 PM #23247
  Nicolas

  This one but without any of the ADX formula (lines 24 and 25) and with the Wilders average instructions I commented with //

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  01/31/2017 at 1:21 PM #23253
  prttrader

  Thank you for your reply. I’m new to the coding so struggling a bit. I loaded up this code and it has the adx but what i was looking for was for it to look like the one in the screenshot but calculated on the exponential with just DI+, DI- and ADX. I’m probably missing something obvious but thanks again for your reply.

  

  prttrader

  Participant

  Topics: 1

  Replies: 3

  Been thanked: 0 times
  01/31/2017 at 2:38 PM #23281
  Nicolas

  Oh ok, so you don’t need DMI but only DI+ and DI-, so please find below the modified code:

  p=14 plusDM = MAX(HIGH-HIGH[1], 0) minusDM = MAX(LOW[1]-LOW, 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 = exponentialaverage[p](plusDM)//WILDERAVERAGE[p](plusDM) minusDI = exponentialaverage[p](minusDM)//WILDERAVERAGE[p](minusDM) //DM = (plusDI-minusDI)/pointsize DX = ABS(plusDI - minusDI) / (plusDI + minusDI) myADX = exponentialaverage[p](DX)//wilderAverage[p](DX) Return myADX as "ADX",plusDI coloured(200,0,0) as "DI+",minusDI coloured(0,200,0) as "DI-"

  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

  p=14   plusDM = MAX(HIGH-HIGH[1], 0) minusDM = MAX(LOW[1]-LOW, 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 = exponentialaverage[p](plusDM)//WILDERAVERAGE[p](plusDM) minusDI = exponentialaverage[p](minusDM)//WILDERAVERAGE[p](minusDM)   //DM = (plusDI-minusDI)/pointsize   DX = ABS(plusDI - minusDI) / (plusDI + minusDI) myADX = exponentialaverage[p](DX)//wilderAverage[p](DX)   Return myADX as "ADX",plusDI coloured(200,0,0) as "DI+",minusDI coloured(0,200,0) as "DI-"

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  02/02/2017 at 9:52 PM #23704
  prttrader

  Thank you very much for this.

  

  prttrader

  Participant

  Topics: 1

  Replies: 3

  Been thanked: 0 times
• Author
  Posts