مؤشر إلدر راي (قوة المشترين والبائعين)

//@version=6
indicator("Elder Ray Index (Bull & Bear Power)", overlay=false)
length    = input.int(13, "EMA Length")
emaVal    = ta.ema(close, length)
bullPower = high - emaVal
bearPower = low  - emaVal
longSignal  = bullPower > 0 and bearPower > bearPower[1] and emaVal > emaVal[1]
shortSignal = bearPower < 0 and bullPower < bullPower[1] and emaVal < emaVal[1]
plotshape(longSignal,  style=shape.triangleup,   location=location.bottom, color=color.green, size=size.small)
plotshape(shortSignal, style=shape.triangledown, location=location.top,    color=color.red,   size=size.small)
hline(0, "Zero", color=color.gray, linestyle=hline.style_dotted)
plothistogram(bullPower, "Bull Power", color=color.new(color.green, 0))
plothistogram(bearPower, "Bear Power", color=color.new(color.red,   0))

input length = 13;
def emaVal = ExpAverage(close, length);
def bullPower = high - emaVal;
def bearPower = low - emaVal;
def buySignal = bullPower > 0 and bearPower > bearPower[1];
def sellSignal = bearPower < 0 and bullPower < bullPower[1];
AddOrder(OrderType.BUY_AUTO, buySignal, close, 1, Color.GREEN, Color.GREEN, "Elder Buy");
AddOrder(OrderType.SELL_AUTO, sellSignal, close, 1, Color.RED, Color.RED, "Elder Exit");
plot Bull = bullPower;
Bull.SetDefaultColor(Color.GREEN);
plot Bear = bearPower;
Bear.SetDefaultColor(Color.RED);