트렌드 밴드 인디케이터

 

//@version=5

indicator(title='Trend Band', shorttitle='Trend Band', overlay=true,timeframe="",timeframe_gaps=true)


///ＩＮＰＵＴＳ 
int    amp          = input.int(5, "Amplitude1", minval=1)                                   
int    amp1         = input.int(3, "Amplitude2", minval=1)                                   
bool   useHeikin   = false                                    
color  up_col      = input.color(#1dff00, "Up", group="Trend Colors", inline="1")     
color  dn_col      = input.color(#ff0000, "Down", group="Trend Colors", inline="1")  
bool   trend_candl = false                               


filltrend = input(defval=false,title="fill trend?")

maTypeInput = input.string("SMA", title="MA Type", options=["SMA", "ALMA", "EMA", "SMMA (RMA)", "WMA", "VWMA","HMA"], group="MA Settings")

length = input(defval=200,title="Length Moving", group="MA Settings")


ma(source, length, type) =>
    switch type
        "SMA" => ta.sma(source, length)
        "HMA" => ta.hma(source,length)
        "ALMA" => ta.alma(source, length,0.5,6)
        "EMA" => ta.ema(source, length)
        "SMMA (RMA)" => ta.rma(source, length)
        "WMA" => ta.wma(source, length)
        "VWMA" => ta.vwma(source, length)

 

ma_ = ma(close , length ,  maTypeInput)


plot(ma_ , color= color.blue,title="Moving",display=display.none)


type HeikinAshi
    float open
    float high
    float low
    float close

var HeikinAshi ha = HeikinAshi.new(na, na, na, na)   // Initialize Heikin Ashi UDT

var HeikinAshi ha1 = HeikinAshi.new(na, na, na, na)   // Initialize Heikin Ashi UDT


// Variable Initialization
var bool  up_signal = na       
var bool  dn_signal = na      
var color trend_col = na     
var bool  up_signal1 = na       
var bool  dn_signal1 = na      
var color trend_col1 = na     


var float hl_t      = 0.    
var float hl_t1      = 0.    

var float trend_st  = 0.   
var float oc2       = na  

var float trend_st1  = 0.   
var float oc21       = na  

 

///ＣＡＬＣＵＬＡＴＩＯＮＳ
series float closeMA     = ta.sma(close, amp)
series float highestHigh = ta.highest(amp)   
series float lowestLow   = ta.lowest(amp)   

series float closeMA1     = ta.sma(close, amp1) 
series float highestHigh1 = ta.highest(amp1)   
series float lowestLow1   = ta.lowest(amp1)   


///Initialize half trend on the first bar
if barstate.isfirst
    hl_t := close


if barstate.isfirst
    hl_t1 := close

 


///Update half trend value based on conditions
switch 
    closeMA < hl_t and highestHigh < hl_t => hl_t := highestHigh
    closeMA > hl_t and lowestLow   > hl_t => hl_t := lowestLow
    => hl_t := hl_t


switch 
    closeMA1 < hl_t1 and highestHigh1 < hl_t1 => hl_t1 := highestHigh1
    closeMA1 > hl_t1 and lowestLow1   > hl_t1 => hl_t1 := lowestLow1
    => hl_t1 := hl_t1

 

 

// Calculate Heikin Ashi values based on Half Trend
if useHeikin
    ha.close := (nz(ha.open) + nz(ha.high) + nz(ha.low) + hl_t) / 4
    ha.open  := na(ha.open[1]) ? (hl_t + hl_t[1]) / 2 : (nz(ha.open[1]) + nz(ha.close[1])) / 2
    ha.high  := math.max(hl_t, math.max(ha.open, ha.close))
    ha.low   := math.min(hl_t, math.min(ha.open, ha.close))
    oc2      := (ha.close + ha.open) / 2

 

if useHeikin
    ha1.close := (nz(ha1.open) + nz(ha1.high) + nz(ha1.low) + hl_t1) / 4
    ha1.open  := na(ha1.open[1]) ? (hl_t1 + hl_t1[1]) / 2 : (nz(ha1.open[1]) + nz(ha1.close[1])) / 2
    ha1.high  := math.max(hl_t1, math.max(ha1.open, ha1.close))
    ha1.low   := math.min(hl_t1, math.min(ha1.open, ha1.close))
    oc21      := (ha1.close + ha1.open) / 2

 


// Calculate trend strength
trend_st := (ha.high - ha.low) / ta.stdev((ha.high - ha.low), 200)
trend_st := (trend_st * 20) > 100 ? 100 : (trend_st * 20)

trend_st1 := (ha1.high - ha1.low) / ta.stdev((ha1.high - ha1.low), 200)
trend_st1 := (trend_st1 * 20) > 100 ? 100 : (trend_st1 * 20)


// Determine trend color
if ta.crossover(hl_t, hl_t[1])
    trend_col := up_col
if ta.crossunder(hl_t, hl_t[1])
    trend_col := dn_col


if ta.crossover(hl_t1, hl_t1[1])
    trend_col1 := up_col
if ta.crossunder(hl_t1, hl_t1[1])
    trend_col1 := dn_col

 

// Signal conditions for trend direction
float trend_change = (ha.close - ha.open) / ha.open
up_signal := useHeikin ? ta.crossover (trend_change, 0) : ta.crossover (hl_t, hl_t[1]) and ta.change(trend_col == up_col)
dn_signal := useHeikin ? ta.crossunder(trend_change, 0) : ta.crossunder(hl_t, hl_t[1]) and ta.change(trend_col == dn_col)
// }
float trend_change1 = (ha1.close - ha1.open) / ha1.open
up_signal1 := useHeikin ? ta.crossover (trend_change1, 0) : ta.crossover (hl_t1, hl_t1[1]) and ta.change(trend_col1 == up_col)
dn_signal1 := useHeikin ? ta.crossunder(trend_change1, 0) : ta.crossunder(hl_t1, hl_t1[1]) and ta.change(trend_col1 == dn_col)

 

// ＰＬＯＴ ――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――――{
// Heikin Ashi colors
color haColor = ha.close > ha.open
                 ? color.from_gradient(trend_st, 0, 100, color.new(up_col, 70), up_col) 
                 : color.from_gradient(trend_st, 0, 100, color.new(dn_col, 70), dn_col)

color ha_border_col = ha.close > ha.open
                 ? color.from_gradient(trend_st, 0, 70, color.new(up_col, 70), up_col) 
                 : color.from_gradient(trend_st, 0, 70, color.new(dn_col, 70), dn_col)

// Set candle color based on trend
color candle_col = trend_candl ? (useHeikin ? (ha.close > ha.open ? up_col : dn_col) : trend_col) : na


color haColor1 = ha1.close > ha1.open
                 ? color.from_gradient(trend_st1, 0, 100, color.new(up_col, 70), up_col) 
                 : color.from_gradient(trend_st1, 0, 100, color.new(dn_col, 70), dn_col)

color ha_border_col1 = ha1.close > ha1.open
                 ? color.from_gradient(trend_st1, 0, 70, color.new(up_col, 70), up_col) 
                 : color.from_gradient(trend_st1, 0, 70, color.new(dn_col, 70), dn_col) 

// Set candle color based on trend
color candle_col1 = trend_candl ? (useHeikin ? (ha1.close > ha1.open ? up_col : dn_col) : trend_col1) : na


// Plot half trend line
p1 = plot(useHeikin ? na : hl_t, color = trend_col, linewidth = 2, editable = false)
p2 = plot(hl2, display = display.none, editable = false)

p11 = plot(useHeikin ? na : hl_t1, color = trend_col1, linewidth = 2, editable = false)
p21 = plot(hl2, display = display.none, editable = false)

color5 = trend_col1==up_col and filltrend ? color.new(up_col,80) : trend_col1==dn_col and filltrend ? color.new(dn_col,80) : na

fill(p1,p11,title="fill trend",color=color5)

// Fill between lines

// Plot upward signals
plotshape(
         up_signal ? (useHeikin ? oc2 : hl_t[1]) : na, 
         title      = "Up", 
         location   = location.absolute, color=up_col, 
         style      = shape.circle, 
         size       = size.tiny, 
         offset     =-1
         )

// Plot downward signals
plotshape(
         dn_signal ? (useHeikin ? oc2 : hl_t[1]) : na, 
         title      = "Down",
         location   = location.absolute,
         color      = dn_col, 
         style      = shape.circle, 
         size       = size.tiny, 
         offset     =-1
         )


plotshape(
         up_signal1 ? (useHeikin ? oc21 : hl_t1[1]) : na, 
         title      = "Up1", 
         location   = location.absolute, color=up_col, 
         style      = shape.circle, 
         size       = size.tiny, 
         offset     =-1
         )

// Plot downward signals
plotshape(
         dn_signal1 ? (useHeikin ? oc21 : hl_t1[1]) : na, 
         title      = "Down1",
         location   = location.absolute,
         color      = dn_col, 
         style      = shape.circle, 
         size       = size.tiny, 
         offset     =-1
         )