Demand Index not working anymore in version 11

• 12/06/2019 at 10:13 AM #114311
  regus

  The indicator Demand Index  programmed by Nicolas does not seem to function in V11.

  https://www.prorealcode.com/wp-content/uploads/2017/01/Demand-index.itf

  

  regus

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  12/06/2019 at 12:07 PM #114327
  Nicolas

  Here the code with a fix (indicator is not mine). I just added a condition to be sure there are enough bars loaded for the indicator to calculate:

  /////////////////////////////////////////////////////// /////////////SIBBET DEMAND INDEX//////////////// ////////////////////////////////////////////////////// //{Programmed by David Fenstemaker} //{Omega Code downloaded from} //{http://www.purebytes.com/archives/omega/2002/msg04345.html} //{converted to MS by wabbit here} //http://www.stator-afm.com/demand-index.html //tradotto per PRT da tetsuo //{04 April 2008} //creare la variabile len(11) len=11 if barindex<=1 then volavg=volume else volavg=(volavg[1]*(len-1)+volume)/len endif if barindex>len then wcl=(high+low+close+close)/4 avgTR=average[len](highest[2](high)-lowest[2](low)) If Wcl <> 0 and wcl[1] <> 0 and AvgTR <> 0 and VolAvg <> 0 then wtcratio=(wcl-wcl[1])/(min(wcl,wcl[1])) volratio=volume/volavg const2=((wcl*3)/avgtr)*abs(wtcratio) const=volratio/exp(min(const2,88)) if wtcratio>0 then buypr=volratio sellpr=const else buypr=const sellpr=volratio endif buypress=(buypress[1]*(len-1)+buypr)/len sellpress=(sellpress[1]*(len-1)+sellpr)/len tempdi=1 if sellpress>buypress then sign=-1 else sign=1 endif if sellpress>buypress then tempDI=sign*(buypress/sellpress) else tempDI=sign*(sellpress/buypress) endif if tempDI<0 then myDMI=100*(-1-tempDI) else myDMI=100*(1-tempDI) endif endif endif return mydmi coloured(0,0,255) as "DEMAND INDEX", 0 /////////////////////////FINE///////////////////////////

  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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

  /////////////////////////////////////////////////////// /////////////SIBBET DEMAND INDEX//////////////// //////////////////////////////////////////////////////   //{Programmed by David Fenstemaker} //{Omega Code downloaded from} //{http://www.purebytes.com/archives/omega/2002/msg04345.html} //{converted to MS by wabbit here} //http://www.stator-afm.com/demand-index.html //tradotto per PRT da tetsuo //{04 April 2008}   //creare la variabile len(11)   len=11   if barindex<=1 then   volavg=volume else volavg=(volavg[1]*(len-1)+volume)/len endif   if barindex>len then wcl=(high+low+close+close)/4 avgTR=average[len](highest[2](high)-lowest[2](low))   If Wcl <> 0 and wcl[1] <> 0 and AvgTR <> 0 and VolAvg <> 0 then   wtcratio=(wcl-wcl[1])/(min(wcl,wcl[1])) volratio=volume/volavg   const2=((wcl*3)/avgtr)*abs(wtcratio)   const=volratio/exp(min(const2,88))   if wtcratio>0 then buypr=volratio sellpr=const   else buypr=const sellpr=volratio endif   buypress=(buypress[1]*(len-1)+buypr)/len sellpress=(sellpress[1]*(len-1)+sellpr)/len tempdi=1   if sellpress>buypress then sign=-1 else sign=1 endif   if sellpress>buypress then tempDI=sign*(buypress/sellpress) else tempDI=sign*(sellpress/buypress) endif   if tempDI<0 then myDMI=100*(-1-tempDI) else myDMI=100*(1-tempDI) endif endif endif   return mydmi coloured(0,0,255) as "DEMAND INDEX", 0   /////////////////////////FINE///////////////////////////

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4775 times
• Author
  Posts