Code: Select all

var BarRange = 0.0030;
var OpenDiff;
var CloseDiff;
int bar(vars Open, vars High, vars Low, vars Close)
{
    OpenDiff = abs(Close[0]-Open[1]);
    CloseDiff = abs(Close[0]-Close[1]);
    if(OpenDiff < CloseDiff) { 
    // If this matches we have a valley or peak
        Open[0] = Open[1];
    } else {                               
    // This is for when we are moving with the trend
	    Open[0] = round(Close[1],BarRange);
    }
	if(Close[0]-Open[0] >= BarRange) {  // Going up
		Close[0] = Open[0]+BarRange;
		High[0] = Close[0];
		Low[0] = Open[0];
		return 1;
	}
	if(Open[0]-Close[0] >= BarRange) { // Going Down
		Close[0] = Open[0]-BarRange;
		High[0] = Open[0];
		Low[0] = Close[0];
		return 1;
	}
	return 4;
}

Code: Select all

   double myBull = High[shift] - iMA(symbol, tf, 13, 0, MODE_EMA, PRICE_MEDIAN, shift);
   double myBear = Low[shift] - iMA(symbol, tf, 13, 0, MODE_EMA, PRICE_MEDIAN, shift);

Code: Select all

var BullsPower(int timeframe, int Period);
var BearsPower(int timeframe, int Period);

var BullsPower(int timeframe, int Period){
	vars priceHighs = series(priceHigh(), Period); //getting Highs of last Period # of bars
	var ema = EMA(price(),Period); //calculating the exponential MA with given Period # of bars
	return priceHighs(0) - ema; //Calculate BullsPower by reducing the current High by calculated EMA
}

var BearsPower(int timeframe, int Period){
	vars lowPrices = series(priceLow(), Period);
	var ema = EMA(price(), Period);
	return lowPrices(0) - ema;
}

Code: Select all

// plot some other indicators	
	plot("BullsPower", BullsPower(60, 13),NEW,GREEN);
	plot("BearsPower", BearsPower(60, 13),NEW,RED);

Code: Select all

var BullsPower(int Period){
	vars highPrices = series(priceHigh(), Period);
	var ema = EMA(series(price()),Period);
	return highPrices[0] - ema;
}

// BearsPower
var BearsPower(int Period){
	vars lowPrices = series(priceLow(), Period);
	var ema = EMA(series(price()), Period);
	return lowPrices[0] - ema;

}