Traduzione indicatore da Tradingview a Pro Real Time

• 06/19/2024 at 4:12 PM #234106
  Hunry86

  Buonasera,

  come da titolo richiedo se è possibile tradurre il seguente indicatore https://www.tradingview.com/script/ls35sRAp-ZigZag-With-ATR-Filter-vnhilton/

  Allego il file con il codice.

  

  Hunry86

  Participant

  Topics: 6

  Replies: 16

  Been thanked: 0 times
  07/02/2024 at 10:23 AM #234692
  Iván

  Buenas. Ecco il codice dell'indicatore.

  pivotlength=3 //Check if pivotlength is odd if (pivotlength-1) mod 2 = 0 then pivotlength=pivotlength else pivotlength=pivotlength+1 endif atrmultiplier=2 atr=averagetruerange[(pivotlength-1)/2] once $pivotIndices[0]=barindex once $pivotValues[0]=high once $pivotTypes[0]=1 once z=0 //-----------------------------------------------------// //-----Looking for at least 1 instance where a pivot cannot be created noHighPivot=0//a pivot can be created noLowPivot=0//a pivot can be created for i=pivotlength-1 to 1 do //check left side bar if i>(pivotlength-1)/2 then if high[i]>high[i-1] then noHighPivot=1//a pivot cannot be created endif if low[i]<low[i-1] then noLowPivot=1//a pivot cannot be created endif endif //check middle and right side bar if i<=(pivotlength-1)/2 then if high[i]<high[i-1] then noHighPivot=1//a pivot cannot be created endif if low[i]>low[i-1] then noLowPivot=1//a pivot cannot be created endif endif next //-----------------------------------------------------// updatelast=0 if isset($pivotindices[z]) then if $pivotTypes[z]=1 then if not noHighpivot and high[(pivotlength-1)/2]>$pivotValues[z] then $pivotIndices[z]=barindex-((pivotLength-1)/2) $pivotValues[z]=high[(pivotLength-1)/2] $pivotVolume[z]=summation[max(1,($pivotIndices[z]-$pivotIndices[max(0,z-1)]))](volume) updatelast=1 endif if not noLowPivot and abs(low[(pivotlength-1)/2]-$pivotValues[z])>=atr*atrMultiplier and (barindex-(pivotlength-1)/2) <> $pivotIndices[z] and low[(pivotlength-1)/2]<$pivotValues[z] then $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=LOW[(pivotLength-1)/2] $pivotTypes[z+1]=-1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif else if not noLowpivot and low[(pivotlength-1)/2]<$pivotValues[z] then $pivotIndices[z]=barindex-((pivotLength-1)/2) $pivotValues[z]=low[(pivotLength-1)/2] $pivotVolume[z]=summation[max(1,($pivotIndices[z]-$pivotIndices[max(0,z-1)]))](volume) updatelast=1 endif if not noHighPivot and abs(high[(pivotlength-1)/2]-$pivotValues[z])>=atr*atrMultiplier and (barindex-(pivotlength-1)/2) <> $pivotIndices[z] and high[(pivotlength-1)/2]>$pivotValues[z] then $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=high[(pivotLength-1)/2] $pivotTypes[z+1]=1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif endif else //If it will be the first Pivot if not noHighPivot then $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=high[(pivotLength-1)/2] $pivotTypes[z+1]=1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif if not noLowPivot then $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=LOW[(pivotLength-1)/2] $pivotTypes[z+1]=-1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif endif //Get Trend if z>=2 then if $pivotTypes[z]=1 and $pivotValues[z] > $pivotValues[z-2] then $trend[z]=2 elsif $pivotTypes[z]=1 and $pivotValues[z] <= $pivotValues[z-2] then $trend[z]=1 elsif $pivotTypes[z]=-1 and $pivotValues[z] < $pivotValues[z-2] then $trend[z]=-2 elsif$pivotTypes[z]=-1 and $pivotValues[z] >= $pivotValues[z-2] then $trend[z]=-1 endif else $trend[z]=0 endif //-----------------------------------------------------// if islastbarupdate then for j=z downto 1 do vol=$pivotVolume[j] if $pivotTypes[j]=1 and $trend[j]=2 then drawtext("HH",$pivotIndices[j],$pivotValues[j]+atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]+2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") elsif $pivotTypes[j]=1 and $trend[j]=1 then drawtext("LH",$pivotIndices[j],$pivotValues[j]+atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]+2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") elsif $pivotTypes[j]=-1 and $trend[j]=-2 then drawtext("LL",$pivotIndices[j],$pivotValues[j]-atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]-2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") elsif $pivotTypes[j]=-1 and $trend[j]=-1 then drawtext("HL",$pivotIndices[j],$pivotValues[j]-atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]-2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") 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 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136

  pivotlength=3   //Check if pivotlength is odd if (pivotlength-1) mod 2 = 0 then pivotlength=pivotlength else pivotlength=pivotlength+1 endif   atrmultiplier=2 atr=averagetruerange[(pivotlength-1)/2]   once $pivotIndices[0]=barindex once $pivotValues[0]=high once $pivotTypes[0]=1 once z=0   //-----------------------------------------------------// //-----Looking for at least 1 instance where a pivot cannot be created noHighPivot=0//a pivot can be created noLowPivot=0//a pivot can be created   for i=pivotlength-1 to 1 do //check left side bar if i>(pivotlength-1)/2 then if high[i]>high[i-1] then noHighPivot=1//a pivot cannot be created endif if low[i]<low[i-1] then noLowPivot=1//a pivot cannot be created endif endif //check middle and right side bar if i<=(pivotlength-1)/2 then if high[i]<high[i-1] then noHighPivot=1//a pivot cannot be created endif if low[i]>low[i-1] then noLowPivot=1//a pivot cannot be created endif endif next //-----------------------------------------------------// updatelast=0 if isset($pivotindices[z]) then   if $pivotTypes[z]=1 then if not noHighpivot and high[(pivotlength-1)/2]>$pivotValues[z] then $pivotIndices[z]=barindex-((pivotLength-1)/2) $pivotValues[z]=high[(pivotLength-1)/2] $pivotVolume[z]=summation[max(1,($pivotIndices[z]-$pivotIndices[max(0,z-1)]))](volume) updatelast=1 endif   if not noLowPivot and abs(low[(pivotlength-1)/2]-$pivotValues[z])>=atr*atrMultiplier and (barindex-(pivotlength-1)/2) <> $pivotIndices[z] and low[(pivotlength-1)/2]<$pivotValues[z] then $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=LOW[(pivotLength-1)/2] $pivotTypes[z+1]=-1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif   else   if not noLowpivot and low[(pivotlength-1)/2]<$pivotValues[z] then $pivotIndices[z]=barindex-((pivotLength-1)/2) $pivotValues[z]=low[(pivotLength-1)/2] $pivotVolume[z]=summation[max(1,($pivotIndices[z]-$pivotIndices[max(0,z-1)]))](volume) updatelast=1 endif   if not noHighPivot and abs(high[(pivotlength-1)/2]-$pivotValues[z])>=atr*atrMultiplier and (barindex-(pivotlength-1)/2) <> $pivotIndices[z] and high[(pivotlength-1)/2]>$pivotValues[z] then $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=high[(pivotLength-1)/2] $pivotTypes[z+1]=1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif   endif else //If it will be the first Pivot if not noHighPivot then   $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=high[(pivotLength-1)/2] $pivotTypes[z+1]=1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif if not noLowPivot then $pivotIndices[z+1]=barindex-((pivotLength-1)/2) $pivotValues[z+1]=LOW[(pivotLength-1)/2] $pivotTypes[z+1]=-1 $pivotVolume[z+1]=summation[($pivotIndices[z+1]-$pivotIndices[z])](volume) z=z+1 endif endif   //Get Trend if z>=2 then if $pivotTypes[z]=1 and $pivotValues[z] > $pivotValues[z-2] then $trend[z]=2 elsif $pivotTypes[z]=1 and $pivotValues[z] <= $pivotValues[z-2] then $trend[z]=1 elsif $pivotTypes[z]=-1 and $pivotValues[z] < $pivotValues[z-2] then $trend[z]=-2 elsif$pivotTypes[z]=-1 and $pivotValues[z] >= $pivotValues[z-2] then $trend[z]=-1 endif else $trend[z]=0 endif //-----------------------------------------------------// if islastbarupdate then for j=z downto 1 do vol=$pivotVolume[j] if $pivotTypes[j]=1 and $trend[j]=2 then drawtext("HH",$pivotIndices[j],$pivotValues[j]+atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]+2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") elsif $pivotTypes[j]=1 and $trend[j]=1 then drawtext("LH",$pivotIndices[j],$pivotValues[j]+atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]+2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") elsif $pivotTypes[j]=-1 and $trend[j]=-2 then drawtext("LL",$pivotIndices[j],$pivotValues[j]-atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]-2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") elsif $pivotTypes[j]=-1 and $trend[j]=-1 then drawtext("HL",$pivotIndices[j],$pivotValues[j]-atr) drawtext("#vol#",$pivotIndices[j],$pivotValues[j]-2*atr) drawsegment($pivotIndices[j-1],$pivotValues[j-1],$pivotIndices[j],$pivotValues[j])style(line,2)coloured("orange") endif next endif //-----------------------------------------------------// return

  

  Iván

  Moderator

  Topics: 0

  Replies: 1735

  Been thanked: 725 times
  07/04/2024 at 10:12 AM #234773
  Hunry86

  Grazie mille sei stato gentilissimo!!

  

  Hunry86

  Participant

  Topics: 6

  Replies: 16

  Been thanked: 0 times
• Author
  Posts