_SECTION_BEGIN("Rata-rata Pergerakan harga by i@m");

//52 Minggu Tinggi Rendah
High52 = HHV(High,250);
Low52 = LLV(Low,250);
i=0;

//Pergerakan Harga (Pendek, Sedang & Jangka Panjang)
MAPendek = C>MA(C,5);
IIf(MAPendek,i+1,i);
MASedang = C>MA(C,20);
IIf(MASedang,i+1,i);
MAPanjang = C>MA(C,60);
IIf(MAPanjang,i+1,i);

//Tali Kabel
TK1=C>BBandTop(C,20,2) AND Ref(C,-1)<Ref(BBandTop(C,20,2),-1);
TK2=C<BBandBot(C,20,2) AND Ref(C,-1)>Ref(BBandBot(C,20,2),-1);
TKStatus=WriteIf(TK1,"Puncak",WriteIf(TK2,"Bawah",WriteIf(IsNull(MA(C,20)),"N/A","Netral")));
TKColor=IIf(TK1,colorRed,IIf(TK2,colorGreen,colorLightOrange));
IIf(TK2,i+1,i);

//Untuk mengetahui kondisi harga sekarang

Pendek = WriteIf(MAPendek,"Banteng",WriteIf(IsNull(MA(C,5)) ,"N/A","Beruang"));
WarnaPendek = IIf(MAPendek,colorGreen,colorRed);
Sedang = WriteIf(MASedang,"Banteng",WriteIf(IsNull(MA(C,20))," N/A","Beruang"));
WarnaSedang = IIf(MASedang,colorGreen,colorRed);
Panjang = WriteIf(MAPanjang,"Banteng",WriteIf(IsNull(MA(C,60)) ,"N/A","Beruang"));
WarnaPanjang = IIf(MAPanjang,colorGreen,colorRed);

//MACD
MACDBull=MACD(12,26)>Signal(12,26,9);
IIf(MACDBull,i+1,i);
MACDStatus=WriteIf(MACDBull,"Banteng",WriteIf(IsNull(MACD(12,26)),"N/A","Beruang"));
MACDColor=IIf(MACDBull,colorGreen,colorRed);

//Aroon
Period=14;
LLVBarsSince=LLVBars(L,Period)+1;
HHVBarsSince=HHVBars(H,Period)+1;
AroonDown=100*(Period-LLVBarsSince)/(Period-1);
AroonUp=100*(Period-HHVBarsSince)/(Period-1);
AroonOsc=AroonUp-AroonDown;
Aroon=AroonOsc>0;
IIf(Aroon,i+1,i);
AroonStatus=WriteIf(Aroon,"Banteng",WriteIf(IsNull (RSI(14)),"N/A","Beruang"));
AroonColor=IIf(Aroon,colorGreen,IIf(IsNull(RSI(14) ),colorLightGrey,colorRed));

//Stochastic
StochKBull=StochK(14,3)>StochD(14,3,3);
IIf(StochKBull,i+1,i);
StochKStatus=WriteIf(StochKBull,"Banteng",WriteIf( IsNull(StochK(14,3)),"N/A","Beruang"));
StochKColor=IIf(StochKBull,colorGreen,colorRed);

//RSI
R1=RSI(14)>30 AND Ref(RSI(14),-1)<30 AND Ref(RSI(14),-2)<30;
R2=RSI(14)<70 AND Ref(RSI(14),-1)>70 AND Ref(RSI(14),-2)>70;
IIf(R1,i+1,i);
RSIStatus=WriteIf(R1,"Meningkat",WriteIf(R2,"Menurun",WriteIf(IsNull(RSI(14)),"N/A","Neutral")));
RSIColor=IIf(R1,colorGreen,IIf(R2,colorRed,colorLightGrey));

//MFI
M1=MFI(14)>80;
M2=MFI(14)<20;
IIf(M2,i+1,i);
MFIStatus=WriteIf(M1,"Jenuh beli",WriteIf(M2,"Jenuh Jual",WriteIf(IsNull(MFI(14)),"N/A","Neutral")));
MFIColor=IIf(M1,colorRed,IIf(M2,colorGreen,colorLightGrey));

/* Likuid (hanya saham-saham likuid yang discreening)
*/
VMA60 = MA(V,20) ;
Likuid = VMA60 * MA(C,20) > 5000000000;

 TrendScore =

 IIf(TK2,1,0)+
 IIf(MAPendek,1,0)+
 IIf(MASedang,1,0) +
 IIf(MAPanjang,1,0)+
 IIf(MACDBull,1,0) +
 IIf(Aroon,1,0) +
 IIf(StochKBull,1,0)+
 IIf(R1,1,0) +
 IIf(M2,1,0) ;


Filter =  1 AND C>0 AND Likuid  ; 
 
AddColumn(High52,"52 Minggu Tinggi");
AddColumn(Low52,"52 Minggu Rendah");
AddColumn(O,"Open",1.0); 
AddColumn(H,"High",1.0); 
AddColumn(L,"Low",1.0); 
AddColumn(C,"Close",1.0); 
AddColumn(V,"Volume",1.0,1.0);
AddColumn(C,"Close",1,IIf(C>Ref(C,-1),colorGreen,colorRed));
AddColumn(V,"Volume",1,IIf(V>Ref(V,-1),colorGreen,colorRed));
AddTextColumn(TKStatus,"BBand",1,colorWhite,TKColor);
AddTextColumn(Pendek,"Pendek MA(5)",1,colorWhite,WarnaPendek);
AddTextColumn(Sedang,"Sedang MA(20)",1,colorWhite,WarnaSedang);
AddTextColumn(Panjang,"Panjang MA(60)",1,colorWhite,WarnaPanjang);
AddTextColumn(MACDStatus,"MACD",1,colorWhite,MACDColor);
AddTextColumn(AroonStatus,"Aroon",1,colorWhite,AroonColor);
AddTextColumn(StochKStatus,"Stochastic",1,colorWhite,StochKColor);
AddTextColumn(RSIStatus,"RSI(14)",1,colorWhite,RSIColor);
AddTextColumn(MFIStatus,"MFI(14)",1,colorWhite,MFIColor);
AddColumn(TrendScore,"Score");
_SECTION_END();