Переделайте пожалуйста под MT4.
/*[[
Name := CoeffOfLine
Author := Copyright c 2004, MetaQuotes Software Corp.
Link := metaquotes.net/
Notes := Вычисляет наклон линии через метод наименьшего квадратичного отклонения
Separate Window := Yes
First Color := Blue
First Draw Type := Line
First Symbol := 217
Use Second Data := No
Second Color := Red
Second Draw Type := Line
Second Symbol := 217
]]*/
// Вычисляем для функции Y=A*X+B коэффициент А для цен и значений индикаторов
// Считаем значения Х=1,2,3,4,5 . Константу B не вычисляем, так как не имеет смысла. B=(T-A*M)/, где n=5
// T=Сумма Yi, M=Сумма Xi, N=Сумма Xi*Xi, Z=Сумма Xi*Yi
// A=(T+(N-2*Z)*n/M)/M
// Вычисляем отношение Aцен/Aиндикатора
Inputs: BeginBars(100);
Variable : shift(0),cnt(0),TYVar(0),ZYVar(0),TIndicatorVar(0),ZIndicatorVar(0),M(0),N(0),AY(0),AIndicator(0), ndot(5);
SetLoopCount(0);
// loop from first bar to current bar (with shift=0)
For shift=BeginBars Downto 0 Begin
{
TYVar=0);
ZYVar=0;
TIndicatorVar=0;
ZIndicatorVar=0;
For cnt=ndot DownTo 1 Begin // n=5 - по пяти точкам
ZYVar=ZYVar+(H[shift-cnt+1]+L[shift-cnt+1])/2*(6-cnt);
TYVar=TYVar+(H[shift-cnt+1]+L[shift-cnt+1])/2;
//N=N+cnt*cnt; равно 55
//M=M+cnt; равно 15
ZIndicatorVar=ZIndicatorVar+iAlligator(13,8,8,5,5,3,MODE_SMMA, PRICE_MEDIAN,MODE_GATORLIPS,shift-cnt+1)*(6-cnt);
TIndicatorVar=TIndicatorVar+iAlligator(13,8,8,5,5,3,MODE_SMMA, PRICE_MEDIAN,MODE_GATORLIPS,shift-cnt+1);
AY=(TYVar+(55-2*ZYVar)*5/15)/15;
AIndicator=(TIndicatorVar+(55-2*ZIndicatorVar)*5/15)/15;
End;
SetIndexValue(shift, (-1000)*Log(AY/AIndicator));
}
End;