#https://usethinkscript.com/threads/bollinger-bands-and-keltner-bands-for-thinkorswim.10509/page-2#posts
#https://www.tradingview.com/script/uSBR7cFa-Bull-Market-Support-Band-20w-SMA-21w-EMA/
#Bollinger bands and Keltner bands
#https://usethinkscript.com/threads/fw_mobo_advanced-indicator.10525/#post-93508
#https://usethinkscript.com/threads/blsh-for-thinkorswim.11013/
#[URL]https://www.tradingview.com/script/uSBR7cFa-Bull-Market-Support-Band-20w-SMA-21w-EMA/[/URL]
#© legroszach
def source = close;
def smaLength = 20;
def emaLength = 21;
def length_c = 25;
def profit = 5;
def LOW25 = lowest(low, length_c);
def GTT = LOW25*1.05;
def TARGET = GTT*1.05;
def sma = Average(source, smaLength);
def ema = ExpAverage(source, emaLength);
plot LineSma = sma;
LineSma.DefineColor("UpTrend", Color.GREEN);
LineSma.DefineColor("DownTrend", Color.RED);
LineSma.SetLineWeight(3);
LineSma.SetPaintingStrategy(PaintingStrategy.LINE);
LineSma.SetStyle(Curve.FIRM);
LineSma.AssignValueColor(if LineSma > LineSma [1] then LineSma.Color("UpTrend") else LineSma.Color("DownTrend"));
plot LineEma = ema;
LineEma.DefineColor("UpTrend", Color.LIGHT_GREEN);
LineEma.DefineColor("DownTrend", Color.LIGHT_RED);
LineEma.SetLineWeight(3);
LineEma.SetPaintingStrategy(PaintingStrategy.LINE);
LineEma.SetStyle(Curve.FIRM);
LineEma.AssignValueColor(if LineEma > LineEma [1] then LineEma.Color("UpTrend") else LineEma.Color("DownTrend"));
AddCloud (sma, ema, Color.CYAN, Color.CYAN);
input price = close;
input displace = 0;
input length = 5;
input Num_Dev_Dn = -1.0;
input Num_Dev_up = 1.0;
input averageType = AverageType.Simple;
input price_C = FundamentalType.CLOSE;
input aggregationPeriod = AggregationPeriod.DAY;
input averageType_c = AverageType.EXPONENTIAL;
input ma3 = 20;
plot Ema20 = MovingAverage(averageType_c, Fundamental(price_c, period = aggregationPeriod), ma3);
Ema20.DefineColor("Up Trend", Color.GREEN);
Ema20.DefineColor("Down Trend", Color.RED);
Ema20.AssignValueColor(if Ema20 > Ema20[1] then Ema20.Color("Up Trend") else Ema20.Color("Down Trend"));
Ema20.SetLineWeight(3);
def sDev = stdev(data = price[-displace], length = length);
def nan = Double.NaN;
input fill = yes;
def MidLine = MovingAverage(averageType, data = price[-displace], length = length);
plot LowerBand = MidLine + num_Dev_Dn * sDev;
plot UpperBand = MidLine + num_Dev_Up * sDev;
LowerBand.SetDefaultColor(GetColor(0));
#MidLine.SetDefaultColor(GetColor(1));
UpperBand.SetDefaultColor(GetColor(5));
plot ArrowUp = if close crosses above UpperBand
then close
else double.nan;
plot ArrowDn = if close crosses below LowerBand
then close
else double.nan;
input price_a = close;
input length_a = 20;
input Num_Dev_Dn_a = -2.0;
input Num_Dev_up_a = 2.0;
input factor = 1.5;
input length_1 = 20;
input trueRangeAverageType = AverageType.SIMPLE;
def sDev_a = StDev(data = price_a[-displace], length = length_a);
def MidLine_a = MovingAverage(averageType, data = price_a[-displace], length = length_a);
plot LowerBand_a = MidLine_a + Num_Dev_Dn_a * sDev_a;
plot UpperBand_a = MidLine_a + Num_Dev_up_a * sDev_a;
LowerBand.SetDefaultColor(GetColor(0));
UpperBand.SetDefaultColor(GetColor(5));
def shift = factor * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length_a);
def average = MovingAverage(averageType, price_a, length_a);
def Avg_a = average[-displace];
#Avg.SetDefaultColor(GetColor(1));
plot Upper_Band = average[-displace] + shift[-displace];
Upper_Band.SetDefaultColor(GetColor(8));
plot Lower_Band = average[-displace] - shift[-displace];
Lower_Band.SetDefaultColor(GetColor(5));
AddCloud(UpperBand_a, Upper_Band, Color.CYAN);
AddCloud (LowerBand_a, Lower_Band, Color.LIGHT_GREEN, Color.YELLOW);
UpperBand.DefineColor("Up Trend", Color.GREEN);
UpperBand.DefineColor("Down Trend", Color.RED);
UpperBand.AssignValueColor(if UpperBand > UpperBand[1] then UpperBand.Color("Up Trend") else UpperBand.Color("Down Trend"));
UpperBand.SetLineWeight(1);
LowerBand.DefineColor("Up Trend", Color.GREEN);
LowerBand.DefineColor("Down Trend", Color.RED);
LowerBand.AssignValueColor(if LowerBand > LowerBand[1] then LowerBand.Color("Up Trend") else LowerBand.Color("Down Trend"));
LowerBand.SetLineWeight(1);
def a = (UpperBand > UpperBand[1] and Midline > Midline[1]);
def b = (UpperBand < UpperBand[1] and LowerBand < LowerBand[1]);
def c = (UpperBand > UpperBand[1] and Midline > Midline[1]);
def d = (UpperBand < UpperBand[1] and midline < midline[1]);
def e = Average(close) > midline;
def f = midline < Average(close);
def Chg = If((UpperBand > UpperBand[1] and LowerBand > LowerBand[1]), 1, If((UpperBand < UpperBand[1] and LowerBand < LowerBand[1]), -1, 0));
def Hold = CompoundValue(1, If(Hold[1] == Chg or Chg == 0, Hold[1], If(Chg == 1, 1, -1)), 0);
def LBUp = if fill and Hold[0] == 1 then lowerBand else nan;
def UBUp = if fill and Hold[0] == 1 then upperband else nan;
def LBDn = if fill and Hold[0] == -1 then lowerband else nan;
def UBDn = if fill and Hold[0] == -1 then upperband else nan;
DefineGlobalColor("Cloud Up", Color.MAGENTA);
DefineGlobalColor("Cloud Dn", Color.GREEN);
AddCloud(LBUp, UBUp, GlobalColor("Cloud Up"), GlobalColor("Cloud Dn"));
AddCloud(LBDn, UBDn, GlobalColor("Cloud Dn"), GlobalColor("Cloud Up"));
plot lineGTT = GTT;
lineGTT.AssignValueColor(if lineGTT> lineGTT[1] then Color.GREEN else if lineGTT <lineGTT[1] then Color.MAGENTA else color.light_gray);
lineGTT.SetLineWeight(3);
plot LineLowe25 = LOW25;
LineLowe25.AssignValueColor(if LineLowe25> LineLowe25[1] then Color.light_GREEN else if LineLowe25 <LineLowe25[1] then Color.light_red else color.yellow);
LineLowe25.SetLineWeight(3);
plot LineTarget = TARGET;
LineTarget.AssignValueColor(if LineTarget> LineTarget[1] then Color.dark_GREEN else if LineTarget<LineTarget[1] then Color.red else color.white);
LineTarget.SetLineWeight(4);
