Bull power and Bear power AFL
Bull Power :
In the market buyers are trying to raise the price of the stock, and the price at the end of the period ( EOD ) is above the EMA (Exponential Moving Average) for the same period, then they are succeeding in raising the price.
Bull Power = Highest Price (13 period) – EMA (13 period)
AFL in text form.
// Daily BullPower
_SECTION_BEGIN("Bull Power EMA");
/*Bull Power*/
Lookback = Param ("EMA Lookback",13);
BullPower = High - EMA(Close,Lookback);
Plot (BullPower, "", ParamColor ("Color", colorCustom11), styleHistogram );
Title = Name() + " " + Date() + " Bull Power" + WriteVal (Lookback, 3.0) + " Day: " + WriteVal (BullPower, 5.3);
GraphXSpace = 5;
_SECTION_END();
Bear Power :
If sellers in the market are trying to lower the price of the stock, and the price at the end of the period is below the EMA for the same period, then they are succeeding in lowering the price.
Bear Power = Lowest price (13 period) – EMA (13 period)
// Daily BearPower
_SECTION_BEGIN("Bear Power EMA");
/*Bear Power*/
Lookback = Param ("EMA Lookback", 13);
BearPower = Low - EMA(Close,Lookback);
Plot (BearPower, "", ParamColor ("Color", colorRed), styleHistogram );
Title = Name() + " " + Date() + " Bear Power" + WriteVal (Lookback, 3.0) + " Day: " + WriteVal (BearPower, 5.3);
GraphXSpace = 5;
_SECTION_END();