Entropy indicator conversion code mq5 to prorealtime

• 05/17/2018 at 2:43 PM #70706
  abd78

  The entropy is the measure of the disorder of the system. The entropy is calculated using the Maximum Entropy Method.

  If we try to evaluate it according to its indicative attributes without paying much attention to its code, we will find out that it is an ordinary unnormalized oscillator and it is possible to apply to it all appropriate technical analysis methods. The indicator was presented in two variants – as a line (Entropy.mq5) and as a multicolored histogram (ColorEntropy.mq5).

  https://www.mql5.com/en/code/397
  thank you

  

  abd78

  Participant

  Topics: 15

  Replies: 76

  Been thanked: 0 times
  05/17/2018 at 4:01 PM #70718
  Nicolas

  This Entropy indicator is converted, here is the code:

  numbars=14 sumx = 0 sumx2=0 avgx =0 rmsx = 0.0 for j=0 to numbars do r=Log(Close[j]/Close[j+1]) sumx=sumx+r sumx2=sumx2+(r*r) next if(numbars=0) then avgx=Close rmsx=0.0 else avgx=sumx/numbars rmsx=Sqrt(sumx2/numbars) endif P = ((avgx/rmsx)+1)/2.0 G = P * Log(1+rmsx) + (1-P) * Log(1-rmsx) return G style(line,2),0 coloured(100,100,100) style(dottedline,1),0.00001 coloured(100,100,100) style(dottedline,1),-0.00001 coloured(100,100,100) style(dottedline,1)

  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

  numbars=14   sumx = 0 sumx2=0 avgx =0 rmsx = 0.0   for j=0 to numbars do   r=Log(Close[j]/Close[j+1])   sumx=sumx+r sumx2=sumx2+(r*r)   next   if(numbars=0) then avgx=Close rmsx=0.0 else   avgx=sumx/numbars rmsx=Sqrt(sumx2/numbars) endif   P = ((avgx/rmsx)+1)/2.0   G = P * Log(1+rmsx) + (1-P) * Log(1-rmsx)     return G style(line,2),0 coloured(100,100,100) style(dottedline,1),0.00001 coloured(100,100,100) style(dottedline,1),-0.00001 coloured(100,100,100) style(dottedline,1)

   

  1 user thanked author for this post.

  abd78

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4739 times
• Author
  Posts