mod note:
This is a context filter layered behind your actual entry tools—VWAP, EMAs, CVD, liquidity levels, or your group’s TMO setups. It tells you whether the environment supports the trade you want to take. When Trend Quality and Dominance agree with your setup, you’re trading with the wind at your back. When they don’t, you’re stepping into chop.
This is in lower chart showing the Trend Speed Analyzer by Zeiierman, brought by samer800, with another fold in the script. It will use dynamic plots for the Green/Red dash line (shows trend speed), Acceleration factor, Direct Acceleration plotting, Trend Quality, a zero line and Bull Dominance. They are up to you to change how they look. DYODD
TPS Green/Red dashed line
Accel Factor Yellow up pointer
Direct Accel Cyan dash line
Trend Qual. Purple arrow
Zero line White line
Bull Dominance White arrow
This is a context filter layered behind your actual entry tools—VWAP, EMAs, CVD, liquidity levels, or your group’s TMO setups. It tells you whether the environment supports the trade you want to take. When Trend Quality and Dominance agree with your setup, you’re trading with the wind at your back. When they don’t, you’re stepping into chop.
This is in lower chart showing the Trend Speed Analyzer by Zeiierman, brought by samer800, with another fold in the script. It will use dynamic plots for the Green/Red dash line (shows trend speed), Acceleration factor, Direct Acceleration plotting, Trend Quality, a zero line and Bull Dominance. They are up to you to change how they look. DYODD
Code:
# ================================
# TREND QUALITY ANALYZER #
# Momentum + Acceleration Model #
# AdeodatusTravelLink Series - 2/2026 #
# ================================
declare lower;
# ---- Inputs ----
input accelLookback = 20;
input alpha_base = 0.15;
input AcceleratorMultiplier = 2.0;
input smoothLen = 5;
# ---- Core Price Delta ----
def delta = AbsValue(close - close[1]);
# ---- Max Delta Normalization ----
def max_delta = Highest(delta, accelLookback);
# Prevent divide-by-zero
def safe_max_delta = if max_delta == 0 then 1 else max_delta;
# ---- Acceleration Factor (0–1) ----
def accel_factor =
Min(delta / safe_max_delta, 1);
# ---- Adaptive Alpha ----
def alpha =
Min(alpha_base * (1 + accel_factor * AcceleratorMultiplier), 1);
# ---- Directional Acceleration ----
def dir_accel =
(close - close[1]) / safe_max_delta;
# ---- Momentum (Velocity) ----
def speed = close - close[1];
# ---- Adaptive Momentum Smoothing ----
rec adaptiveSpeed =
alpha * speed + (1 - alpha) * adaptiveSpeed[1];
# ---- Trend Speed (Low-Lag Hull) ----
def trendspeed = HullMovingAvg(adaptiveSpeed, smoothLen);
# ---- Trend Quality Score ----
# Combines direction + acceleration + smooth impulse
def trendQuality =
trendspeed * accel_factor;
# ---- Bull / Bear Components ----
def bullPower = Max(trendQuality, 0);
def bearPower = AbsValue(Min(trendQuality, 0));
# ---- Dominance Ratio ----
def dominance =
bullPower / (bullPower + bearPower);
# ================================
# PLOTS
# ================================
plot TrendSpeedPlot = trendspeed;
TrendSpeedPlot.SetLineWeight(1);
TrendSpeedPlot.AssignValueColor(
if trendspeed > 0 then Color.GREEN else Color.RED
);
plot AccelFactorPlot = accel_factor;
AccelFactorPlot.SetDefaultColor(Color.YELLOW);
AccelFactorPlot.SetLineWeight(1);
plot DirAccelPlot = dir_accel;
DirAccelPlot.SetDefaultColor(Color.CYAN);
DirAccelPlot.SetLineWeight(1);
plot TrendQualityPlot = trendQuality;
TrendQualityPlot.SetDefaultColor(Color.WHITE);
TrendQualityPlot.SetLineWeight(2);
plot ZeroLine = 0;
ZeroLine.SetDefaultColor(Color.DARK_GRAY);
# ---- Dominance Reference ----
plot BullDominance = dominance;
BullDominance.SetDefaultColor(Color.GREEN);
BullDominance.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);
BullDominance.SetLineWeight(1);
# ================================
# LABELS
# ================================
AddLabel(
yes,
"Accel: " + Round(accel_factor, 2) +
" | Alpha: " + Round(alpha, 2),
Color.GRAY
);
AddLabel(
yes,
if dominance > 0.6 then "BULL DOMINANT"
else if dominance < 0.4 then "BEAR DOMINANT"
else "NEUTRAL",
if dominance > 0.6 then Color.GREEN
else if dominance < 0.4 then Color.RED
else Color.YELLOW
);TPS Green/Red dashed line
Accel Factor Yellow up pointer
Direct Accel Cyan dash line
Trend Qual. Purple arrow
Zero line White line
Bull Dominance White arrow
Last edited by a moderator:
