EXPLORE REVERSAL for Amibroker (AFL)

//Exp-Reversal v.1.0

/*Explore to select stocks that get Bullish Reversal Signals
Bullish Reversal is based on CandleStick which is basically looking
reversal up after the previous decline.
Or in other words, Buy On Weekness or Buy On Dip
These signals are sorted by RSI from low to high.
As is known, the lower the RSI the price reduction is in, and vice versa.

There are 2 parameters / variables that we can set:
1. RSI Max: Maximum RSI allowed, the default value is 45
2. Malue Min: Average value of 20 days in Rp. Billion, the default value is Rp. 3 billion
This is to filter out enough liquid stocks
*/

C1 = Ref(C,-1);
C2 = Ref(C,-2);
A1 = Ref(Avg,-1);
A2 = Ref(Avg,-2);
A3 = Ref(Avg,-3);
A4 = Ref(Avg,-4);
A5 = Ref(Avg,-5);
O1 = Ref(O,-1);
O2 = Ref(O,-2);

Condition1 = ((A1 < A2) AND (A2 < A3) AND (A1 < A4)); //AND (A3 < A4) ) ;//OR ( A1 < A3);
Condition2 = (C1 <= O1) AND (C2 <= O2);
ConditionDown = Condition1 AND Condition2;
Condition3 = (A1 > A2) AND (A2 > A3) AND (A1 > A4) ;
Condition4 = (C1 >= O1) AND (C2 >= O2);
ConditionUp = Condition3 AND Condition4;

DibawahMA20 = C < MA(C,20);
DiatasMA20  = C > MA(C,20);

//HammerItem =
BodyI = O - C;
TailI = C - L;
HammerItem = (O==H) AND (C < O) AND (TailI >= 2*BodyI);

//HammerPutih =
BodyP = C - O;
TailP = O - L;
HammerPutih = (C==H) AND (C > O) AND (TailP >= 2*BodyP);

Hammer = HammerPutih OR HammerItem;// Syarat Candlestick Bullish dan Bearish Reversal
Doji = O == C;
BodiPutih = C > O ;//AND (TailI < BodyI) ;
BodiItem = C < O ;//AND (TailP < BodyP);

BullishReversal = Doji OR BodiPutih OR Hammer;
BearishReversal = Doji OR BodiItem OR Hammer;

SyaratBullishR = ConditionDown AND BullishReversal ;
SyaratBearishR = ConditionUp  AND BearishReversal ;

// Likuiditas
AvgPrice=(O+H+L+C)/4;
DV=AvgPrice*V;
DVMil = DV / 1000000000;

MADV20 = MA( DV, 20 );
MADV20Mil = MADV20 / 1000000000;

FV = DVMil / Ref(MADV20Mil,-1) ;

// Tick dan Harga Beli
/*
Tick =  IIf (C<200,1,
		IIf (C>=200 AND C<500,2,
		IIf (C>=500 AND C<2000,5,
		IIf (C>=2000 AND C<5000,10,25))))
*/		
Tick =  IIf(C<=500,1,
		IIf(C>500 AND C<=5000,5,25));
B1 = C+tick;

// Parameter - Variable

RSIMax = Param ("RSI Maximal", 45, 10, 60, 1);
ValueMin = Param ("Value Min (Rp. Mil)", 3, 0.5, 6, 0.5);

Filter = SyaratBullishR AND MADV20Mil > 5 AND RSI() < RSIMax ;// AND Aux2 > 0; 
AddColumn (RSI(),"RSI",1.2, colorBlack);
AddColumn (DVMil,"Val-Mil",1.2,IIf(DVMil > 10, colorBlue,IIf (DVMil >4 AND DVMil <=10,colorGreen,colorBlack)));
AddColumn (C,"Close",1.0, colorBlack);
AddColumn (B1,"Sell Price",1.0, colorBlack);
//Selisih = ((Ref(C,1) - C ) / C )*100;
//AddColumn (Deviation,"% Today",1.2, colorBlack);
AddColumn (Ref(ROC(C,1),1),"% Today",1.2, IIf(Ref(ROC(C,1),1)>=0 ,colorBlack, colorRed));
SetSortColumns(3);