Traduzione codice TW Dvd

• 07/07/2025 at 9:35 AM #248702
  Msport71

  Buongiorno,

  chiedo cortese traduzione codice in oggetto che vorrei testare.

  Grazie per l’aiuto.

  https://it.tradingview.com/script/2e7GfTx8-Dual-Volume-Divergence-Line/

  // This Pine Script™ code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
  // Dual Volume Divergence Index [DW] oscillator is utilized and get inspired by.
  // Original concept by DonovanWall
  // Modified by © keremertem
  //@version=6
  indicator(‘Dual Volume Divergence Line’, shorttitle = ‘DVD/Line’, overlay = true)
  import TradingView/ta/9

  //—————————————————————————–\\
  // — Ayarlar
  //—————————————————————————–//
  zaman = input.int(17, ‘Dvd Sampling Period’, 2, 100)
  genislik = input.int(12, ‘Band Width’, 2, 50)
  takip = input.int(3, ‘Trailing Length’, 2, 20)
  kaynak = input.source(hlc3, ‘Source’)
  carpan = input.float(1, ‘Multiplier’, 0.5, 10, 0.5)
  //— SON —

  //—————————————————————————–\\
  // — DVD Gostergesi
  //—————————————————————————–//
  hacim = volume

  // Pozitif Hacim Endeksi (PVI) Hesaplama
  var float pvi = 0.0
  pvi := kaynak > kaynak[1] ? pvi + (kaynak – kaynak[1]) : pvi

  // PVI Sinyali ve Iraksama
  pvi_sinyal = ta.wma(pvi, zaman) // EMA fonksiyonu yerine WMA geldi
  pvi_iraksama = (pvi – pvi_sinyal)

  // Negatif Hacim Endeksi (NVI) Hesaplama
  var float nvi = 0.0
  nvi := kaynak < kaynak[1] ? nvi – (kaynak – kaynak[1]) : nvi

  // NVI Sinyali ve Iraksama
  nvi_sinyal = ta.wma(nvi, zaman) // EMA fonksiyonu yerine WMA geldi
  nvi_iraksama = (nvi – nvi_sinyal)

  // DVD Hesaplama
  Dvdi = (pvi_iraksama – nvi_iraksama) * carpan
  Dvd = ta.wma(Dvdi + kaynak, genislik) // EMA fonksiyonu yerine WMA geldi
  Dvd2 = ta.linreg(Dvd, takip, 1) // Takip cizgisi
  Max = ta.highest(Dvd, genislik)
  Min = ta.lowest(Dvd, genislik)
  Ust = ta.rms(Max, genislik)
  Alt = ta.rms(Min, genislik)
  Orta = (Alt + Ust)/2
  Ust := 2 * Ust – Orta
  Alt := 2 * Alt – Orta

  // Cizim
  rnk = Dvd > Dvd2 ? #00e6de : #fb00ff
  ciz1 = plot(Dvd, ‘DVD Line’, rnk, 3)
  gosterBand = input.bool(false, ‘Show Bands’)
  ciz2 = plot(Ust, ‘Upper Band’, #ff525280, 2, plot.style_cross, display = gosterBand ? display.all : display.none)
  ciz3 = plot(Alt, ‘Lower Band’, #00e67780, 2, plot.style_cross, display = gosterBand ? display.all : display.none)
  ornk = Orta > Orta[1] ? #00e67780 : #ff525280
  ciz4 = plot(Orta, ‘Middle Band’, ornk, 3)
  //— SON —

  //—————————————————————————–\\
  // — Iraksama Gostergesi Secimi
  //—————————————————————————–//
  string N_type = input.string(‘DVDI’, title = ‘Divergence Selection’, options=[‘DVDI’, ‘DVD Line’], group = ‘Divergence’)

  Ir_Go(type) =>
  switch type
  ‘DVDI’ => Dvdi
  ‘DVD Line’ => Dvd
  //— SON —

  //—————————————————————————–\\
  // — Iraksama Saptama
  //—————————————————————————–//
  IrGo = Ir_Go(N_type)

  // Pivot Noktalari Saptama
  Ir = input.int(1, ‘Divergence Range’)
  py = na(ta.pivothigh(IrGo, Ir, Ir)) ? false : true
  pd = na(ta.pivotlow(IrGo, Ir, Ir)) ? false : true
  pyFiyat = ta.valuewhen(py, high[Ir], 1)
  pdFiyat = ta.valuewhen(pd, low[Ir], 1)
  pyIrGo = ta.valuewhen(py, IrGo[Ir], 1)
  pdIrGo = ta.valuewhen(pd, IrGo[Ir], 1)

  // Boga Iraksama (Normal & Gizli)
  bogaNormal = pd and IrGo[Ir] > pdIrGo and low[Ir] < pdFiyat
  bogaGizli = pd and IrGo[Ir] < pdIrGo and low[Ir] > pdFiyat

  // Ayı Iraksama (Normal & Gizli)
  ayiNormal = py and IrGo[Ir] < pyIrGo and high[Ir] > pyFiyat
  ayiGizli = py and IrGo[Ir] > pyIrGo and high[Ir] < pyFiyat

  // Etiketleme
  gosterNormal = input.bool(true, ‘Show Normal Divergences’)
  gosterGizli = input.bool(false, ‘Show Hidden Divergences’)
  if gosterNormal and bogaNormal
  label.new(x=bar_index – Ir, y=low[Ir], text=’Bull’, color=color.green, style=label.style_label_up, textcolor=color.white, size=size.small)
  if gosterGizli and bogaGizli
  label.new(x=bar_index – Ir, y=low[Ir], text=’hid.’, color=color.lime, style=label.style_label_up, textcolor=color.white, size=size.small)
  if gosterNormal and ayiNormal
  label.new(x=bar_index – Ir, y=high[Ir], text=’Bear’, color=color.red, style=label.style_label_down, textcolor=color.white, size=size.small)
  if gosterGizli and ayiGizli
  label.new(x=bar_index – Ir, y=high[Ir], text=’hid.’, color=color.orange, style=label.style_label_down, textcolor=color.white, size=size.small)
  //— SON —

  

  Msport71

  Participant

  Topics: 61

  Replies: 114

  Been thanked: 9 times
  07/08/2025 at 11:27 AM #248723
  Iván

  Ecco:

  // ------------------------------------------ // PRC_Dual Volume Divergence Line (DVD/Line) //version = 0 //08.07.25 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge // ------------------------------------------ // --- Configuración de Parámetros // ------------------------------------------ zaman = 17 // Dvd Sampling Period genislik = 12 // Band Width takip = 3 // Trailing Length carpan = 1.0 // Multiplier gosterBand = 0 // 'Show Bands' gosterNormal = 1 // 'Show Normal Divergences' gosterGizli = 1 // 'Show Hidden Divergences' Ir = 1 // 'Divergence Range' Ntype = 1 // Divergence Selection // ------------------------------------------ // -- Cálculo del Indicador DVD // ------------------------------------------ // --- Origen de datos --- kaynak = (high + low + close) / 3 // --- Cálculo del Índice de Volumen Positivo (PVI) IF barindex > 0 THEN IF kaynak > kaynak[1] THEN pvi = pvi[1] + (kaynak - kaynak[1]) ELSE pvi = pvi[1] ENDIF ELSE pvi = 0 ENDIF // --- Señal y Divergencia PVI --- pviSinyal = WeightedAverage[zaman](pvi) pviIraksama = pvi - pviSinyal // --- Cálculo del Índice de Volumen Negativo (NVI) --- IF barindex > 0 THEN IF kaynak < kaynak[1] THEN nvi = nvi[1] - (kaynak - kaynak[1]) ELSE nvi = nvi[1] ENDIF ELSE nvi = 0 ENDIF // --- Señal y Divergencia NVI --- nviSinyal = WeightedAverage[zaman](nvi) nviIraksama = nvi - nviSinyal // --- Cálculo del DVD --- Dvdi = (pviIraksama - nviIraksama) * carpan Dvd = WeightedAverage[genislik](Dvdi + kaynak) Dvd2 = LinearRegression[takip](Dvd)-LinearRegressionSlope[takip](Dvd) // ta.linreg(Dvd, takip, 1) // --- Cálculo de Bandas --- MaxDVD = Highest[genislik](Dvd) MinDVD = Lowest[genislik](Dvd) // Implementación de la función RMS (Root Mean Square) rmsMax = SQRT(Average[genislik](SQUARE(MaxDVD))) rmsMin = SQRT(Average[genislik](SQUARE(MinDVD))) Ust = rmsMax Alt = rmsMin Orta = (Alt + Ust) / 2 // Proyección de las bandas Ust = 2 * Ust - Orta Alt = 2 * Alt - Orta // --- Variables para colorear las líneas --- // Línea DVD principal IF Dvd > Dvd2 THEN Rdvd = 0 Gdvd = 230 Bdvd = 222 ELSE Rdvd = 251 Gdvd = 0 Bdvd = 255 ENDIF // Línea Media IF Orta > Orta[1] THEN Rorta = 0 Gorta = 230 Borta = 119 ELSE Rorta = 282 Gorta = 82 Borta = 82 ENDIF // -----------------------------------------------------------------------------\\ // -- Detección de Divergencias // -----------------------------------------------------------------------------// // --- Selección del Oscilador para Divergencia --- IF Ntype = 1 THEN IrGo = Dvdi ELSE IrGo = Dvd ENDIF // --- Detección de Puntos Pivote (con retraso necesario en ProBuilder) --- pivotHighDetected = (IrGo[Ir] = HIGHEST[2 * Ir + 1](IrGo)) pivotLowDetected = (IrGo[Ir] = LOWEST[2 * Ir + 1](IrGo)) // --- Almacenamiento de valores de pivotes anteriores --- ONCE lastPHprice = 0 ONCE lastPLprice = 0 ONCE lastPHosc = 0 ONCE lastPLosc = 0 once lastPHindex=-1 once lastPLindex=-1 ayiNormal=0 ayiGizli=0 bogaNormal=0 bogaGizli=0 // Actualizar valores del último Pivote ALTO IF pivotHighDetected and lastPHindex <> barindex[ir] THEN if lastPHindex<> -1 then if high[Ir]>LastPHprice and IrGo[Ir]<lastPHosc then ayiNormal = 1 endif if high[Ir]<lastPHprice and IrGo[Ir]>lastPHosc then ayiGizli = 1 endif endif lastPHprice = high[Ir] lastPHosc = IrGo[Ir] lastPHIndex=barindex[Ir] ENDIF // Actualizar valores del último Pivote BAJO IF pivotLowDetected and lastPLindex<>barindex[Ir] THEN if lastPLindex<>-1 then if low[Ir]<lastPLprice and IrGo[Ir]>lastPLosc then bogaNormal=1 endif if low[Ir]<lastPLprice and IrGo[Ir]<lastPLosc then bogaGizli=1 endif endif lastPLprice = low[Ir] lastPLosc = IrGo[Ir] lastPLindex = barindex[Ir] ENDIF // --- Dibujo de Etiquetas de Divergencia --- atr=averagetruerange[14](close) // Normal Alcista IF gosterNormal AND bogaNormal THEN DRAWTEXT("Bull", barindex[Ir], low[Ir] - 0.15*atr ) COLOURED("green") ENDIF // Oculta Alcista IF gosterGizli AND bogaGizli THEN DRAWTEXT("hid.Bull", barindex[Ir], low[Ir] - 0.15*atr) COLOURED("lime") ENDIF // Normal Bajista IF gosterNormal AND ayiNormal THEN DRAWTEXT("Bear", barindex[Ir], high[Ir] + 0.15*atr) COLOURED("red") ENDIF // Oculta Bajista IF gosterGizli AND ayiGizli THEN DRAWTEXT("hid.Bear", barindex[Ir], high[Ir] + 0.15*atr) COLOURED("orange") ENDIF // -----------------------------------------------------------------------------\\ // --- Salida de Datos (Plot) // -----------------------------------------------------------------------------// RETURN Ust COLOURED(255, 82, 82, gosterBand*128) STYLE(POINT, 2) AS "Upper Band", Alt COLOURED(0, 230, 119, gosterBand*128) STYLE(POINT, 2) AS "Lower Band", Dvd as "Dvd Line" coloured(Rdvd,Gdvd,Bdvd)style(line,3), orta as "Middle band"coloured(Rorta,Gorta,Borta,80)style(line,3)

  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 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180

  // ------------------------------------------ // PRC_Dual Volume Divergence Line (DVD/Line) //version = 0 //08.07.25 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge // ------------------------------------------ // --- Configuración de Parámetros // ------------------------------------------ zaman = 17 // Dvd Sampling Period genislik = 12 // Band Width takip = 3 // Trailing Length carpan = 1.0 // Multiplier gosterBand = 0 // 'Show Bands' gosterNormal = 1 // 'Show Normal Divergences' gosterGizli = 1 // 'Show Hidden Divergences' Ir = 1 // 'Divergence Range' Ntype = 1 // Divergence Selection // ------------------------------------------ // -- Cálculo del Indicador DVD // ------------------------------------------ // --- Origen de datos --- kaynak = (high + low + close) / 3 // --- Cálculo del Índice de Volumen Positivo (PVI) IF barindex > 0 THEN    IF kaynak > kaynak[1] THEN       pvi = pvi[1] + (kaynak - kaynak[1])    ELSE       pvi = pvi[1]    ENDIF ELSE    pvi = 0 ENDIF   // --- Señal y Divergencia PVI --- pviSinyal = WeightedAverage[zaman](pvi) pviIraksama = pvi - pviSinyal   // --- Cálculo del Índice de Volumen Negativo (NVI) --- IF barindex > 0 THEN    IF kaynak < kaynak[1] THEN       nvi = nvi[1] - (kaynak - kaynak[1])    ELSE       nvi = nvi[1]    ENDIF ELSE    nvi = 0 ENDIF   // --- Señal y Divergencia NVI --- nviSinyal = WeightedAverage[zaman](nvi) nviIraksama = nvi - nviSinyal   // --- Cálculo del DVD --- Dvdi = (pviIraksama - nviIraksama) * carpan Dvd = WeightedAverage[genislik](Dvdi + kaynak) Dvd2 = LinearRegression[takip](Dvd)-LinearRegressionSlope[takip](Dvd) // ta.linreg(Dvd, takip, 1)   // --- Cálculo de Bandas --- MaxDVD = Highest[genislik](Dvd) MinDVD = Lowest[genislik](Dvd)   // Implementación de la función RMS (Root Mean Square) rmsMax = SQRT(Average[genislik](SQUARE(MaxDVD))) rmsMin = SQRT(Average[genislik](SQUARE(MinDVD)))   Ust = rmsMax Alt = rmsMin Orta = (Alt + Ust) / 2   // Proyección de las bandas Ust = 2 * Ust - Orta Alt = 2 * Alt - Orta   // --- Variables para colorear las líneas --- // Línea DVD principal IF Dvd > Dvd2 THEN    Rdvd = 0    Gdvd = 230    Bdvd = 222 ELSE    Rdvd = 251    Gdvd = 0    Bdvd = 255 ENDIF   // Línea Media IF Orta > Orta[1] THEN    Rorta = 0    Gorta = 230    Borta = 119 ELSE    Rorta = 282    Gorta = 82    Borta = 82 ENDIF   // -----------------------------------------------------------------------------\\ // -- Detección de Divergencias // -----------------------------------------------------------------------------//   // --- Selección del Oscilador para Divergencia --- IF Ntype = 1 THEN    IrGo = Dvdi ELSE    IrGo = Dvd ENDIF   // --- Detección de Puntos Pivote (con retraso necesario en ProBuilder) --- pivotHighDetected = (IrGo[Ir] = HIGHEST[2 * Ir + 1](IrGo)) pivotLowDetected = (IrGo[Ir] = LOWEST[2 * Ir + 1](IrGo))   // --- Almacenamiento de valores de pivotes anteriores --- ONCE lastPHprice = 0 ONCE lastPLprice = 0 ONCE lastPHosc = 0 ONCE lastPLosc = 0 once lastPHindex=-1 once lastPLindex=-1   ayiNormal=0 ayiGizli=0 bogaNormal=0 bogaGizli=0 // Actualizar valores del último Pivote ALTO IF pivotHighDetected and lastPHindex <> barindex[ir] THEN    if lastPHindex<> -1 then       if high[Ir]>LastPHprice and IrGo[Ir]<lastPHosc then          ayiNormal = 1       endif       if high[Ir]<lastPHprice and IrGo[Ir]>lastPHosc then          ayiGizli = 1       endif    endif    lastPHprice = high[Ir]    lastPHosc = IrGo[Ir]    lastPHIndex=barindex[Ir] ENDIF   // Actualizar valores del último Pivote BAJO IF pivotLowDetected and lastPLindex<>barindex[Ir] THEN    if lastPLindex<>-1 then       if low[Ir]<lastPLprice and IrGo[Ir]>lastPLosc then          bogaNormal=1       endif       if low[Ir]<lastPLprice and IrGo[Ir]<lastPLosc then          bogaGizli=1       endif    endif    lastPLprice = low[Ir]    lastPLosc = IrGo[Ir]    lastPLindex = barindex[Ir] ENDIF   // --- Dibujo de Etiquetas de Divergencia --- atr=averagetruerange[14](close) // Normal Alcista IF gosterNormal AND bogaNormal THEN    DRAWTEXT("Bull", barindex[Ir], low[Ir] - 0.15*atr ) COLOURED("green") ENDIF   // Oculta Alcista IF gosterGizli AND bogaGizli THEN    DRAWTEXT("hid.Bull", barindex[Ir], low[Ir] - 0.15*atr) COLOURED("lime") ENDIF   // Normal Bajista IF gosterNormal AND ayiNormal THEN    DRAWTEXT("Bear", barindex[Ir], high[Ir] +  0.15*atr) COLOURED("red") ENDIF   // Oculta Bajista IF gosterGizli AND ayiGizli THEN    DRAWTEXT("hid.Bear", barindex[Ir], high[Ir] +  0.15*atr) COLOURED("orange") ENDIF   // -----------------------------------------------------------------------------\\ // --- Salida de Datos (Plot) // -----------------------------------------------------------------------------// RETURN Ust COLOURED(255, 82, 82, gosterBand*128) STYLE(POINT, 2) AS "Upper Band", Alt COLOURED(0, 230, 119, gosterBand*128) STYLE(POINT, 2) AS "Lower Band", Dvd as "Dvd Line" coloured(Rdvd,Gdvd,Bdvd)style(line,3), orta as "Middle band"coloured(Rorta,Gorta,Borta,80)style(line,3)

  1 user thanked author for this post.

  Msport71

  

  Iván

  Moderator

  Topics: 0

  Replies: 1673

  Been thanked: 683 times
• Author
  Posts