Convert Market Structure RSI code to PRO REAL TIME PLEASE

• 05/24/2024 at 3:16 PM #233022
  yas

  hi Ivan if you can convert this code below to pro real time please

   

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

  //@version=5
  indicator(“Market Structure RSI”)

  rsiLength = input.int(20, “RSI Length”, minval = 1, group=”Market Structure RSI”)
  OBlvl = input.int(80, “Overbought Level”, minval = 1, maxval=100, group=”Market Structure RSI”)
  OSlvl = input.int(20, “Oversold Level”, minval = 1, maxval=100, group=”Market Structure RSI”)

  strCloseType = input.string(“High/Low”, “Close Type”, [“Close”, “High/Low”], tooltip=”Choose whether the structure is deemed broken with either a Close or the Candle High/Low”, group=”Market Structure RSI”)
  closeTypeBull = strCloseType == “Close” ? close[1] : high[1]
  closeTypeBear = strCloseType == “Close” ? close[1] : low[1]

  maBool = input.bool(true, “Show Moving Average”, group=”Moving Average”)
  maSelection = input.string(“EMA”, “MA Type”, [“EMA”, “SMA”, “WMA”], group=”Moving Average”)
  maLength = input.int(8, “MA Length”, minval = 1, group=”Moving Average”)

  // Get Pivots
  pH = high[3] < high[2] and high[2] > high[1]
  pL = low[3] > low[2] and low[2] < low[1]

  var highPrice = array.new_float()
  var lowPrice = array.new_float()
  var count = array.new_int()

  if pH
  highPrice.push(high[2])
  if pL
  lowPrice.push(low[2])

  add_to_total(dir, priceArray, countArray, closeType, add) =>
  if array.size(priceArray) > 0
  for l = array.size(priceArray)-1 to 0
  if (dir == 1 and closeType > array.get(priceArray, l)) or (dir == 0 and closeType < array.get(priceArray, l))
  array.remove(priceArray, l)
  array.push(countArray, add)
  else
  break

  add_to_total(1, highPrice, count, closeTypeBull, 1)
  add_to_total(0, lowPrice, count, closeTypeBear, -1)

   

  // Get Total
  total = array.sum(count)
  rsiTotal = ta.rsi(total, rsiLength)

  float rsmMATotal = switch maSelection
  “EMA” => ta.ema(rsiTotal, maLength)
  “SMA” => ta.sma(rsiTotal, maLength)
  “WMA” => ta.wma(rsiTotal, maLength)

  // Plot RSI
  rsiPlot = plot(rsiTotal, color=na, linewidth = 2, title= “RSI Line”, editable = false)
  plot(maBool ? rsmMATotal : na, color=#0075ff, title= “RSI Moving Average”, linewidth = 2)

  // Plot Signals
  structureOB = ta.crossunder(rsiTotal, OBlvl)
  structureOS = ta.crossover(rsiTotal, OSlvl)
  plotshape(structureOB ? OBlvl : na, size = size.tiny, style = shape.circle, location = location.absolute, color = color.red, title = “Bearish Signal”)
  plotshape(structureOS ? OSlvl : na, size = size.tiny, style = shape.circle, location = location.absolute, color = color.green, title = “Bullish Signal”)

  // Plot High and Low lines
  hline(OBlvl, title = “Overbought Level”)
  hline(OSlvl, title = “Oversold Level”)

  // Gradient Fill
  midPlot = plot(50, color=rsiTotal>50?color.lime:color.red) //, color = na, editable = false, display = display.none)
  fill(rsiPlot, midPlot, 150, 50, top_color = color.new(color.lime, 0), bottom_color = color.new(color.lime, 100), title = “Overbought Gradient Fill”)
  fill(rsiPlot, midPlot, 50, -50, top_color = color.new(color.red, 100), bottom_color = color.new(color.red, 0), title = “Oversold Gradient Fill”)

  // Alerts
  alertcondition(structureOB, “Bearish Signal”, “Structure RSI is crossing under the Overbought level”)
  alertcondition(structureOS, “Bullish Signal”, “Structure RSI is crossing over the Oversold level”)

  

  yas

  Participant

  Topics: 16

  Replies: 37

  Been thanked: 0 times
  05/27/2024 at 12:54 PM #233086
  Iván

  Hi!
  Here is the code:

  //------------------------------------------------------------// //PRC_Market Structure RSI //version = 0 //27.05.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------------------------------// //-----Inputs-------------------------------------------------// rsiLength=20 OBlvl=80 OSlvl=20 strCloseType=0 maBool=1 maSelection=1 maLength=8 color=1 signals=0 //------------------------------------------------------------// //-----Close Type---------------------------------------------// if strCloseType then closeTypeBull=close[1] closeTypeBear=close[1] else closeTypeBull=high[1] closeTypeBear=low[1] endif //-----Get Pivots---------------------------------------------// pH=high[3]<high[2] and high[2]>high[1] pL=low[3]>low[2] and low[2]<low[1] if pH then $highprice[z+1]=high[2] $highidx[z+1]=barindex[2] z=z+1 endif if pL then $lowprice[t+1]=low[2] $lowidx[t+1]=barindex[2] t=t+1 endif //------------------------------------------------------------// //-----Get Source for RSI calculation-------------------------// $count[0]=0 if isset($highprice[z]) then for i=z downto 0 do if closeTypeBull>$highprice[i] then $highprice[i]=exp(10) $count[r+1]=$count[r]+1 r=r+1 else break endif next endif if isset($lowprice[t]) then for j=t downto 0 do if closeTypeBear<$lowprice[j] then $lowprice[j]=0 $count[r+1]=$count[r]-1 r=r+1 else break endif next endif //------------------------------------------------------------// //-----Get total array count----------------------------------// total=0 for k=0 to r do total=total+$count[r] next //------------------------------------------------------------// //-----RSI total----------------------------------------------// rsitotal=rsi[rsilength](total) //------------------------------------------------------------// //-----RSI Moving Average-------------------------------------// if maBool then rsmMATotal=average[maLength,maSelection](rsitotal) else rsmMATotal=undefined endif //------------------------------------------------------------// //-----Plot configuration-------------------------------------// if color then if rsitotal > 50 then rc=0 gc=255 else rc=255 gc=0 endif colorbetween(rsitotal,50,rc,gc,0,50) endif //------------------------------------------------------------// //-----Draw Signals-------------------------------------------// if signals then if rsiTotal crosses under OBlvl then drawpoint(barindex,OBlvl,2)coloured("red") elsif rsiTotal crosses over OSlvl then drawpoint(barindex,OSlvl,2)coloured("green") endif endif //------------------------------------------------------------// return rsitotal, rsmMATotal coloured("blue")style(line,4), OBlvl as "Overbought Level"style(dottedline2), OSlvl as "Oversold level"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_Market Structure RSI //version = 0 //27.05.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //------------------------------------------------------------// //-----Inputs-------------------------------------------------// rsiLength=20 OBlvl=80 OSlvl=20 strCloseType=0 maBool=1 maSelection=1 maLength=8 color=1 signals=0 //------------------------------------------------------------// //-----Close Type---------------------------------------------// if strCloseType then closeTypeBull=close[1] closeTypeBear=close[1] else closeTypeBull=high[1] closeTypeBear=low[1] endif //-----Get Pivots---------------------------------------------// pH=high[3]<high[2] and high[2]>high[1] pL=low[3]>low[2] and low[2]<low[1]   if pH then $highprice[z+1]=high[2] $highidx[z+1]=barindex[2] z=z+1 endif   if pL then $lowprice[t+1]=low[2] $lowidx[t+1]=barindex[2] t=t+1 endif //------------------------------------------------------------// //-----Get Source for RSI calculation-------------------------// $count[0]=0 if isset($highprice[z]) then for i=z downto 0 do if closeTypeBull>$highprice[i] then $highprice[i]=exp(10) $count[r+1]=$count[r]+1 r=r+1 else break endif next endif   if isset($lowprice[t]) then for j=t downto 0 do if closeTypeBear<$lowprice[j] then $lowprice[j]=0 $count[r+1]=$count[r]-1 r=r+1 else break endif next endif //------------------------------------------------------------// //-----Get total array count----------------------------------// total=0 for k=0 to r do total=total+$count[r] next //------------------------------------------------------------// //-----RSI total----------------------------------------------// rsitotal=rsi[rsilength](total) //------------------------------------------------------------// //-----RSI Moving Average-------------------------------------// if maBool then rsmMATotal=average[maLength,maSelection](rsitotal) else rsmMATotal=undefined endif //------------------------------------------------------------// //-----Plot configuration-------------------------------------// if color then if rsitotal > 50 then rc=0 gc=255 else rc=255 gc=0 endif colorbetween(rsitotal,50,rc,gc,0,50) endif //------------------------------------------------------------// //-----Draw Signals-------------------------------------------// if signals then if rsiTotal crosses under OBlvl then drawpoint(barindex,OBlvl,2)coloured("red") elsif rsiTotal crosses over OSlvl then drawpoint(barindex,OSlvl,2)coloured("green") endif endif //------------------------------------------------------------// return rsitotal, rsmMATotal coloured("blue")style(line,4), OBlvl as "Overbought Level"style(dottedline2), OSlvl as "Oversold level"style(dottedline2)

  1 user thanked author for this post.

  JS

  

  Iván

  Moderator

  Topics: 0

  Replies: 1055

  Been thanked: 375 times
  05/27/2024 at 2:01 PM #233092
  yas

  Thanks Ivan much appreciated thanks again

  

  yas

  Participant

  Topics: 16

  Replies: 37

  Been thanked: 0 times
• Author
  Posts