Напишите кто-нибудь индикатор по этому коду.....
/*[[
Name := smoothes plusdi/minusdi
Separate Window := Yes
First Color := LawnGreen
First Draw Type := Line
First Symbol := 217
Use Second Data :=Yes
Second Color := Red
Second Draw Type := Line
Second Symbol := 218
]]*/
Input : adxperiod(14),t3_period(10),b(0.7);
Variable : shift(0);
Variable : t3(0);
Variable : e1(0),e2(0),e3(0),e4(0),e5(0),e6(0),c1(0),c2(0),c3(0),c4(0);
Variable : ae1(0),ae2(0),ae3(0),ae4(0),ae5(0),ae6(0),ac1(0),ac2(0),ac3(0),ac4(0);
Variable : n(0),w1(0),w2(0),b2(0),b3(0);
Variable : plusdi(0),minusdi(0);
b2=b*b;
b3=b2*b;
c1=-b3;
c2=(3*(b2+b3));
c3=-3*(2*b2+b+b3);
c4=(1+3*b+b3+3*b2);
n=t3_period;
if n<1 then n=1;
n = 1 + 0.5*(n-1);
w1 = 2 / (n + 1);
w2 = 1 - w1;
SetLoopCount(0);
For shift = Bars-1 Downto 0 Begin
//SetIndexValue(shift, 0);
plusdi= iADX(adxperiod,MODE_PLUSDI,shift);
minusdi= iADX(adxperiod,MODE_minusdi,shift);
e1 = w1*plusdi + w2*e1;
e2 = w1*e1 + w2*e2;
e3 = w1*e2 + w2*e3;
e4 = w1*e3 + w2*e4;
e5 = w1*e4 + w2*e5;
e6 = w1*e5 + w2*e6;
plusdi = c1*e6 + c2*e5 + c3*e4 + c4*e3;
ae1 = w1*minusdi + w2*ae1;
ae2 = w1*ae1 + w2*ae2;
ae3 = w1*ae2 + w2*ae3;
ae4 = w1*ae3 + w2*ae4;
ae5 = w1*ae4 + w2*ae5;
ae6 = w1*ae5 + w2*ae6;
minusdi = c1*ae6 + c2*ae5 + c3*ae4 + c4*ae3;
SetIndexValue(shift, plusdi);
setindexvalue2(shift,minusdi);
End;
Посмотрю, что за индюк.....