//+-------------------------------------------------------------------+
//| Sedikit Kontribusi buat temen2																			 |
//+-------------------------------------------------------------------+
#property copyright	"VN"
#property link   		"VictoriaNaomi72@yahoo.co.id"

#property indicator_separate_window
#property indicator_buffers 5


#property indicator_levelcolor Silver
#property indicator_color1 Blue
#property indicator_color2 Red

#property indicator_color3 Lime
#property indicator_color4 Lime
#property indicator_color5 Lime

#property indicator_level1 75
#property indicator_level2 50
#property indicator_level3 25
#property indicator_level4 0
#property indicator_level5 -75
#property indicator_level6 -50
#property indicator_level7 -25




extern int    Periode   = 24;
extern int    Price    =  0;
string tanda1;
string tanda2;
string tanda3;


double	VN_1[],
			VN_2[],
			BB_UPPER[],
			BB_MIDDLE[],
			BB_LOWER[];

double VN[];

int init(){
	IndicatorBuffers(6);
	SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,2);
	SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,2);

	SetIndexStyle(2,DRAW_LINE,STYLE_DOT,1);
	SetIndexStyle(3,DRAW_LINE,STYLE_SOLID,2);
	SetIndexStyle(4,DRAW_LINE,STYLE_DOT,1);
	
	IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)+1);

	SetIndexBuffer(0,VN_1);
   SetIndexBuffer(1,VN_2);
   
   SetIndexBuffer(2,BB_UPPER);
   SetIndexBuffer(3,BB_MIDDLE);
   SetIndexBuffer(4,BB_LOWER);
   SetIndexBuffer(5,VN);

	SetIndexLabel(0,"VN_1");
	SetIndexLabel(1,"VN_2");
	SetIndexLabel(2,"BB_UPPER");
	SetIndexLabel(3,"BB_MIDDLE");
	SetIndexLabel(4,"BB_LOWER");
	
	
	
   return(0);
}

int start(){ 
   int      counted_bars=IndicatorCounted();
   int      limit;
	double	TMP;
	double	prev,current;

   if(counted_bars < 0)	return(-1);
   if(counted_bars > 0)	counted_bars--;

	limit	= Bars-counted_bars;

   for(int i=0; i< limit; i++){
     VN[i]	=	(iStochastic(NULL,0,Periode,1,1,MODE_LWMA,0,MODE_MAIN,i)-iStochastic(NULL,0,Periode,1,1,MODE_LWMA,0,MODE_MAIN,Periode));
					
   }

	for(i=limit-1; i>=0; i--){
		BB_UPPER[i]		= iBandsOnArray(VN,0,Periode,1,0,MODE_UPPER,i);
		BB_MIDDLE[i]	= iBandsOnArray(VN,0,Periode,0,0,MODE_LOWER,i);
		BB_LOWER[i]		= iBandsOnArray(VN,0,Periode,1,0,MODE_LOWER,i);

		if(BB_MIDDLE[i] <= VN[i]){
			VN_1[i] = VN[i];
			VN_2[i] = 0.0;
		}
		else{
			VN_1[i] = 0.0;
			VN_2[i] = VN[i];
		}
	}

   double   Stoch1   =iStochastic(NULL,0,Periode,1,1,MODE_LWMA,0,MODE_MAIN,0);
   IndicatorShortName("(Period="+Periode+", Kekuatan Buyer(%)="+ DoubleToStr(Stoch1,1) +"), Kekuatan Seller(%)="+ DoubleToStr(Stoch1-100,1) +")");
   
   return(0); 
}