Traduzione codice TW Bull Bear power ONF

• 04/07/2025 at 9:41 AM #245657
  Msport71

  Buongiorno,

   

  mi piacerebbe testare questo indicatore Bull Bear, che rispetto a quelli presenti aggiunge anche una EMA per una migliore interpretazione.

  Grazie per il consueto aiuto.

  https://it.tradingview.com/script/Zrc0KWJ5-Bull-Bear-Power-with-Optional-Normalization-Function/

  // This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
  // © LeafAlgo

  //@version=5
  indicator(“Bull/Bear Power with Normalization Function”, shorttitle=”NBBP”)

  // Inputs
  lengthInput = input.int(50, title=”BBP Length”)
  maLength = input.int(50, title=’Moving Average Length’)
  isNormalized = input.bool(true, title=’Use Normalization Function?’)

  // Math
  bullPower = high – ta.ema(close, lengthInput)
  bearPower = low – ta.ema(close, lengthInput)

  bbP = bullPower + bearPower

  bbP_h = ta.max(bbP)
  bbP_l = ta.min(bbP)
  bbP_n = ((bbP – bbP_l) / (bbP_h – bbP_l) – 0.5) * 2

  bbP_final = isNormalized ? bbP_n : bbP

  zeroLine = 0

  upCondition = ta.crossover(bbP_final, zeroLine)
  downCondition = ta.crossunder(bbP_final, zeroLine)

  movingAverage = ta.ema(bbP_final, maLength)

  // Coloration
  bbpColor = bbP_final > 0 ? color.green : color.red
  fillColor = bbP_final > 0 ? color.new(color.lime, 50) : color.new(color.fuchsia, 50)
  barcolor(bbpColor)

  // Plotting
  bbP_n_plot = plot(bbP_final, title=’Bull/Bear Power’, color=bbpColor, linewidth = 4)
  zeroLineplot = plot(zeroLine, title = ‘Zero Line’, linewidth = 3)
  plot(movingAverage, title = ‘Exponential MA’, color=color.white, linewidth = 3)
  fill(bbP_n_plot, zeroLineplot, color=fillColor)

   

  

  Msport71

  Participant

  Topics: 55

  Replies: 109

  Been thanked: 7 times
  04/07/2025 at 12:30 PM #245669
  Iván

  Ecco qui:

  // Inputs lengthInput = 50 maLength = 50 isNormalized = 1 // Math bullPower = high - average[lengthInput,1](close) bearPower = low - average[lengthInput,1](close) bbP = bullPower + bearPower if barindex>lengthInput then bbPh = max(bbP,bbPh[1]) bbPl = min(bbP,bbPl[1]) bbPn = ((bbP - bbPl) / (bbPh - bbPl) - 0.5) * 2 endif if isNormalized then bbPfinal = bbPn else bbPfinal = bbP endif zeroLine = 0 upCondition = bbPfinal crosses over zeroLine downCondition = bbPfinal crosses under zeroLine movingAverage = average[maLength,1](bbPfinal) if bbPfinal > 0 then r=0 g=255 else r=255 g=0 endif colorbetween(bbPfinal,0,r,g,0,50) //drawcandle(open,high,low,close)coloured(r,g,0) return bbPfinal as "Bull/Bear Power"coloured(r,g,0)style(line,3), zeroLine as "zero", movingAverage as "MA" coloured("blue")style(line,2)

  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

  // Inputs lengthInput = 50 maLength = 50 isNormalized = 1   // Math bullPower = high - average[lengthInput,1](close) bearPower = low - average[lengthInput,1](close)   bbP = bullPower + bearPower   if barindex>lengthInput then bbPh = max(bbP,bbPh[1]) bbPl = min(bbP,bbPl[1]) bbPn = ((bbP - bbPl) / (bbPh - bbPl) - 0.5) * 2 endif   if isNormalized then bbPfinal = bbPn else bbPfinal = bbP endif   zeroLine = 0   upCondition = bbPfinal crosses over zeroLine downCondition = bbPfinal crosses under zeroLine   movingAverage = average[maLength,1](bbPfinal)   if bbPfinal > 0 then r=0 g=255 else r=255 g=0 endif   colorbetween(bbPfinal,0,r,g,0,50) //drawcandle(open,high,low,close)coloured(r,g,0)   return bbPfinal as "Bull/Bear Power"coloured(r,g,0)style(line,3), zeroLine as "zero", movingAverage as "MA" coloured("blue")style(line,2)

  1 user thanked author for this post.

  Msport71

  

  Iván

  Moderator

  Topics: 0

  Replies: 1384

  Been thanked: 516 times
  04/07/2025 at 1:33 PM #245675
  Msport71

  Grazie, molto gentile.

  

  Msport71

  Participant

  Topics: 55

  Replies: 109

  Been thanked: 7 times
• Author
  Posts