//A-B trend
n = inparam("Интервал для Лин.Рег.", 2, 30, 15);
n1 = inparam("Интервал для Канала", 2, 30, 10);
s = inparam("Ширина канала", 0.01, 5, 1.2);
X=cum(0.0001);
Y=c;
X2=X*X;
XY=X*Y;
SXY=Sum(XY,n);
SX=Sum(X,n);
SX2=Sum(X2,n);
SY=Sum(Y,n);
m=(n*SXY-SX*SY)/(n*SX2-SX*SX);
b=(SY-M*SX)/n;
LR=m*X+b;

b1=bollinger_1(c, n1, e); //болинджер экспоненциальный
b2=bollinger_2(c, n1, e);
EMA=mov(c,n1,e);          //соответственно и срендняя тоже  
nb1=(s*b1+EMA*(2.5-s))/2.5;  //меняем ширину канала
nb2=(s*b2+EMA*(2.5-s))/2.5;

LR;
nb1;
nb2;