Multiple Keltner Channel Lines For ThinkOrSwim

[RS Trader]

I would like to have the inputs of the Keltner Channel indicator changed to include multiple factor settings so multiple ATR lines can be displayed. I accomplished this in a study setting by having 4 Keltner Channels included in the study. After saving the study, it won't hold together when applying the study to a different chart. Just a single (standard) factor ATR line is shown. Here is what I'm looking for. These factor input settings are 1.5, 2.5, 3.5, 4.5. I would like to have the option of setting the factor input to any multiple. Thanks

 

[henry1224]

# Indicator that presents ATR 1,2,3,4 above and below using Keltner channel formula
input displace = 0;
input factor1 = 1.0;
input factor2 = 2.0;
input factor3 = 3.0;
input factor4 = 4.0;
input length = 21;
input price = close;
input averageType = AverageType.SIMPLE;
input trueRangeAverageType = AverageType.SIMPLE;

def shift1 = factor1 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);
def shift2 = factor2 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);
def shift3 = factor3 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);
def shift4 = factor4 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);

plot average = MovingAverage(averageType, price, length);
average.SetDefaultColor(GetColor(4));

plot Upper_Band1 = average[-displace] + shift1[-displace];
Upper_Band1 .SetDefaultColor(GetColor(6));
plot Upper_Band2  = average[-displace] + shift2[-displace];
Upper_Band2 .SetDefaultColor(GetColor(0));
plot Upper_Band3 = average[-displace] + shift3[-displace];
Upper_Band3.SetDefaultColor(GetColor(5));
plot Upper_Band4 = average[-displace] + shift4[-displace];
Upper_Band4.SetDefaultColor(GetColor(8));

plot Lower_Band1 = average[-displace] - shift1[-displace];
Lower_Band1 .SetDefaultColor(GetColor(6));
plot Lower_Band2  = average[-displace] - shift2[-displace];
Lower_Band2 .SetDefaultColor(GetColor(0));
plot Lower_Band3 = average[-displace] - shift3[-displace];
Lower_Band3.SetDefaultColor(GetColor(5));
plot Lower_Band4 = average[-displace] - shift4[-displace];
Lower_Band4.SetDefaultColor(GetColor(8));

AddCloud(Upper_Band1, Lower_Band1, Color.LIME, CreateColor(175, 250, 175), no);
AddCloud(Upper_Band3, Upper_Band2, Color.PINK, CreateColor(175, 250, 175), no);
AddCloud(Lower_Band2, Lower_Band3, Color.PINK, CreateColor(175, 250, 175), no);

 

[RS Trader]

# Indicator that presents ATR 1,2,3,4 above and below using Keltner channel formula
input displace = 0;
input factor1 = 1.0;
input factor2 = 2.0;
input factor3 = 3.0;
input factor4 = 4.0;
input length = 21;
input price = close;
input averageType = AverageType.SIMPLE;
input trueRangeAverageType = AverageType.SIMPLE;

def shift1 = factor1 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);
def shift2 = factor2 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);
def shift3 = factor3 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);
def shift4 = factor4 * MovingAverage(trueRangeAverageType, TrueRange(high, close, low), length);

plot average = MovingAverage(averageType, price, length);
average.SetDefaultColor(GetColor(4));

plot Upper_Band1 = average[-displace] + shift1[-displace];
Upper_Band1 .SetDefaultColor(GetColor(6));
plot Upper_Band2  = average[-displace] + shift2[-displace];
Upper_Band2 .SetDefaultColor(GetColor(0));
plot Upper_Band3 = average[-displace] + shift3[-displace];
Upper_Band3.SetDefaultColor(GetColor(5));
plot Upper_Band4 = average[-displace] + shift4[-displace];
Upper_Band4.SetDefaultColor(GetColor(8));

plot Lower_Band1 = average[-displace] - shift1[-displace];
Lower_Band1 .SetDefaultColor(GetColor(6));
plot Lower_Band2  = average[-displace] - shift2[-displace];
Lower_Band2 .SetDefaultColor(GetColor(0));
plot Lower_Band3 = average[-displace] - shift3[-displace];
Lower_Band3.SetDefaultColor(GetColor(5));
plot Lower_Band4 = average[-displace] - shift4[-displace];
Lower_Band4.SetDefaultColor(GetColor(8));

AddCloud(Upper_Band1, Lower_Band1, Color.LIME, CreateColor(175, 250, 175), no);
AddCloud(Upper_Band3, Upper_Band2, Color.PINK, CreateColor(175, 250, 175), no);
AddCloud(Lower_Band2, Lower_Band3, Color.PINK, CreateColor(175, 250, 175), no);

Fantastic Henry1224. Looks like just what I was looking for. You just made my Holiday Merrier. The best to you and your family. Thanks

 

[TOSTrader2020]

@henry1224 Thank you for the fantastic script.
@RS Trader I used to trade along only 3 STD but now i see few more..could you also share any trade ideas..because this looks more interesting.
Thank you in advance @henry1224 and @RS Trader