http://anaphrais.tradersblog.eu/repulse/
This indicator can be found on the ProRealtime platform.
Code: Select all
// RP - Repulse by Eric Lefort - Function
Inputs:
Series1 ( NumericSeries ), // Open
Series2 ( NumericSeries ), // High
Series3 ( NumericSeries ), // Low
Series4 ( NumericSeries ), // Close
Len ( NumericSimple );
Variables:
BullishForce ( 0 ),
BearishForce ( 0 );
if (Series4 > 0) then
begin
BullishForce = XAverage(((3 * Series4) - (2 * lowest(Series3, Len)) - Series1[Len]) / Series4 * 100, 5 * Len);
BearishForce = XAverage((Series1[Len] + (2 * highest(Series2, Len)) - (3 * Series4)) / Series4 * 100, 5 * Len);
RP = BullishForce - BearishForce;
end;
Code: Select all
// RP - Repulse by Eric Lefort - Indicator
Inputs:
OpenPrice ( Open ),
HighPrice ( High ),
LowPrice ( Low ),
ClosePrice ( Close ),
Length ( 5 ),
Displace ( 0 );
Variables:
MyRP ( 0 );
MyRP = RP(OpenPrice, HighPrice, LowPrice, ClosePrice, Length);
Plot1[Displace](MyRP, "RP");