//------------------- Keltner Channels ATR -------------------------
src = CustomClose
//
//-------------------------------------------------------------------
// - KC 1
ONCE AVGp1 = 10 //10 MA periods
ONCE t1 = 0 //0 = sma
ONCE ATRp1 = 10 //10 ATR periods
ONCE Coeff1 = 1.0 //1.0 Atr multiplier
MyAVG1 = average[AVGp1,t1](src)
MyATR1 = AverageTrueRange[ATRp1](src) * Coeff1
KCupper1 = MyAVG1 + MyATR1
KClower1 = MyAVG1 - MyATR1
//-------------------------------------------------------------------
// - KC 2
ONCE AVGp2 = 20 //20 MA periods
ONCE t2 = 0 //0 = sma
ONCE ATRp2 = 20 //20 ATR periods
ONCE Coeff2 = 2.0 //2.0 Atr multiplier
MyAVG2 = average[AVGp2,t2](src)
MyATR2 = AverageTrueRange[ATRp2](src) * Coeff2
KCupper2 = MyAVG2 + MyATR2
KClower2 = MyAVG2 - MyATR2
//-------------------------------------------------------------------
// - KC 3
ONCE AVGp3 = 30 //30 MA periods
ONCE t3 = 0 //0 = sma
ONCE ATRp3 = 30 //30 ATR periods
ONCE Coeff3 = 3.0 //3.0 Atr multiplier
MyAVG3 = average[AVGp3,t3](src)
MyATR3 = AverageTrueRange[ATRp3](src) * Coeff3
KCupper3 = MyAVG3 + MyATR3
KClower3 = MyAVG3 - MyATR3
//-------------------------------------------------------------------
// Force Index
//FI = (close - close[1]) * volume
//-------------------------------------------------------------------
RETURN KCupper1 AS "KCupper1",KClower1 AS "KClower1",KCupper2 AS "KCupper2",KClower2 AS "KClower2",KCupper3 AS "KCupper3",KClower3 AS "KClower3"//,FI AS "Force Index"
.
.
