Traduzione codice TW Zig Zag invincible

• 12/03/2024 at 11:53 AM #241033
  Msport71

  Buongiorno,

  chiedo cortese traduzione del seguente codice.

  Grazie per l’aiuto.

  https://www.tradingview.com/script/zdjIB3Bh-Zigzag3-Invincible3/

   

  

  Msport71

  Participant

  Topics: 56

  Replies: 110

  Been thanked: 7 times
  12/03/2024 at 3:44 PM #241036
  Iván

  Ecco qui:

  //------------------------------------// //PRC_ZigZag and SR //version = 0 //03.12.2024 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------// // Inputs //------------------------------------// prd=18 showSR=1 //Show Support and Resistance//Boolean// 0 means false 1 means True showLabels=1 //Boolean// 0 means false 1 means True showZZ=1 //Boolean// 0 means false 1 means True //------------------------------------// // 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") 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") 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 1 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 then drawpoint($zigzagidx[i],$zigzag[i],2)coloured("blue",100) 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

  //------------------------------------// //PRC_ZigZag and SR //version = 0 //03.12.2024 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------// // Inputs //------------------------------------// prd=18 showSR=1 //Show Support and Resistance//Boolean// 0 means false 1 means True showLabels=1 //Boolean// 0 means false 1 means True showZZ=1 //Boolean// 0 means false 1 means True //------------------------------------// // 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") 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") 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 1 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 then drawpoint($zigzagidx[i],$zigzag[i],2)coloured("blue",100) endif next endif //------------------------------------// return

  

  Iván

  Moderator

  Topics: 0

  Replies: 1403

  Been thanked: 526 times
  12/03/2024 at 3:51 PM #241038
  Msport71

  Grazie e mille, gentilissimo !

  

  Msport71

  Participant

  Topics: 56

  Replies: 110

  Been thanked: 7 times
  12/04/2024 at 6:21 PM #241110
  Renero

  Ciao, ho provato incollare il programma ma mi da errore alla riga 64,67,68. Dallo screenshot si può vedere tutto. Cosa posso fare?

  

  Renero

  Participant

  Topics: 4

  Replies: 7

  Been thanked: 0 times
  12/04/2024 at 8:11 PM #241122
  robertogozzi

  Probabilmente non l’hai copiato tra gli indicatori.

  Dalla foto mi sembra che tu l’abbia messo erroneamente tra le strategie.

   

  1 user thanked author for this post.

  Iván

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17488

  Been thanked: 4253 times
  12/05/2024 at 8:39 AM #241130
  Renero

  robertogozzi wrote:

  Probabilmente non l’hai copiato tra gli indicatori.

  Dalla foto mi sembra che tu l’abbia messo erroneamente tra le strategie.

  Eh si proprio così errore mio.

  Grazie e buona giornata

  

  Renero

  Participant

  Topics: 4

  Replies: 7

  Been thanked: 0 times
  03/08/2025 at 10:13 AM #244769
  Msport71

  Buongiorno,

   

  cortesemente si potrebbe aggiungere all’indicatore il conteggio dei punti che intercorrono tra uno swing e l’altro?

   

  Grazie e mille per l’aiuto

  

  Msport71

  Participant

  Topics: 56

  Replies: 110

  Been thanked: 7 times
  03/18/2025 at 2:50 PM #245013
  robertogozzi

  Eccolo:

  //------------------------------------// //PRC_ZigZag and SR //version = 0 //03.12.2024 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------// // Inputs //------------------------------------// prd=18 showSR=1 //Show Support and Resistance//Boolean// 0 means false 1 means True showLabels=1 //Boolean// 0 means false 1 means True showZZ=1 //Boolean// 0 means false 1 means True ONCE PrevSwing = 0 ONCE CurrSwing = 0 //------------------------------------// // 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") 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") 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 PrevSwing = 0 CurrSwing = 0 for i=t-1 downto 1 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 then PrevSwing = CurrSwing CurrSwing = $zigzag[i] Difference = CurrSwing - PrevSwing drawpoint($zigzagidx[i],$zigzag[i],2)coloured("blue",100) Offset = (range*0.5) myPRICE = $zigzag[i] + Offset IF Difference <= 0 THEN myPRICE = $zigzag[i] - Offset ENDIF drawtext("#Difference#",$zigzagidx[i],myPRICE,dialog,bold,10) coloured("Fuchsia") 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

  //------------------------------------// //PRC_ZigZag and SR //version = 0 //03.12.2024 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------// // Inputs //------------------------------------// prd=18 showSR=1 //Show Support and Resistance//Boolean// 0 means false 1 means True showLabels=1 //Boolean// 0 means false 1 means True showZZ=1 //Boolean// 0 means false 1 means True ONCE PrevSwing = 0 ONCE CurrSwing = 0 //------------------------------------// // 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") 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") 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 PrevSwing = 0 CurrSwing = 0 for i=t-1 downto 1 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 then PrevSwing  = CurrSwing CurrSwing  = $zigzag[i] Difference = CurrSwing - PrevSwing drawpoint($zigzagidx[i],$zigzag[i],2)coloured("blue",100) Offset     = (range*0.5) myPRICE    = $zigzag[i] + Offset IF Difference <= 0 THEN myPRICE    = $zigzag[i] - Offset ENDIF drawtext("#Difference#",$zigzagidx[i],myPRICE,dialog,bold,10) coloured("Fuchsia") endif next endif //------------------------------------// return

  Per variare la distanza del testo sostituisci alla riga 98 il valore 0.5 con un altro valore (0, 0.1, 1, 1.2, ecc…) a tuo piacimento.

  Per variare la grandezza del testo sostituisci alla riga 103 il valore 10 con un altro valore (6, 11, 20, ecc…) a tuo piacimento.

   

   

  1 user thanked author for this post.

  Iván

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17488

  Been thanked: 4253 times
  03/18/2025 at 2:58 PM #245014
  robertogozzi

  Per cambiare i colori puoi usare i nomi (o i codici) indicati in questa tabella https://cloford.com/resources/colours/500col.htm.

   

  1 user thanked author for this post.

  Msport71

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17488

  Been thanked: 4253 times
  03/18/2025 at 5:25 PM #245019
  Msport71

  grazie e mille, gentilissimo.

  1 user thanked author for this post.

  robertogozzi

  

  Msport71

  Participant

  Topics: 56

  Replies: 110

  Been thanked: 7 times
• Author
  Posts