/*[[
	Name := siamak
	Author := Copyright S.Sharif
	Link := irabc@yahoo.com
	Separate Window := yes
	First Color := blue
	First Draw Type := Histogram
	First Symbol := 225
	Use Second Data := Yes
	Second Color :=  red
	Second Draw Type :=Histogram
	Second Symbol := 226
	
    ]]*/
defines: Slippage(2),MATrendPeriod(60);
var :k(5),dl(0),tsp(0),tmsp(0),tmp(0),tdp(0),dpadx(0),dmadx(0),cl(0),buysell(0);
defines: PeriodADX(25);
var: cnt(0),pos(0),sl(0),tp(0),MaAlfa(0),MaBeta(0),MaGama(0),MMacd(0),SMacd(0);
var: MACurrent(0),MAPrevious(0);
var: hSadx(0),Sadx(0),DPlusAdx(0),DMinsAdx(0),Rsi(0),KSto(0),DSto(0),n(0),lotsize(1),bMMacd(0),bSMacd(0),td(0);
Variable : shift(0);
SetLoopCount(0);
// loop from first bar to current bar (with shift=0)
For shift=Bars-1 Downto 0 Begin
//-----------------------------------------------------
MMacd=iMACD(12,26,9,MODE_MAIN,shift);
SMacd=iMACD(12,26,9,MODE_SIGNAL,shift);
//-------------------------------------------------
If MMacd>SMacd
then {SetIndexValue (shift,MMacd-SMacd);}; //Buy
If MMacd<SMacd 
then {SetIndexValue2  (shift,MMacd-SMacd);}; //Sell
End;