Ocean7Deep6- Smart Money For ThinkOrSwim

[Adeodatus]

Ocean7Deep6- Smart Money Velocity Engine Fold​

Searching for a system to run the institutional trade data on the 5 minute chart. a combination of methods to revitalize the theory for institutional trades moving PPS, when and why if the slope, pulse and acceleration will indicate when to enter and exit. (No Option trades)
This version includes Auto-Mod for the 1, 5 and 30 minute charts. will adjust to chart. This version includes Extreme bubbles

#===============================
#===========================================================
# SMART MONEY VELOCITY ENGINE v1.2
# With Auto-Mode + Extreme Bubble Signals
# ADEODATUS 2025_11_30
#===========================================================

declare lower;

#-----------------------------------------------------------
# AUTO-MODE ENGINE
#-----------------------------------------------------------
# 0 = Swing, 1 = Intraday, 2 = Scalp

def agg = GetAggregationPeriod();

def mode =
    if agg <= AggregationPeriod.FIVE_MIN then 2 else
    if agg <= AggregationPeriod.THIRTY_MIN then 1 else
    0;

# Mode-based length scaling
def baseLen = if mode == 2 then 10 else if mode == 1 then 20 else 34;
def accelLen = if mode == 2 then 3 else if mode == 1 then 5 else 8;
def lrLen = if mode == 2 then 10 else if mode == 1 then 20 else 30;
def pulseFast = if mode == 2 then 5 else if mode == 1 then 8 else 13;
def pulseSlow = if mode == 2 then 13 else if mode == 1 then 21 else 34;

# Threshold tuning based on mode
def extremeTop = if mode == 2 then 85 else if mode == 1 then 80 else 75;
def extremeBottom = if mode == 2 then 15 else if mode == 1 then 20 else 25;

#-----------------------------------------------------------
# PRICE + VOLUME PRESSURE (VSMI CORE)
#-----------------------------------------------------------
def H = high;
def L = low;
def C = close;
def V = volume;

def r = if H - L == 0 then 0.0001 else H - L;
def buyP = V * (C - L) / r;
def sellP = V * (H - C) / r;

def VSMI = ExpAverage(buyP - sellP, baseLen);

#-----------------------------------------------------------
# VELOCITY / VW-VELOCITY / ACCELERATION
#-----------------------------------------------------------
def Vel = VSMI - VSMI[1];

def VWVel = Vel * (V / Average(V, baseLen));

def Accel = Vel - Vel[1];
def AccelSm = ExpAverage(Accel, accelLen);

#-----------------------------------------------------------
# LR-SLOPE + INSTITUTIONAL PULSE
#-----------------------------------------------------------
def Slope = Inertia(VSMI, lrLen);

def fast = ExpAverage(C, pulseFast);
def slow = ExpAverage(C, pulseSlow);
def Pulse = fast - slow;

#-----------------------------------------------------------
# COMPOSITE SCORE (0–100)
#-----------------------------------------------------------
def nVel  = (Vel - Lowest(Vel, baseLen)) /
            (Highest(Vel, baseLen) - Lowest(Vel, baseLen) + 0.0001);

def nVW   = (VWVel - Lowest(VWVel, baseLen)) /
            (Highest(VWVel, baseLen) - Lowest(VWVel, baseLen) + 0.0001);

def nAcc  = (AccelSm - Lowest(AccelSm, baseLen)) /
            (Highest(AccelSm, baseLen) - Lowest(AccelSm, baseLen) + 0.0001);

def nSlope = (Slope - Lowest(Slope, baseLen)) /
             (Highest(Slope, baseLen) - Lowest(Slope, baseLen) + 0.0001);

def nPulse = (Pulse - Lowest(Pulse, baseLen)) /
             (Highest(Pulse, baseLen) - Lowest(Pulse, baseLen) + 0.0001);

def CompRaw = (nVel + nVW + nAcc + nSlope + nPulse) / 5;
def CompScore = CompRaw * 100;

#-----------------------------------------------------------
# EXTREME BUBBLE SIGNALS
#-----------------------------------------------------------

# --- Bull Exhaust / Surge
def BullExtreme =
    CompScore > extremeTop and
    AccelSm > 0 and
    nVW > 0.6;

# --- Bear Dump / Unwind
def BearExtreme =
    CompScore < extremeBottom and
    AccelSm < 0 and
    nVW < 0.4;

# --- Acceleration Spike
def AccelSpikeUp = AccelSm > Highest(AccelSm[1], baseLen) and AccelSm > 0;
def AccelSpikeDn = AccelSm < Lowest(AccelSm[1], baseLen) and AccelSm < 0;

#-----------------------------------------------------------
# BUBBLE PLOTTING
#-----------------------------------------------------------
AddChartBubble(
    BullExtreme,
    CompScore,
    "▲ BULL EX",
    Color.GREEN,
    yes
);

AddChartBubble(
    BearExtreme,
    CompScore,
    "▼ BEAR EX",
    Color.RED,
    no
);

AddChartBubble(
    AccelSpikeUp,
    CompScore,
    "bull-top",
    Color.CYAN,
    yes
);

#AddChartBubble(
   # AccelSpikeDn,
   # CompScore,
   # "A-",
   # Color.MAGENTA,
   # no);

#-----------------------------------------------------------
# MAIN PLOTS
#-----------------------------------------------------------
plot pVelocity = Vel;
pVelocity.SetDefaultColor(Color.CYAN);

plot pVW = VWVel;
pVW.SetDefaultColor(Color.YELLOW);

plot pAccel = AccelSm;
pAccel.SetDefaultColor(Color.MAGENTA);

plot pSlope = Slope;
pSlope.SetDefaultColor(Color.ORANGE);

plot pPulse = Pulse;
pPulse.SetDefaultColor(Color.LIGHT_GREEN);

plot pComp = CompScore;
pComp.SetDefaultColor(Color.WHITE);
pComp.SetLineWeight(3);