#Trend Advisor Market Phases;
#Credit to the Chuck Dukas for creating the system and for then author of the VolumeTrendLabels whose study was use to create this indicator. Ensure you set the correct aggregation period to then chart, this helps calculate the correct volume and price action.
def O = open;
def H = high;
def C = close;
def L = low;
def V = volume;
def SV = V * (H - C) / (H - L);
def BV = V * (C - L) / (H - L);
# below determines if volume supports the move, adds conviction
AddLabel(yes, "Buyer Vol Strong ", if high > high[1] and low > low[1] and BV*1.05 > SV then Color.GREEN else color.black);
AddLabel(yes, "Seller Vol Strong", if high < high[1] and low < low[1] and SV*1.05 > BV then Color.MAGENTA else color.black);
# below determines if price supports the move
AddLabel(yes, "Price Strong ", if high > high[1] and high [1] > high[2] and low > low[1] and low[1] > low[2] then Color.GREEN else color.black);
AddLabel(yes, "Price Weak", if high < high[1] and high[1] < high[2] and low < low[1] and low[1] < low[2] then Color.MAGENTA else color.black);
declare upper;
input price = close;
input displace = 0;
input avglength = 10; #hint avgLength: Then exponential average length you want to use for your pullback entries.
def fastavg = 50;
def slowavg = 200;
plot fastsma = Average( price, fastavg);
fastsma.SetDefaultColor(Color.Green);
plot slowsma = Average(price, slowavg);
slowsma.SetDefaultColor(Color.Red);
# Bullish criteria define below
# Define criteria for Bullish Phase : close > 50 SMA, close > 200 SMA, 50 SMA > 200 SMA
def bullphase = fastsma > slowsma && price > fastsma && price > slowsma;
# Define criteria for Accumulation Phase : close > 50 SMA, close > 200 SMA, 50 SMA < 200 SMA
def accphase = fastsma < slowsma && price > fastsma && price > slowsma;
# Define criteria for Recovery Phase : close > 50 SMA, close < 200 SMA, 50 SMA < 200 SMA
def recphase = fastsma < slowsma && price < slowsma && price > fastsma;
# Bearish Criteria define below
# Define criteria for Bearish Phase : close < 50 SMA, close < 200 SMA, 50 SMA < 200 SMA
def bearphase = fastsma < slowsma && price < fastsma && price < slowsma;
# Define criteria for Distribution Phase : close < 50 SMA, close < 200 SMA, 50 SMA > 200 SMA
def distphase = fastsma > slowsma && price < fastsma && price < slowsma;
# Define criteria for Warning Phase : close < 50 SMA, close > 200 SMA, 50 SMA > 200 SMA
def warnphase = fastsma > slowsma && price > slowsma && price < fastsma;
# Below conditions are for a possible entry when price touches the fastema
#def pbavg = MovingAverage(Average, price, avglength);
def pbavg = ExpAverage(data = price[-displace], length = avglength);
input bullpullback = yes; #hint bullpullback: Do you want to display the pullback arrows for bullish fast ema entries.
input bearpullback = yes; #hint bearpullback: Do you want to display the pullback arrows for bearish fast ema entries.
def bullishpb = low < pbavg && open > pbavg;
def bearishpb = high > pbavg && open < pbavg;
def bullpb = bullphase is true && bullishpb is true;
def bearpb = bearphase is true && bearishpb is true;
# Plot Signals
plot bullpb1 = if bullpullback then bullpb else 0;
bullpb1.SetPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_UP);
bullpb1.SetDefaultColor(Color.CYAN);
bullpb1.SetLineWeight(1);
plot bearpb1 = if bearpullback then bearpb else 0;
bearpb1.SetPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_DOWN);
bearpb1.SetDefaultColor(Color.red);
bearpb1.SetLineWeight(1);
plot buphase = bullphase is true;
plot acphase = accphase is true;
plot rephase = recphase is true;
plot bephase = bearphase is true;
plot dphase = distphase is true;
plot wphase = warnphase is true;
# Below adds labels to the chart to identify what phase the underlying is in
AddLabel(bullphase, " Bull Phase" , if bullphase is true then Color.GREEN else Color.BLACK);
AddLabel(accphase, " Accumation Phase ", if accphase is true then Color.lIGHT_GREEN else Color.BLACK);
AddLabel(recphase, " Recovery Phase ", if recphase is true then Color.lIGHT_ORANGE else Color.BLACK);
AddLabel(warnphase, " Warning Phase ", if warnphase is true then Color.orANGE else Color.BLACK);
AddLabel(distphase, " Distribution Phase ", if distphase is true then Color.light_red else Color.BLACK);
AddLabel(bearphase, " Bear Phase ", if bearphase is true then Color.red else Color.BLACK);
input colorbars = yes;
assignPriceColor(
if !colorbars then color.current else
if bullphase then Color.GREEN else
if bearphase then Color.RED else Color.current);
Alert(condition = bullphase[1] == 1 and bullphase == 0, text = "Bull Phase", sound = Sound.Bell, "alert type" = Alert.BAR);
Alert(condition = accphase[1] == 1 and accphase == 0, text = "Accumation Phase", sound = Sound.Bell, "alert type" = Alert.BAR);
Alert(condition = recphase[1] == 1 and recphase == 0, text = "Recovery Phase", sound = Sound.Bell, "alert type" = Alert.BAR);
Alert(condition = warnphase[1] == 1 and warnphase == 0, text = "Warning Phase", sound = Sound.Bell, "alert type" = Alert.BAR);
Alert(condition = distphase[1] == 1 and distphase == 0, text = "Distribution Phase", sound = Sound.Bell, "alert type" = Alert.BAR);
Alert(condition = bearphase[1] == 1 and bearphase == 0, text = "Bear Phase", sound = Sound.Bell, "alert type" = Alert.BAR);
