ZigZag + condizione

• 10/29/2025 at 6:38 PM #253131
  Edisone

  Salve a tutti sto utilizzando lo script ZigZag di Iván González che allego. Avrei la necessità di evidenziare con un simbolo quando si verifica una sequenza specifica di valori, nello specifico: LL → HH → HL.
  È possibile implementarlo? Se sì, come potrei fare?

  Grazie in anticipo per l’aiuto!

  ZigZag

  //------------------------------------// //PRC_ZigZag and SR //version = 0 //03.12.2024 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------// // Inputs //------------------------------------// //prd=5 //showSR=1 //Show Support and Resistance//Boolean// 0 means false 1 means True //showLabels=1 //Boolean// 0 means false 1 means True //showZZ=0 //Boolean// 0 means false 1 means True atr=averagetruerange[14](close) //------------------------------------// // Calculate Pivot High and Low //------------------------------------// ph = high=highest[prd](high) pl = low=lowest[prd](low) //------------------------------------// // Calculate Direction //------------------------------------// if ph and pl=0 then dir=1 elsif pl and ph=0 then dir=-1 else dir=dir endif dirchanged=dir<>dir[1] //------------------------------------// // Calculate ZizZag levels and x //------------------------------------// if ph or pl then if dirchanged then if dir=1 then $zigzag[t+1]=highest[prd](high) $zigzagidx[t+1]=barindex $dir[t+1]=1 t=t+1 elsif dir=-1 then $zigzag[t+1]=lowest[prd](low) $zigzagidx[t+1]=barindex $dir[t+1]=-1 t=t+1 endif else if dir=1 and highest[prd](high)> $zigzag[t] then $zigzag[t]=highest[prd](high) $zigzagidx[t]=barindex elsif dir=-1 and lowest[prd](low)< $zigzag[t] then $zigzag[t]=lowest[prd](low) $zigzagidx[t]=barindex endif endif endif //------------------------------------// // Draw ZigZag and Levels //------------------------------------// $zigzag[0]=undefined $zigzagidx[0]=undefined if islastbarupdate then if showZZ then //Last ZigZag drawsegment($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],$zigzagidx[t],$zigzag[t]) endif if showSR and $dir[t]=1 then drawsegment($zigzagidx[t],$zigzag[t],barindex,$zigzag[t])style(dottedline,3)coloured("green") drawsegment($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],barindex,$zigzag[max(0,t-1)])style(dottedline,3)coloured("red") if $zigzag[t]<$zigzag[t-2] then drawtext("HL",$zigzagidx[t],$zigzag[t]+0.5*atr)coloured("green") else drawtext("HH",$zigzagidx[t],$zigzag[t]+0.5*atr)coloured("green") endif elsif showSR and $dir[t]=-1 then drawsegment($zigzagidx[t],$zigzag[t],barindex,$zigzag[t])style(dottedline,3)coloured("red") drawsegment($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],barindex,$zigzag[max(0,t-1)])style(dottedline,3)coloured("green") if $zigzag[t]<$zigzag[t-2] then drawtext("LL",$zigzagidx[t],$zigzag[t]-0.5*atr)coloured("red") else drawtext("LH",$zigzagidx[t],$zigzag[t]-0.5*atr)coloured("red") endif endif if showLabels then drawpoint($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],2)coloured("blue",100) drawpoint($zigzagidx[t],$zigzag[t],2)coloured("blue",100) endif //Draw all ZigZag for i=t-1 downto 3 do if showZZ then drawsegment($zigzagidx[max(0,i-1)],$zigzag[max(0,i-1)],$zigzagidx[i],$zigzag[i]) endif if showSR and $dir[i]=1 then drawsegment($zigzagidx[i],$zigzag[i],$zigzagidx[i+1],$zigzag[i])style(dottedline,3)coloured("green") drawsegment($zigzagidx[max(0,i-1)],$zigzag[max(0,i-1)],$zigzagidx[i],$zigzag[max(0,i-1)])style(dottedline,3)coloured("red") elsif showSR and $dir[i]=-1 then drawsegment($zigzagidx[i],$zigzag[i],$zigzagidx[i+1],$zigzag[i])style(dottedline,3)coloured("red") drawsegment($zigzagidx[max(0,i-1)],$zigzag[max(0,i-1)],$zigzagidx[i],$zigzag[max(0,i-1)])style(dottedline,3)coloured("green") endif if showLabels and $dir[i]=-1 and $zigzag[i]>$zigzag[i-2] then drawtext("LH",$zigzagidx[i],$zigzag[i]-0.5*atr)coloured("red") elsif showLabels and $dir[i]=-1 and $zigzag[i]<=$zigzag[i-2] then drawtext("LL",$zigzagidx[i],$zigzag[i]-0.5*atr)coloured("red") elsif showLabels and $dir[i]=1 and $zigzag[i]>$zigzag[i-2] then drawtext("HH",$zigzagidx[i],$zigzag[i]+0.5*atr)coloured("green") elsif showLabels and $dir[i]=1 and $zigzag[i]<=$zigzag[i-2] then drawtext("HL",$zigzagidx[i],$zigzag[i]+0.5*atr)coloured("green") endif next 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 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 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114

  //------------------------------------// //PRC_ZigZag and SR //version = 0 //03.12.2024 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------// // Inputs //------------------------------------// //prd=5 //showSR=1 //Show Support and Resistance//Boolean// 0 means false 1 means True //showLabels=1 //Boolean// 0 means false 1 means True //showZZ=0 //Boolean// 0 means false 1 means True atr=averagetruerange[14](close) //------------------------------------// // Calculate Pivot High and Low //------------------------------------// ph = high=highest[prd](high) pl = low=lowest[prd](low) //------------------------------------// // Calculate Direction //------------------------------------// if ph and pl=0 then dir=1 elsif pl and ph=0 then dir=-1 else dir=dir endif dirchanged=dir<>dir[1] //------------------------------------// // Calculate ZizZag levels and x //------------------------------------// if ph or pl then if dirchanged then if dir=1 then $zigzag[t+1]=highest[prd](high) $zigzagidx[t+1]=barindex $dir[t+1]=1 t=t+1 elsif dir=-1 then $zigzag[t+1]=lowest[prd](low) $zigzagidx[t+1]=barindex $dir[t+1]=-1 t=t+1 endif else if dir=1 and highest[prd](high)> $zigzag[t] then $zigzag[t]=highest[prd](high) $zigzagidx[t]=barindex elsif dir=-1 and lowest[prd](low)< $zigzag[t] then $zigzag[t]=lowest[prd](low) $zigzagidx[t]=barindex endif endif endif //------------------------------------// // Draw ZigZag and Levels //------------------------------------// $zigzag[0]=undefined $zigzagidx[0]=undefined if islastbarupdate then if showZZ then //Last ZigZag drawsegment($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],$zigzagidx[t],$zigzag[t]) endif if showSR and $dir[t]=1 then drawsegment($zigzagidx[t],$zigzag[t],barindex,$zigzag[t])style(dottedline,3)coloured("green") drawsegment($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],barindex,$zigzag[max(0,t-1)])style(dottedline,3)coloured("red") if $zigzag[t]<$zigzag[t-2] then drawtext("HL",$zigzagidx[t],$zigzag[t]+0.5*atr)coloured("green") else drawtext("HH",$zigzagidx[t],$zigzag[t]+0.5*atr)coloured("green") endif elsif showSR and $dir[t]=-1 then drawsegment($zigzagidx[t],$zigzag[t],barindex,$zigzag[t])style(dottedline,3)coloured("red") drawsegment($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],barindex,$zigzag[max(0,t-1)])style(dottedline,3)coloured("green") if $zigzag[t]<$zigzag[t-2] then drawtext("LL",$zigzagidx[t],$zigzag[t]-0.5*atr)coloured("red") else drawtext("LH",$zigzagidx[t],$zigzag[t]-0.5*atr)coloured("red") endif endif if showLabels then drawpoint($zigzagidx[max(0,t-1)],$zigzag[max(0,t-1)],2)coloured("blue",100) drawpoint($zigzagidx[t],$zigzag[t],2)coloured("blue",100) endif    //Draw all ZigZag for i=t-1 downto 3 do if showZZ then drawsegment($zigzagidx[max(0,i-1)],$zigzag[max(0,i-1)],$zigzagidx[i],$zigzag[i]) endif if showSR and $dir[i]=1 then drawsegment($zigzagidx[i],$zigzag[i],$zigzagidx[i+1],$zigzag[i])style(dottedline,3)coloured("green") drawsegment($zigzagidx[max(0,i-1)],$zigzag[max(0,i-1)],$zigzagidx[i],$zigzag[max(0,i-1)])style(dottedline,3)coloured("red") elsif showSR and $dir[i]=-1 then drawsegment($zigzagidx[i],$zigzag[i],$zigzagidx[i+1],$zigzag[i])style(dottedline,3)coloured("red") drawsegment($zigzagidx[max(0,i-1)],$zigzag[max(0,i-1)],$zigzagidx[i],$zigzag[max(0,i-1)])style(dottedline,3)coloured("green") endif        if showLabels and $dir[i]=-1 and $zigzag[i]>$zigzag[i-2] then drawtext("LH",$zigzagidx[i],$zigzag[i]-0.5*atr)coloured("red") elsif showLabels and $dir[i]=-1 and $zigzag[i]<=$zigzag[i-2] then drawtext("LL",$zigzagidx[i],$zigzag[i]-0.5*atr)coloured("red") elsif showLabels and $dir[i]=1 and $zigzag[i]>$zigzag[i-2] then drawtext("HH",$zigzagidx[i],$zigzag[i]+0.5*atr)coloured("green") elsif showLabels and $dir[i]=1 and $zigzag[i]<=$zigzag[i-2] then drawtext("HL",$zigzagidx[i],$zigzag[i]+0.5*atr)coloured("green") endif next endif //------------------------------------// return

  

  Edisone

  Participant

  Topics: 50

  Replies: 75

  Been thanked: 2 times
  10/30/2025 at 11:37 AM #253136
  JS

  Ciao,

  Non credo che le etichette siano corrette in questo indicatore…

  La “LH” e la “HL” sono state scambiate…

  

  JS

  Participant

  Topics: 29

  Replies: 2372

  Been thanked: 1416 times
  10/30/2025 at 11:39 AM #253137
  Iván

  Ciao. Aggiungi questo all’interno del ciclo finale:

  IF i >= 5 THEN isLH = ($dir[i] = -1 AND $zigzag[i] > $zigzag[i-2]) isHH = ($dir[i-1] = 1 AND $zigzag[i-1] > $zigzag[i-3]) isLL = ($dir[i-2] = -1 AND $zigzag[i-2] <= $zigzag[i-4]) IF isLH AND isHH AND isLL THEN DRAWTEXT("LL-HH-LH", $zigzagidx[i], $zigzag[i] - 1.5 * atr) COLOURED(0, 0, 255) ENDIF ENDIF

  1 2 3 4 5 6 7 8 9

  IF i >= 5 THEN   isLH = ($dir[i] = -1 AND $zigzag[i] > $zigzag[i-2]) isHH = ($dir[i-1] = 1 AND $zigzag[i-1] > $zigzag[i-3])   isLL = ($dir[i-2] = -1 AND $zigzag[i-2] <= $zigzag[i-4])     IF isLH AND isHH AND isLL THEN DRAWTEXT("LL-HH-LH", $zigzagidx[i], $zigzag[i] - 1.5 * atr) COLOURED(0, 0, 255) ENDIF ENDIF

  1 user thanked author for this post.

  robertogozzi

  

  Iván

  Moderator

  Topics: 0

  Replies: 1865

  Been thanked: 820 times
• Author
  Posts