Estratégia de Negociação com Padrões de Gráfico

//@version=6
strategy("Chart Pattern Trading Strategy", overlay=true)
// Detects pin bars and engulfing candles at key levels
atrLen  = input.int(14, "ATR Length")
lookback = input.int(20, "Swing Lookback")
atr = ta.atr(atrLen)
swingHigh = ta.highest(high, lookback)
swingLow  = ta.lowest(low,  lookback)
// Bullish pin bar: long lower wick, close near high, forms at/near swing low
lowerWick   = open - low
upperWick   = high - close
bodySize    = math.abs(close - open)
bullishPin  = lowerWick > 2 * bodySize and lowerWick > upperWick and low <= swingLow * 1.002
// Bearish engulfing at swing high
bearEngulf  = close < open and close < open[1] and open > close[1] and high >= swingHigh * 0.998
if bullishPin
    strategy.entry("PABuy", strategy.long, stop=low - atr * 0.5)
if bearEngulf
    strategy.close("PABuy")
plotshape(bullishPin, style=shape.triangleup,   location=location.belowbar, color=color.green, size=size.small, title="Pin Bar")
plotshape(bearEngulf, style=shape.triangledown, location=location.abovebar, color=color.red,   size=size.small, title="Bearish Engulf")

input atrLength = 14;
input swingLookback = 20;
def atrVal = ATR(atrLength);
def swingHigh = Highest(high, swingLookback);
def swingLow = Lowest(low, swingLookback);
def lowerWick = open - low;
def upperWick = high - close;
def bodySize = AbsValue(close - open);
def bullishPin = lowerWick > 2 * bodySize and lowerWick > upperWick and low <= swingLow * 1.002;
def bearEngulf = close < open and close < open[1] and open > close[1] and high >= swingHigh * 0.998;
AddOrder(OrderType.BUY_AUTO, bullishPin, close, 1, Color.GREEN, Color.GREEN, "Chart Pattern Trading Strategy Buy");
AddOrder(OrderType.SELL_AUTO, bearEngulf, close, 1, Color.RED, Color.RED, "Chart Pattern Trading Strategy Exit");
plot SwingHigh = swingHigh;
SwingHigh.SetDefaultColor(Color.RED);
plot SwingLow = swingLow;
SwingLow.SetDefaultColor(Color.GREEN);