/*[[
	Name := siamak
	Author := Copyright S.Sharif
	Link := irabc@yahoo.com
	Separate Window := no
	First Color := blue
	First Draw Type := Symbol
	First Symbol := 7
	Use Second Data := Yes
	Second Color :=  red
	Second Draw Type :=Symbol
	Second Symbol := 7
	Minimum Chart Limits := 000000
	Maximum Chart Limits := 1.000000
    ]]*/
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),sp(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-100 Downto 0 Begin
sp=ask-bid;
//-----------------------------------------------------
sadx=iadx(PeriodADX,MODE_SIGNAL,shift);
dpadx=iadx(PeriodADX,MODE_PLUSDI,shift);
dmadx=iadx(PeriodADX,MODE_MINUSDI,shift);
dl=abs(dpadx-dmadx);

MMacd=iMACD(30,45,14,MODE_MAIN,shift);
SMacd=iMACD(30,45,14,MODE_SIGNAL,shift);


MaAlfa=ima(8,mode_ema,shift)   ;
MaBeta=ima(30,mode_ema,shift)   ;   
MaGama=ima(45,mode_ema,shift)   ;
td=(low[shift]+open[shift]+Close[shift]+high[shift])/4;
KSto=iSTO(5,3,3,MODE_SMA,MODE_MAIN,shift) ;
DSto=iSTO(5,3,3,MODE_SMA,MODE_SIGNAL,shift) ;
//-------------------------------------------------

If   
    MMacd>SMacd and SMacd<0 and  MMacd<0 
and dpadx>dmadx  
and td>=MaAlfa and td>=MaBeta and td>=MaGama
and KSto>DSto  //and KSto>50 and DSto>50

then {SetIndexValue2 (shift,h[shift]-sp);  Comment("Terend is OK for        * * B u y  * ","\n","Low=",l[shift]); 
SetArrow(t[shift],h[shift]+25*sp,7,red);
k=1;}; //Buy
if tsp<sadx  then  tsp=sadx  ;
if tmsp>sadx then tmsp=sadx ;
//--------------------------------------------------------------
If     MMacd<SMacd  and     SMacd>0 and  MMacd>0
and   dpadx<dmadx  
and    td<=MaAlfa and td<=MaBeta and td<=MaGama
and    KSto<DSto //and KSto<50 and DSto<50

then {SetIndexValue  (shift,l[shift]+sp); Comment(" Terend is OK for       S E L L","\n","High=",h[shift]);  

SetArrow(t[shift],l[shift]-3*sp,7,blue);


k=2;}; //Sell

End;