INTRA BP SP

_SECTION_BEGIN("Demand Index");
//------------------------------------------------------------------------------
//
// Formula Name: Demand Index
// Author/Uploader: Steve Wiser
// E-mail: slwiserr@erols.com
// Date/Time Added: 2001-07-05 19:12:36
// Origin:
// Keywords:
// Level: medium
// Flags: system,exploration,indicator
// Formula URL: http://www.amibroker.com/library/formula.php?id=58
// Details URL: http://www.amibroker.com/library/detail.php?id=58
//
//------------------------------------------------------------------------------
//
// Uses the demand index for a system test.
//
//------------------------------------------------------------------------------

/* Demand Index */
/* Steve Wiser at slwiserr@erols.com */
/* Exploration, System and indicator */

GraphMax=9;

A=(H+L+2*C);
B=EMA((HHV(H,2)-LLV(L,2)),19);
BuyP=
/*{BuyPower}*/
V/EMA(V,19) * ((A>=Ref(A,-1)) +(ARef(A,-1)) / exp((0.375 * (A+Ref(A,-1)) / B ) * (A-Ref(A,-1)) / Ref(A,-1)));


mabp=EMA(BuyP,19);
masp=EMA(SellP,19); /*{smooth Selling Pressure}*/
divsor=IIf(mabp>masp,mabp,masp); /*{BP:SP ratio}*/
divend=IIf(mabpmabp) , -var2 , var2 ) ; /*{range -100 to 100}*/
var4=var3*100;
Graph1 = var4;
Graph1Style=5;

var5=MA(var4,30);
Graph2=var5;;
Graph2Style=5;
Graph2Color=7;

/* Zero Line */
Graph0=0;


Buy=Cross(var4,var5); /* originally var5 was a zero */
Sell=Cross(0,var4);

Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);

Short=Sell;
Cover=Buy;

Filter= (Buy == 1 OR Sell == 1) ;
NumColumns = 7;
Column0 = IIf(Buy == 1, 1, IIf(Sell == 1, -1, 0 ) );
Column0Format = 1.0;
Column0Name = "B/S";
Column1 = C;
Column1Name = "Close ";
Column1Format = 1.2;
Column2 = MA(V,17);
Column2Name = "17 Ma Vol ";
Column2Format = 1.0;
Column3 = MA(C,17)/MA(C,50);
Column3Name = "% 17/50 ";
Column3Format = 1.2;
Column3Format = 1.2;
Column4= MA(C,17);
Column4Name="17 C ma";
Column4Format = 1.2;
Column4= MA(C,50);
Column4Name="50 C ma";
Column4Format = 1.2;
Column5=ROC(var4,2);
Column5Name="ROC DI";
Column5Format=1.2;
Column6=Cum(1);
Column6Name = "#Bars";
Column6Format = 1.0;

/* End of Exploration Code. */
_SECTION_END();