# POWER POINTS RSI

Type : Indicator, Name : Power RSI Pivot

Input:

Length(7),price((o+c)/2),mult(0.0005),
DrawHLines(true);

{ drawing related variable inputs }
Input: longDiverColor(green), longRSIColor(darkgreen), longRevDiverColor(cyan);
Input: shortDiverColor(red), shortRSIColor(darkred), shortRevDiverColor(yellow);

var:
k_15(15), k_50(50),
RSIWAvg(0),
lastRSIAtPivotLo(0),lastPriceAtPivotLo(0),lastLoAtPivotLo(0),
lastRSIAtPivotHi(0),lastPriceAtPivotHi(0),lastHiAtPivotHi(0);

{ figure out long/short threshold }
var:
idx(0), RSIAvg(0),
longThreshold(0),shrtThreshold(0),
_RSI(0);

var:

if barnumber = 1 then begin
end;

_RSI = RSI(Price,Length);
RSIAvg = Average(_RSI,k_50);
longThreshold = 60 — (100-RSIAvg)/1.68;
shrtThreshold = 40 + (RSIAvg)/1.68;
RSIWAvg = WAverage(RSI(Price,Length),3);

{ long signal }
if RSIWAvg[1] < RSIWAvg and
RSIWAvg[1] < RSIWAvg[2] and
RSIWAvg[2] < RSIWAvg[3] and
RSIWAvg[3] < RSIWAvg[4] then begin { last bar was a RSI pivot low }

if RSIWAvg[1] < (longThreshold + k_15) and { RSI was «low enough» }
{ RSI low enough for a pivot low, look for divergence }
Price < lastPriceAtPivotLo and { price was higher in last RSI pivot low, but }
lastRSIAtPivotLo < _RSI then { RSI was lower => divergence } begin
{ plot a «significant» long signal }
Plot1(L-L*mult,»long»,longDiverColor);
if Text_GetTime(alertTextID) <> time then begin
end;
end
else if RSIWAvg[1] < longThreshold then begin
{ no divergence, but RSI very low, and so it’s worth noting }
{ plot a normal long signal }
Plot1(L-L*mult,»long»,longRSIColor);
if Text_GetTime(alertTextID) <> time then begin
end;
end
else if RSIWAvg[1] > (shrtThreshold — k_15) { RSI was «high enough» }
{ a pivot low while RSI reading is high, look for rev divergence }
and Price > lastPriceAtPivotLo { price was higher in last RSI pivot low, but }
and lastRSIAtPivotLo < _RSI then { RSI was lower => rev divergence } begin
Plot1(L-L*mult,»long»,longRevDiverColor);
if Text_GetTime(alertTextID) <> time then begin
end;
end;
lastPriceAtPivotLo = Price;
lastLoAtPivotLo = L;
lastRSIAtPivotLo = _RSI;
end;

if DrawHLines and lastLoAtPivotLo <> 0 then begin
plot3(lastLoAtPivotLo,»lastL@pivotL»);
if lastLoAtPivotLo <> lastLoAtPivotLo[1]
and Text_GetTime(alertTextID) <> time then begin
end;
end;

if DrawHLines and lastHiAtPivotHi <> 0 then begin
plot4(lastHiAtPivotHi,»lastH@pivotH»);
if lastHiAtPivotHi <> lastHiAtPivotHi[1]
and Text_GetTime(alertTextID) <> time then begin
end;
end;

{ short signal }
if RSIWAvg[1] > RSIWAvg and
RSIWAvg[1] > RSIWAvg[2] and
RSIWAvg[2] > RSIWAvg[3] and
RSIWAvg[3] > RSIWAvg[4] then begin { last bar was a RSI pivot high }

if RSIWAvg[1] > (shrtThreshold — k_15) and { RSI was «high enough» }
{ RSI high enough for a pivot high, look for divergence }
Price > lastPriceAtPivotHi and { price was higher in last RSI pivot high, but }
lastRSIAtPivotHi > _RSI then { RSI was higher => divergence } begin
{ plot a «significant» short signal }
Plot2(H+H*mult,»short»,shortDiverColor);
if Text_GetTime(alertTextID) <> time then begin
end;
end
else begin
if RSIWAvg[1] > shrtThreshold then begin
{ no divergence, but RSI very high, and so it’s worth noting }
{ plot a normal short signal }
Plot2(H+H*mult,»short»,shortRSIColor);
if Text_GetTime(alertTextID) <> time then begin
end;
end;
end;
if RSIWAvg[1] < (longThreshold + k_15) and { RSI was «low enough» }
{ a pivot high while RSI reading is low, look for rev divergence }
Price < lastPriceAtPivotHi and { price was lower in last RSI pivot high, but }
lastRSIAtPivotHi > _RSI then { RSI was higher => rev divergence } begin
Plot2(H+H*mult,»short»,shortRevDiverColor);
if Text_GetTime(alertTextID) <> time then begin