//PRC_Wedge pattern | screener
//12.09.2016
//Nicolas @ www.prorealcode.com
//Sharing ProRealTime knowledge

//fractals
cp = 4 //lookback

if high[cp] >= highest[(cp)*2+1](high) then
LLH = 1
else
LLH = 0
endif

if low[cp] <= lowest[(cp)*2+1](low)  then
LLL = -1
else
LLL = 0
endif

if LLH = 1 then
a = b[1]
abar = bbar[1]
b = high[cp]
bbar = barindex[cp]
endif

if LLL = -1 then
c = d[1]
cbar = dbar[1]
d = low[cp]
dbar = barindex[cp]
endif

c1 = a<b and c<d and abs(abar-bbar)>abs(cbar-dbar) and abs(a-b)<abs(c-d)
c2 = a>b and c<d
c3 = a>b and c>d and abs(abar-bbar)<abs(cbar-dbar) and abs(a-b)>abs(c-d)

SCREENER [c1 or c2 or c3]