Filter = Close > 0.1;
Filter = Volume > 1;
i=0;

_SECTION_BEGIN("Aroon");
L14 = LLV( Low, 14 );
H14 = HHV( High, 14 );

AroonDn =
100* (14 - (( IIf(Ref(L,-1) == L14 ,1 , IIf( Ref(L ,-2 ) == L14 ,2 , IIf( Ref(L 
,- 3 ) == 
L14 ,3 ,IIf( Ref(L ,-4 ) == L14 ,4 ,IIf(Ref( L ,-5 ) == L14 ,5 ,IIf(Ref(L ,-6 )
== 
L14 ,6 ,IIf( Ref(L ,-7 ) == L14 ,7 ,IIf(Ref( L ,-8 ) == L14 ,8 ,IIf(Ref( L ,-9
) == 
L14 ,9 ,IIf( Ref(L,-10) == LLV(L,14 ) ,10 ,IIf(Ref(L ,-11) == L14 ,11
,IIf(Ref(L,-12 ) == 
LLV(L ,14) ,12,IIf( Ref(L,-13) == LLV(L ,14 ) ,13 ,IIf( Ref( L,-14) == L14 ,14
,0) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) / 14;

AroonUp =
100 * ( 14 - ( ( IIf(Ref(H ,-1) == H14 ,1 ,IIf(Ref(H ,-2 ) == H14 ,2 ,IIf(Ref(H
,- 3 ) == 
H14 ,3, IIf(Ref(H ,-4 ) == H14 ,4 ,IIf(Ref(H ,-5 ) == H14 ,5 ,IIf(Ref(H ,-6 )
== 
H14 ,6 ,IIf(Ref(H,-7 ) == H14 ,7 ,IIf(Ref(H ,-8 ) == H14 ,8 , IIf(Ref(H ,-9 )
== 
H14 ,9 ,IIf(Ref(H ,-10 ) == H14 ,10 ,IIf(Ref(H ,-11 ) == H14 ,11 ,IIf(Ref(H
,-12 ) == 
H14 ,12 ,IIf(Ref(H ,-13) == H14 ,13 ,IIf(Ref(H ,-14 ) == H14 ,14 ,0 ) ) ) ) ) )
) ) ) ) ) ) ) ) ) ) ) / 14;

PL = Param("PL",14,4,200,1);
ALen = PL;

AroonUp = 100 * (ALen - (HHVBars(H, ALen + 1))) / Alen;
AroonDn = 100 * (ALen - (LLVBars(L, ALen + 1))) / ALen;

Plot(AroonUp, "Aroon Up", ParamColor( "Color up", colorCycle ), ParamStyle("Style up"));
Plot(AroonDn, "Aroon Dn", ParamColor( "Color Dn", colorCycle ), ParamStyle("Style Dn"));

sa= Cross(AroonUp,AroonDn);
sb= Cross(AroonDn,AroonUp);

AroonOsc=AroonUp-AroonDn;
Aroon=AroonOsc>0;
IIf(Aroon,i+1,i);
AroonStatus=WriteIf(Aroon,"Bullish",WriteIf(IsNull(RSI(14)),"N/A","Bearish"));
AroonColor=IIf(Aroon,colorGreen,IIf(IsNull(RSI(14)),colorLightGrey,colorRed));
AddTextColumn(AroonStatus,"Aroon",1,colorWhite,AroonColor);

AddColumn(Volume,"Volume",1.0);
AddColumn(Close, "Close", 1.2);
AddColumn(Ref(Close,-1), "Prev-Cl", 1.2);

AddColumn(AroonUp,"AroonUp",1.2);
AddColumn(AroonDn,"AroonDn",1.2);
AddColumn(sa,"Aup Cross Adn",1.2);
AddColumn(sb,"Adn Cross Aup",1.2);

AddColumn(MACD(12, 26), "MACD", 1.2 );
AddColumn(StochD(15,3, 3), "Stoch", 1.2 );
AddColumn( RSI(15), "RSI", 1.2 );

_SECTION_END();