/*[[
	Name := t3_Aroon_2_Smoothed
	Author := Copyright © 2004, David W Honeywell
	Link := DavidHon@msn.com
	Notes := Smoothed Aroon Horn
	Separate Window := Yes
	First Color := RosyBrown
	First Draw Type := Line
	First Symbol := 217
	Use Second Data :=Yes
	Second Color := Red
	Second Draw Type := Line
	Second Symbol := 218
	Minimum Chart Limits := -5.000000
	Maximum Chart Limits := 105.000000
]]*/

Input    : t3_period(5),Aroon1(12),Aroon2(12),b(0.618);

Variable : t3(0),t32(0),A1(0),A2(0),shift(0);
Variable : b2(0),b3(0);
Variable : c1(0),c2(0),c3(0),c4(0);
Variable : e1(0),e2(0),e3(0),e4(0),e5(0),e6(0);
Variable : n(0),w1(0),w2(0);

Variable : e12(0),e22(0),e32(0),e42(0),e52(0),e62(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);

A1 = iCustom("t3_Aroon_1_Aroon_Not_Smoothed",Aroon1,Mode_First,shift);

e1 = w1*A1 + 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);

A2 = iCustom("t3_Aroon_1_Aroon_Not_Smoothed",Aroon2,MODE_SECOND,shift);

e12 = w1*A2 + w2*e12;
e22 = w1*e12 + w2*e22;
e32 = w1*e22 + w2*e32;
e42 = w1*e32 + w2*e42;
e52 = w1*e42 + w2*e52;
e62 = w1*e52 + w2*e62;

t32 = c1*e62 + c2*e52 + c3*e42 + c4*e32;

SetIndexValue2(shift,t32);

End;