/*[[
	Name := T3_MQEA
	Author := Copyright © 2003, Company
	Link := http://www.company.com/
	Separate Window := No
	First Color := Blue
	First Draw Type := Line
	First Symbol := 217
	Use Second Data :=No
	Second Color := Red
	Second Draw Type := Line
	Second Symbol := 218
]]*/

Input    : t3_period(60),barCount(500);
Variable : shift(0);
Variable : t3(0);
Variable : e1(0),e2(0),e3(0),e4(0),e5(0),e6(0);
Variable : c1(0),c2(0),c3(0),c4(0);
Variable : n(0),w1(0),w2(0),b(0),b2(0),b3(0);

e1=0; e2=0; e3=0; e4=0; e5=0; e6=0;
c1=0; c2=0; c3=0; c4=0; 
n=0; w1=0; w2=0; b=0; b2=0; b3=0;

b=0.7;
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 = barCount-1 Downto 0 Begin
  SetIndexValue(shift, 0);
  
  e1 = w1*Close[shift] + 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;

  t3 = c1*e6 + c2*e5 + c3*e4 + c4*e3;
 
  SetIndexValue(shift, t3);
End;