SUPERTREND RSI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

• 06/02/2024 at 4:16 PM #233405
  NEOMKEY

  Hola a todos, os remito el presente indicador de la plataforma TRADINGVIEW para ver si sois capaces de transcribirlo a PRT. Gracias

  https://es.tradingview.com/v/tjP35RG5/

  

  NEOMKEY

  Participant

  Topics: 38

  Replies: 77

  Been thanked: 5 times
  06/03/2024 at 4:59 PM #233464
  Iván

  Hola!
  Aquí lo tienes https://www.prorealcode.com/prorealtime-indicators/rsi-supertrend-a-trend-and-momentum-indicator/

  PRC_RSI Supertrend

  //--------------------------------------------------------------------// //PRC_RSI Supertrend //version = 0 //03.06.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //--------------------------------------------------------------------// //-----Inputs---------------------------------------------------------// relativeStrengthIndexLength=14 smoothingLength=21 rsiInputSource = customclose isSmoothed=0 movingAverageLength=14 movingAverageType=7 // showMovingAverage=1 trendFactor=0.8 averageTrueRangeLength=10 obline=70 osline=30 midline=50 transparency=80 //--------------------------------------------------------------------// //-----RSI Calculation------------------------------------------------// if isSmoothed then auxrsi=rsi[relativeStrengthIndexLength](rsiInputSource) myrsi=hullaverage[smoothingLength](auxrsi) else myrsi=rsi[relativeStrengthIndexLength](rsiInputSource) endif rsiMovingAverage=average[movingAverageLength,movingAverageType](myrsi) //--------------------------------------------------------------------// //-----Calculating Supertrend based on RSI values---------------------// pricesource=myrsi highestHigh=highest[averageTrueRangeLength](pricesource) lowestlow=lowest[averageTrueRangeLength](pricesource) if barindex <= averageTrueRangeLength then truerange=highestHigh-lowestlow else truerange=max(highestHigh-lowestlow,max(abs(highestHigh-pricesource[1]),abs(lowestlow-pricesource[1]))) endif alpha = 1/averageTrueRangeLength if barindex <= 4*averageTrueRangeLength then atr = average[averageTrueRangeLength](truerange) else atr = alpha*truerange + (1-alpha)*atr[1] endif up = pricesource - trendFactor*atr up1 = up[1] if pricesource[1] > up1 then up = max(up,up1) else up = up endif dn = pricesource + trendFactor*atr dn1 = dn[1] if pricesource[1] < dn1 then dn = min(dn,dn1) else dn = dn endif once trend = 1 if trend = -1 and pricesource > dn1 then trend = 1 elsif trend = 1 and pricesource < up1 then trend = -1 else trend = trend endif if trend = 1 then mysupertrend = up else mysupertrend = dn endif //--------------------------------------------------------------------// if trend=1 then r=0 g=255 b=187 else r=255 g=17 b=0 endif //--------------------------------------------------------------------// colorbetween(mysupertrend,pricesource,r,g,b,transparency) //--------------------------------------------------------------------// if mysupertrend crosses over pricesource and mysupertrend>Obline then drawtext("▼",barindex,mysupertrend+2)coloured("red") elsif mysupertrend crosses under pricesource and mysupertrend<osline then drawtext("▲",barindex,mysupertrend-2)coloured("green") endif //--------------------------------------------------------------------// return pricesource,mysupertrend coloured(r,g,b),rsiMovingAverage coloured("grey")style(line,2),obline as "Overbought Line" coloured("grey")style(dottedline),osline as "Overbought Line" coloured("grey")style(dottedline),midline as "Middle Line" coloured("grey")style(dottedline2)

  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

  //--------------------------------------------------------------------// //PRC_RSI Supertrend //version = 0 //03.06.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //--------------------------------------------------------------------// //-----Inputs---------------------------------------------------------// relativeStrengthIndexLength=14 smoothingLength=21 rsiInputSource = customclose isSmoothed=0   movingAverageLength=14 movingAverageType=7 // showMovingAverage=1   trendFactor=0.8 averageTrueRangeLength=10   obline=70 osline=30 midline=50 transparency=80 //--------------------------------------------------------------------// //-----RSI Calculation------------------------------------------------// if isSmoothed then auxrsi=rsi[relativeStrengthIndexLength](rsiInputSource) myrsi=hullaverage[smoothingLength](auxrsi) else myrsi=rsi[relativeStrengthIndexLength](rsiInputSource) endif rsiMovingAverage=average[movingAverageLength,movingAverageType](myrsi) //--------------------------------------------------------------------// //-----Calculating Supertrend based on RSI values---------------------// pricesource=myrsi   highestHigh=highest[averageTrueRangeLength](pricesource) lowestlow=lowest[averageTrueRangeLength](pricesource)   if barindex <= averageTrueRangeLength then truerange=highestHigh-lowestlow else truerange=max(highestHigh-lowestlow,max(abs(highestHigh-pricesource[1]),abs(lowestlow-pricesource[1]))) endif   alpha = 1/averageTrueRangeLength   if barindex <= 4*averageTrueRangeLength then atr = average[averageTrueRangeLength](truerange) else atr = alpha*truerange + (1-alpha)*atr[1] endif   up = pricesource - trendFactor*atr   up1 = up[1] if pricesource[1] > up1 then up = max(up,up1) else up = up endif   dn = pricesource + trendFactor*atr dn1 = dn[1] if pricesource[1] < dn1 then dn = min(dn,dn1) else dn = dn endif   once trend = 1   if trend = -1 and pricesource > dn1 then trend = 1 elsif trend = 1 and pricesource < up1 then trend = -1 else trend = trend endif   if trend = 1 then mysupertrend = up else mysupertrend = dn endif //--------------------------------------------------------------------// if trend=1 then r=0 g=255 b=187 else r=255 g=17 b=0 endif //--------------------------------------------------------------------// colorbetween(mysupertrend,pricesource,r,g,b,transparency) //--------------------------------------------------------------------// if mysupertrend crosses over pricesource and mysupertrend>Obline then drawtext("▼",barindex,mysupertrend+2)coloured("red") elsif mysupertrend crosses under pricesource and mysupertrend<osline then drawtext("▲",barindex,mysupertrend-2)coloured("green") endif //--------------------------------------------------------------------// return pricesource,mysupertrend coloured(r,g,b),rsiMovingAverage coloured("grey")style(line,2),obline as "Overbought Line" coloured("grey")style(dottedline),osline as "Overbought Line" coloured("grey")style(dottedline),midline as "Middle Line" coloured("grey")style(dottedline2)

  1 user thanked author for this post.

  NEOMKEY

  

  Iván

  Moderator

  Topics: 0

  Replies: 978

  Been thanked: 340 times
  06/08/2024 at 8:08 PM #233647
  NEOMKEY

  Magnífico Iván, enhorabuena. Muchísimas gracias. Eres un gran fichaje aquí en PRT.

  

  NEOMKEY

  Participant

  Topics: 38

  Replies: 77

  Been thanked: 5 times
• Author
  Posts