#property indicator_separate_window
#property indicator_minimum -20
#property indicator_maximum 120
#property indicator_buffers 3
#property indicator_color1 LightSeaGreen
#property indicator_color2 Crimson
#property indicator_color3 DarkGreen
extern int lookback_period = 45;
extern int power_period = 10 ;
//---- buffers
double power[];
double bearbuffer[];
double bullbuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- 2 additional buffers are used for counting.
IndicatorBuffers(3);
//---- indicator lines
SetIndexStyle(0,DRAW_LINE, 1, 2);
SetIndexBuffer(0, power);
SetIndexStyle(1,DRAW_LINE, 1, 2);
SetIndexBuffer(1, bearbuffer);
SetIndexStyle(2,DRAW_LINE, 1, 2);
SetIndexBuffer(2, bullbuffer);
SetLevelValue (0, 0);
SetLevelValue (1, 50);
SetLevelValue (2, 100);
return(0);
}
//+------------------------------------------------------------------+
//| Net Power |
//+------------------------------------------------------------------+
int start()
{
int i,k;
int counted_bars=IndicatorCounted();
//----
if(Bars<= power_period) return(0);
//---- initial zero
if(counted_bars<1)
for(i=1;i<=power_period;i++) power[Bars-i]=0.0;
//----
i=Bars-counted_bars-1;
while (i >= 0)
{
Comment("Implemented by Daniel Fernandez, Asirikuy.com 2011");
int bearcount = 0 ;
int bullcount = 0 ;
k = 0 ;
while (k <= lookback_period - 1 ){
double bear = iBearsPower(NULL,0,power_period, PRICE_CLOSE, k+i) ;
double bull = iBullsPower(NULL,0,power_period, PRICE_CLOSE, k+i) ;
if (bear < 0 )
bearcount++ ;
if (bull > 0 )
bullcount++ ;
k++ ;
}
power[i] = MathAbs(bullcount-bearcount)*100/lookback_period ;
bearbuffer[i] = bearcount*100/lookback_period ;
bullbuffer[i] = bullcount*100/lookback_period ;
i-- ;
}
return(0);
}
.
