Ehlers Stochastic Center Of Gravity [CC]

// Copyright (c) 2019-present, Franklin Moormann (cheatcountry)
// Ehlers Stochastic Center Of Gravity [CC] script may be freely distributed under the MIT license.
// ------------------------------------------------------------------------------------------------
// Original author:  cheatcountry
// Original title:   Ehlers Stochastic Center Of Gravity [CC]
// Licence:          MIT (the header above is the original notice, kept verbatim)
// Pine version:     5
// Fetched:          2026-10-12
// Ported to FloScript by FloSignals; modifications under MPL-2.0.
// Converter:        @flosignals/floscript 0.1.0, strict mode, score 100/100
// ------------------------------------------------------------------------------------------------
//@floscript=1
//@version=5
indicator('Ehlers Stochastic Center Of Gravity [CC]', overlay=false)

inp = input(title='Source', defval=hl2)
res = input.timeframe(title='Resolution', defval='')
rep = input(title='Allow Repainting?', defval=false)
bar = input(title='Allow Bar Color Change?', defval=true)
length = input.int(title='Length', defval=8, minval=1)
src = inp[rep ? 0 : barstate.isrealtime ? 1 : 0][rep ? 0 : barstate.isrealtime ? 0 : 1]

num = 0.0
denom = 0.0
for i = 0 to length - 1 by 1
    num += (1 + i) * nz(src[i])
    denom += nz(src[i])
    denom

cg = denom != 0 ? -num / denom + (length + 1) / 2 : 0
maxCg = ta.highest(cg, length)
minCg = ta.lowest(cg, length)
v1 = maxCg != minCg ? (cg - minCg) / (maxCg - minCg) : 0
v2 = (4 * v1 + 3 * nz(v1[1]) + 2 * nz(v1[2]) + nz(v1[3])) / 10

scg = 2 * (v2 - 0.5)
trigger = 0.96 * (nz(scg[1]) + 0.02)

float slo = scg - trigger
int sig = slo > 0 ? (slo > nz(slo[1]) ? 2 : 1) : slo < 0 ? (slo < nz(slo[1]) ? -2 : -1) : 0
alertcondition(ta.crossover(sig, 1), 'Strong Buy Signal', 'Strong Bullish Change Detected')
alertcondition(ta.crossunder(sig, -1), 'Strong Sell Signal', 'Strong Bearish Change Detected')
alertcondition(ta.crossover(sig, 0), 'Buy Signal', 'Bullish Change Detected')
alertcondition(ta.crossunder(sig, 0), 'Sell Signal', 'Bearish Change Detected')
color scgColor = sig > 1 ? color.green : sig > 0 ? color.lime : sig < -1 ? color.maroon : sig < 0 ? color.red : color.black
barcolor(bar ? scgColor : na)
plot(scg, title='SCG', color=scgColor, linewidth=2)
plot(trigger, title='Trigger', color=color.new(color.black, 0), linewidth=1)

This file is under the MIT License; it is a port of the original by cheatcountry, with the original licence header kept and the changes made for FloScript noted in the file.

• v22026-10-14

  Library refresh 2026-10-14

• v12026-10-12

  Library refresh 2026-10-12