INDICATOR QQE MOD

• 04/06/2024 at 1:03 PM #231151
  ARLEQUIN49

  Hello Ivan,
  Would it be possible to convert the code of this QQE MOD indicator which accompanies SSL HYBRID?

  Here is the code:

  //@version=4
  //By Glaz, Modified
  //
  study(“QQE MOD”)
  RSI_Period = input(6, title=’RSI Length’)
  SF = input(5, title=’RSI Smoothing’)
  QQE = input(3, title=’Fast QQE Factor’)
  ThreshHold = input(3, title=”Thresh-hold”)
  //

  src = input(close, title=”RSI Source”)
  //

  //
  Wilders_Period = RSI_Period * 2 – 1

  Rsi = rsi(src, RSI_Period)
  RsiMa = ema(Rsi, SF)
  AtrRsi = abs(RsiMa[1] – RsiMa)
  MaAtrRsi = ema(AtrRsi, Wilders_Period)
  dar = ema(MaAtrRsi, Wilders_Period) * QQE

  longband = 0.0
  shortband = 0.0
  trend = 0

  DeltaFastAtrRsi = dar
  RSIndex = RsiMa
  newshortband = RSIndex + DeltaFastAtrRsi
  newlongband = RSIndex – DeltaFastAtrRsi
  longband := RSIndex[1] > longband[1] and RSIndex > longband[1] ?
  max(longband[1], newlongband) : newlongband
  shortband := RSIndex[1] < shortband[1] and RSIndex upper ? #00c3ff : RsiMa – 50 = 50 ? QQEzlong + 1 : 0
  QQEzshort := RSIndex longband2[1] and RSIndex2 > longband2[1] ?
  max(longband2[1], newlongband2) : newlongband2
  shortband2 := RSIndex2[1] < shortband2[1] and RSIndex2 = 50 ? QQE2zlong + 1 : 0
  QQE2zshort := RSIndex2 ThreshHold2 ? color.silver :
  RsiMa2 – 50 ThreshHold2
  Greenbar2 = RsiMa – 50 > upper

  Redbar1 = RsiMa2 – 50 < 0 – ThreshHold2
  Redbar2 = RsiMa – 50 < lower
  plot(Greenbar1 and Greenbar2 == 1 ? RsiMa2 – 50 : na, title=”QQE Up”, style=plot.style_columns, color=#00c3ff, transp=0)
  plot(Redbar1 and Redbar2 == 1 ? RsiMa2 – 50 : na, title=”QQE Down”, style=plot.style_columns, color=#ff0062, transp=0)

  

  ARLEQUIN49

  Participant

  Topics: 10

  Replies: 13

  Been thanked: 2 times
  04/08/2024 at 2:00 PM #231232
  Iván

  Ici

  //PRC_QQE MOD //version = 0 //08.04.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //-----Inputs-----------------------------------------------// rsiPeriod=6//RSI Length SF=5//RSI Smoothing QQE=3//Fast QQE Factor ThreshHold=3//Thresh-hold src=close length=50//Bollinger Length mult=0.35//BB Multiplier rsiPeriod2=6//RSI Length SF2=5//RSI Smoothing QQE2=1.61//Fast QQE Factor ThreshHold2=3//Thresh-hold src2=close //----------------------------------------------------------// //-----RSI1 calculations and trend definition---------------// WildersPeriod = rsiPeriod*2-1 myrsi=rsi[rsiPeriod](src) rsiMA=average[SF,1](myrsi) atrRSI=abs(rsiMA[1]-rsiMA) MAatrRSI=average[WildersPeriod,1](atrRSI) dar = average[WildersPeriod,1](MAatrRSI)*QQE longband=0 shortband=0 trend=0 DeltaFastAtrRsi = dar RSIndex = rsiMA newshortband = RSIndex + DeltaFastAtrRsi newlongband = RSIndex - DeltaFastAtrRsi if RSIndex[1] > longband[1] and RSIndex > longband[1] then longband=max(longband[1],newlongband) else longband=newlongband endif if RSIndex[1] < shortband[1] and RSIndex < shortband[1] then shortband=min(shortband[1], newshortband) else shortband=newshortband endif cross1 = longband[1] crosses over RSIndex or longband[1] crosses under RSIndex if shortband[1] crosses over RSIndex or shortband[1] crosses under RSIndex then trend=1 FastAtrRsiTL=longband elsif cross1 then trend=-1 FastAtrRsiTL=shortband else trend=trend[1] endif //----------------------------------------------------------// //-----Bollinger Bands--------------------------------------// basis=average[length,0](FastAtrRsiTL-50) dev=mult*std[length](FastAtrRsiTL-50) upper=basis+dev lower=basis-dev //----------------------------------------------------------// //-----RSI2 calculations and trend definition---------------// WildersPeriod2 = rsiPeriod2*2-1 myrsi2=rsi[rsiPeriod2](src2) rsiMA2=average[SF2,1](myrsi2) atrRSI2=abs(rsiMA2[1]-rsiMA2) MAatrRSI2=average[WildersPeriod2,1](atrRSI2) dar2 = average[WildersPeriod2,1](MAatrRSI2)*QQE2 longband2=0 shortband2=0 trend2=0 DeltaFastAtrRsi2 = dar2 RSIndex2 = rsiMA2 newshortband2 = RSIndex2 + DeltaFastAtrRsi2 newlongband2 = RSIndex2 - DeltaFastAtrRsi2 if RSIndex2[1] > longband2[1] and RSIndex2 > longband2[1] then longband2=max(longband2[1],newlongband2) else longband2=newlongband2 endif if RSIndex2[1] < shortband2[1] and RSIndex2 < shortband2[1] then shortband2=min(shortband2[1], newshortband2) else shortband2=newshortband2 endif cross2 = longband2[1] crosses over RSIndex2 or longband2[1] crosses under RSIndex2 if shortband2[1] crosses over RSIndex2 or shortband2[1] crosses under RSIndex2 then trend2=1 FastAtrRsiTL2=longband2 elsif cross2 then trend2=-1 FastAtrRsiTL2=shortband2 else trend2=trend2[1] endif //----------------------------------------------------------// //-----Color definition------------------------------------// if rsiMA2-50>ThreshHold2 then r=178 g=181 b=190 a=100 elsif rsiMA2-50<0-ThreshHold2 then r=178 g=181 b=190 a=100 else r=178 g=181 b=190 a=0 endif //----------------------------------------------------------// //-----Checkings and colors---------------------------------// greenbar1=rsiMA2-50>ThreshHold2 greenbar2=rsiMA-50>upper redbar1=RsiMa2-50<0-ThreshHold2 Redbar2 =RsiMa-50<lower if greenbar1 and greenbar2 then qqe=rsiMA2-50 rb=0 gb=195 bb=255 elsif redbar1 and redbar2 then qqe=rsiMA2-50 rb=255 gb=0 bb=98 else qqe=0 rb=120 gb=123 bb=134 endif //----------------------------------------------------------// zero=0 return qqe as "QQE" coloured(rb,gb,bb)style(histogram),FastAtrRsiTL2-50 as "QQE Line"coloured("Black")style(line,2),rsiMA2-50 as"Histo2"coloured(r,g,b,a)style(histogram) ,zero as "Zero" coloured("white")style(dottedline)

  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

  //PRC_QQE MOD //version = 0 //08.04.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //-----Inputs-----------------------------------------------// rsiPeriod=6//RSI Length SF=5//RSI Smoothing QQE=3//Fast QQE Factor ThreshHold=3//Thresh-hold src=close   length=50//Bollinger Length mult=0.35//BB Multiplier   rsiPeriod2=6//RSI Length SF2=5//RSI Smoothing QQE2=1.61//Fast QQE Factor ThreshHold2=3//Thresh-hold src2=close //----------------------------------------------------------// //-----RSI1 calculations and trend definition---------------// WildersPeriod = rsiPeriod*2-1   myrsi=rsi[rsiPeriod](src) rsiMA=average[SF,1](myrsi) atrRSI=abs(rsiMA[1]-rsiMA) MAatrRSI=average[WildersPeriod,1](atrRSI) dar = average[WildersPeriod,1](MAatrRSI)*QQE   longband=0 shortband=0 trend=0   DeltaFastAtrRsi = dar RSIndex = rsiMA newshortband = RSIndex + DeltaFastAtrRsi newlongband = RSIndex - DeltaFastAtrRsi if RSIndex[1] > longband[1] and RSIndex > longband[1] then longband=max(longband[1],newlongband) else longband=newlongband endif if RSIndex[1] < shortband[1] and RSIndex < shortband[1] then shortband=min(shortband[1], newshortband) else shortband=newshortband endif   cross1 = longband[1] crosses over RSIndex or longband[1] crosses under RSIndex if shortband[1] crosses over RSIndex or shortband[1] crosses under RSIndex then trend=1 FastAtrRsiTL=longband elsif cross1 then trend=-1 FastAtrRsiTL=shortband else trend=trend[1] endif //----------------------------------------------------------// //-----Bollinger Bands--------------------------------------// basis=average[length,0](FastAtrRsiTL-50) dev=mult*std[length](FastAtrRsiTL-50) upper=basis+dev lower=basis-dev //----------------------------------------------------------// //-----RSI2 calculations and trend definition---------------// WildersPeriod2 = rsiPeriod2*2-1   myrsi2=rsi[rsiPeriod2](src2) rsiMA2=average[SF2,1](myrsi2) atrRSI2=abs(rsiMA2[1]-rsiMA2) MAatrRSI2=average[WildersPeriod2,1](atrRSI2) dar2 = average[WildersPeriod2,1](MAatrRSI2)*QQE2   longband2=0 shortband2=0 trend2=0   DeltaFastAtrRsi2 = dar2 RSIndex2 = rsiMA2 newshortband2 = RSIndex2 + DeltaFastAtrRsi2 newlongband2 = RSIndex2 - DeltaFastAtrRsi2 if RSIndex2[1] > longband2[1] and RSIndex2 > longband2[1] then longband2=max(longband2[1],newlongband2) else longband2=newlongband2 endif if RSIndex2[1] < shortband2[1] and RSIndex2 < shortband2[1] then shortband2=min(shortband2[1], newshortband2) else shortband2=newshortband2 endif   cross2 = longband2[1] crosses over RSIndex2 or longband2[1] crosses under RSIndex2 if shortband2[1] crosses over RSIndex2 or shortband2[1] crosses under RSIndex2 then trend2=1 FastAtrRsiTL2=longband2 elsif cross2 then trend2=-1 FastAtrRsiTL2=shortband2 else trend2=trend2[1] endif //----------------------------------------------------------// //-----Color definition------------------------------------// if rsiMA2-50>ThreshHold2 then r=178 g=181 b=190 a=100 elsif rsiMA2-50<0-ThreshHold2 then r=178 g=181 b=190 a=100 else r=178 g=181 b=190 a=0 endif //----------------------------------------------------------// //-----Checkings and colors---------------------------------// greenbar1=rsiMA2-50>ThreshHold2 greenbar2=rsiMA-50>upper redbar1=RsiMa2-50<0-ThreshHold2 Redbar2 =RsiMa-50<lower   if greenbar1 and greenbar2 then qqe=rsiMA2-50 rb=0 gb=195 bb=255 elsif redbar1 and redbar2 then qqe=rsiMA2-50 rb=255 gb=0 bb=98 else qqe=0 rb=120 gb=123 bb=134 endif //----------------------------------------------------------// zero=0 return qqe as "QQE" coloured(rb,gb,bb)style(histogram),FastAtrRsiTL2-50 as "QQE Line"coloured("Black")style(line,2),rsiMA2-50 as"Histo2"coloured(r,g,b,a)style(histogram) ,zero as "Zero" coloured("white")style(dottedline)

  1 user thanked author for this post.

  Msport71

  

  Iván

  Moderator

  Topics: 0

  Replies: 978

  Been thanked: 338 times
  04/08/2024 at 4:18 PM #231248
  ARLEQUIN49

  Super merci beaucoup

  

  ARLEQUIN49

  Participant

  Topics: 10

  Replies: 13

  Been thanked: 2 times
• Author
  Posts