Señalizador de distancia sar

• 09/17/2023 at 7:39 PM #221177
  Patrickgarridoo

  No se si me he explicado bien, creo que no tiene tanta complicación este código quiero decir que quiero lo siguiente: Cuando sea una tendencia alcista me de la distancia entre la sar y la sar anterior y solo los números de esa tendencia alcista y cuando el precio rebase la sar y cambie a tendencia bajista las sar se borren todas las distancias y empiece de nuevo a contarlas pero en este caso solo las bajistas y asi continuamente, es decir solo ver las distancias de la sar y la sar anterior pero de la tendencia de la sar actual. Un saludo

  

  Patrickgarridoo

  Participant

  Topics: 20

  Replies: 48

  Been thanked: 1 time
  09/26/2023 at 11:21 AM #221608
  Patrickgarridoo

  Alguien sabe algo?

  

  Patrickgarridoo

  Participant

  Topics: 20

  Replies: 48

  Been thanked: 1 time
  09/29/2023 at 9:11 AM #221780
  robertogozzi

  Ahi Esta:

  DEFPARAM DrawOnLastBarOnly = true ONCE r = 0 ONCE g = 0 ONCE b = 0 ONCE t = 255 ONCE p = 0 ONCE N = 0 psar = SAR[0.02,0.02,0.2] A = ABS(psar - psar[1]) IF psar > close then if psar[1] < close[1]THEN Distancia = 0 N = 0 p = 0 ELSE Distancia = max(Distancia, A) IF (Distancia > Distancia[1]) AND (Distancia[1] <> 0) THEN N = N + 1 $myBAR[N] = BarIndex $myPSAR[N] = PSAR + 30 p = 1 ENDIF ENDIF elsif psar < close then if psar[1] > close[1]THEN Distancia = 0 N = 0 p = 0 ELSE Distancia = max(Distancia, A) IF (Distancia > Distancia[1]) AND (Distancia[1] <> 0) THEN N = N + 1 $myBAR[N] = BarIndex $myPSAR[N] = PSAR - 30 p = -1 ENDIF ENDIF ENDIF IF N > 0 THEN IF p > 0 THEN r = 255 g = 0 FOR i = 1 TO N x1 = $myBAR[i] x2 = $myPSAR[i] x3 = x2 + 30 DrawText("↓",x1,x2,dialog,bold,30) coloured(r,g,b,t) DrawText("#A#",x1,x3+30,dialog,bold,10) //coloured(r,g,b,t) NEXT ELSIF p < 0 THEN r = 0 g = 255 FOR i = 1 TO N x1 = $myBAR[i] x2 = $myPSAR[i] x3 = x2 - 30 DrawText("↑",x1,x2,dialog,bold,30) coloured(r,g,b,t) DrawText("#A#",x1,x3-30,dialog,bold,10) //coloured(r,g,b,t) NEXT ENDIF ENDIF RETURN psar AS "Sar"

  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

  DEFPARAM DrawOnLastBarOnly = true ONCE r = 0 ONCE g = 0 ONCE b = 0 ONCE t = 255 ONCE p = 0 ONCE N = 0   psar   = SAR[0.02,0.02,0.2] A      = ABS(psar - psar[1]) IF psar > close then if psar[1] < close[1]THEN Distancia = 0 N         = 0 p         = 0 ELSE Distancia = max(Distancia, A) IF (Distancia > Distancia[1]) AND (Distancia[1] <> 0) THEN N          = N + 1 $myBAR[N]  = BarIndex $myPSAR[N] = PSAR + 30 p          = 1 ENDIF ENDIF elsif psar < close then if psar[1] > close[1]THEN Distancia = 0 N         = 0 p         = 0 ELSE Distancia = max(Distancia, A) IF (Distancia > Distancia[1]) AND (Distancia[1] <> 0) THEN N          = N + 1 $myBAR[N]  = BarIndex $myPSAR[N] = PSAR - 30 p          = -1 ENDIF ENDIF ENDIF IF N > 0 THEN IF p > 0 THEN r = 255 g = 0 FOR i = 1 TO N x1 = $myBAR[i] x2 = $myPSAR[i] x3 = x2 + 30 DrawText("↓",x1,x2,dialog,bold,30)      coloured(r,g,b,t) DrawText("#A#",x1,x3+30,dialog,bold,10) //coloured(r,g,b,t) NEXT ELSIF p < 0 THEN r = 0 g = 255 FOR i = 1 TO N x1 = $myBAR[i] x2 = $myPSAR[i] x3 = x2 - 30 DrawText("↑",x1,x2,dialog,bold,30)      coloured(r,g,b,t) DrawText("#A#",x1,x3-30,dialog,bold,10) //coloured(r,g,b,t) NEXT ENDIF ENDIF RETURN psar AS "Sar"

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16488

  Been thanked: 3650 times
  10/03/2023 at 3:20 PM #221996
  Patrickgarridoo

  Buenas Roberto en el codigo solo quiero que me dibuje las distancia entre la psar y el close de la tendencia actual, sin flechas ni nada de eso. Solo que me dibuje las distancias pero de la tendencia actual y cuando el precio rebase la psar se borre todo y empiece de nuevo a contar las nuevas distancias y asi sucesivamente. Un saludo

  

  Patrickgarridoo

  Participant

  Topics: 20

  Replies: 48

  Been thanked: 1 time
  10/11/2023 at 3:07 PM #222286
  robertogozzi

  Simplemente comenta las dos líneas donde DRAWTEXT imprime las flechas y solo verás la distancia.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16488

  Been thanked: 3650 times
• Author
  Posts