Modifica indicatore Fractals zig-zag

• 11/07/2024 at 11:39 AM #240055
  Msport71

  Buongiorno,

  Vorrei chiedere la cortesia di modificare l’indicatore in oggetto, affinché invece degli Square indichi la differenza in punti tra ogni top e Bottom.

  Grazie e mille  per l’aiuto.

   

  https://www.prorealcode.com/prorealtime-indicators/fractals-zigzag/

  

  Msport71

  Participant

  Topics: 48

  Replies: 101

  Been thanked: 3 times
  11/07/2024 at 1:11 PM #240062
  Iván

  Ciao. Eccolo qui:

  //---external parameters cp = 20 once lastpoint = 0 if high[cp] >= highest[2*cp+1](high) then LH = 1 else LH = 0 endif if low[cp] <= lowest[2*cp+1](low) then LL = -1 else LL = 0 endif if LH = 1 then TOPy = high[cp] TOPx = barindex[cp] endif if LL = -1 then BOTy = low[cp] BOTx = barindex[cp] endif if LH>0 and (lastpoint=-1 or lastpoint=0) then DRAWSEGMENT(lastX,lastY,TOPx,TOPy) COLOURED(200,0,0,255) diff=TOPy-lastY DRAWTEXT("Diff:#diff#",TOPx,TOPy,Dialog,Bold,15) coloured(0,200,0,255) lastpoint = 1 lastX = TOPx lastY = TOPy endif if LL<0 and (lastpoint=1 or lastpoint=0) then DRAWSEGMENT(lastX,lastY,BOTx,BOTy) COLOURED(0,200,0,255) diff=BOTy-lastY DRAWTEXT("Diff:#diff#",BOTx,BOTy,Dialog,Bold,15) coloured(200,0,0,255) lastpoint = -1 lastX = BOTx lastY = BOTy endif RETURN

  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

  //---external parameters cp = 20   once lastpoint = 0   if high[cp] >= highest[2*cp+1](high) then LH = 1 else LH = 0 endif   if low[cp] <= lowest[2*cp+1](low)  then LL = -1 else LL = 0 endif   if LH = 1 then TOPy = high[cp] TOPx = barindex[cp] endif   if LL = -1 then BOTy = low[cp] BOTx = barindex[cp] endif   if LH>0 and (lastpoint=-1 or lastpoint=0) then DRAWSEGMENT(lastX,lastY,TOPx,TOPy) COLOURED(200,0,0,255) diff=TOPy-lastY DRAWTEXT("Diff:#diff#",TOPx,TOPy,Dialog,Bold,15) coloured(0,200,0,255) lastpoint = 1 lastX = TOPx lastY = TOPy endif   if LL<0 and (lastpoint=1 or lastpoint=0) then DRAWSEGMENT(lastX,lastY,BOTx,BOTy) COLOURED(0,200,0,255) diff=BOTy-lastY DRAWTEXT("Diff:#diff#",BOTx,BOTy,Dialog,Bold,15) coloured(200,0,0,255) lastpoint = -1 lastX = BOTx lastY = BOTy endif   RETURN

  1 user thanked author for this post.

  Msport71

  

  Iván

  Moderator

  Topics: 0

  Replies: 1049

  Been thanked: 375 times
• Author
  Posts