GHLA SuperTrend CCI HighLow Activator For ThinkOrSwim

[cando13579]

GHLA SuperTrend CCI High-Low Activator Oscillator
A multi-layered trend and momentum indicator that combines Gann-inspired high/low levels, a SuperTrend mechanism, and a custom CCI oscillator. It provides dynamic entry and exit signals, confirming bullish or bearish trends while filtering out market noise. The accompanying oscillator visually represents trend strength and direction, allowing traders to quickly identify opportunities and avoid indecision zones.

# GHLA_SuperTrend_CCI_High_Low_Activator_Oscillator
#By CANDO13579
 
declare lower;
declare real_size;
input ghlaPeriod = 10;
input stPeriod = 14;
input stShiftTicks = 20.0;
input useFilter = yes;

def minTick = TickSize();
def shift = stShiftTicks * minTick;

# -----------------------------
# GHLA Logic
# -----------------------------
def ghlaAvgH = Average(high, ghlaPeriod);
def ghlaAvgL = Average(low, ghlaPeriod);

def sw = if close > ghlaAvgH then 1
         else if close < ghlaAvgL then -1
         else 0;

def ghlaDir = CompoundValue(1, if sw != 0 then sw else ghlaDir[1], 0);
def ghlaLevel = if ghlaDir < 0 then ghlaAvgH else ghlaAvgL;

# -----------------------------
# Custom CCI using Typical Price
# -----------------------------
def tp = (high + low + close) / 3;
def tpSMA = Average(tp, stPeriod);
def meanDev = Average(AbsValue(tp - tpSMA), stPeriod);
def cciValue = if meanDev == 0 then 0 else (tp - tpSMA) / (0.015 * meanDev);

# -----------------------------
# SuperTrend State Machine
# -----------------------------

# stFlag: 1=long, -1=short
rec stFlag = if IsNaN(stFlag[1]) then if cciValue >= 0 then 1 else -1
             else if cciValue > 0 and stFlag[1] <= 0 then 1
             else if cciValue < 0 and stFlag[1] >= 0 then -1
             else stFlag[1];

rec st = if IsNaN(st[1]) then if cciValue >= 0 then low - shift else high + shift
         else
            if cciValue > 0 and stFlag[1] <= 0 then low - shift
            else if cciValue < 0 and stFlag[1] >= 0 then high + shift
            else
                if stFlag > 0 and (low - shift) > st[1] then low - shift
                else if stFlag < 0 and (high + shift) < st[1] then high + shift
                else
                    if useFilter and stFlag > 0 and st[1] < st[1] and (close < open or high < high[1]) then st[1]
                    else if useFilter and stFlag < 0 and st[1] > st[1] and (close > open or low > low[1]) then st[1]
                    else st[1];

# -----------------------------
# signals
# -----------------------------
def notNaST = !IsNaN(st);
def upSignal = notNaST and close > st and close > ghlaLevel;
def downSignal = notNaST and close < st and close < ghlaLevel;
def neutralSignal = notNaST and !upSignal and !downSignal;

# -----------------------------
# Output (centered)
# -----------------------------
def signalCenter = 0;
plot Sig = signalCenter;
Sig.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Sig.SetLineWeight(4);

Sig.AssignValueColor(
    if upSignal then Color.GREEN
    else if downSignal then Color.RED
    else Color.LIGHT_GRAY
);

# Boundary reference lines
# -----------------------------
plot UpperLine = 1;
UpperLine.SetDefaultColor(Color.DARK_GRAY);
UpperLine.SetStyle(Curve.SHORT_DASH);

plot LowerLine = -1;
LowerLine.SetDefaultColor(Color.DARK_GRAY);
LowerLine.SetStyle(Curve.SHORT_DASH);

# Gann High/Low Activator Oscillator

input activatorPeriod = 14;

# Calculate simple moving averages
def avgHigh = Average(high, activatorPeriod);
def avgLow = Average(low, activatorPeriod);

# Determine state
def bullState = close > avgHigh;
def bearState = close < avgLow;

# Track the last valid state
def lastState = CompoundValue(1,
    if bullState then 1
    else if bearState then -1
    else lastState[1],
0);

def avgRange = avgHigh - avgLow;
def oscillator =
    if avgRange != 0 then
        if lastState == 1 then (close - avgLow) / avgRange
        else if lastState == -1 then (close - avgHigh) / avgRange
        else 0.5
    else 0.5;

# Plot oscillator
plot GannOsc = oscillator;
GannOsc.SetLineWeight(2);
GannOsc.AssignValueColor(
    if lastState == 1 then CreateColor(0, 255, 0) # Green
    else if lastState == -1 then CreateColor(255, 165, 0) # Orange
    else Color.GRAY
);

# Plot midline
plot MidLine = 0.5;
MidLine.SetDefaultColor(Color.LIGHT_GRAY);
MidLine.SetStyle(Curve.SHORT_DASH);

 

[SethW446]

GHLA SuperTrend CCI High-Low Activator Oscillator
A multi-layered trend and momentum indicator that combines Gann-inspired high/low levels, a SuperTrend mechanism, and a custom CCI oscillator. It provides dynamic entry and exit signals, confirming bullish or bearish trends while filtering out market noise. The accompanying oscillator visually represents trend strength and direction, allowing traders to quickly identify opportunities and avoid indecision zones.

Wow. Great job on this one! I tried to duplicate the SR-type lines for the upper. It works, yours is better. Would you add the code for that as well. Thanks again.