/*
its basically an exploration and 3 indicators 

use this in combination of previous 95% accurate system  buySum, Sellsum >=3

you can take this formula and can use in swing trading / investment . 

*/



EMASlope=(LinRegSlope(EMA(Close,9),5 ));
LEMASlope=(LinRegSlope(EMA(Close,35),5)); 


up=ROC(  EMASlope,1,True);
down=ROC(  LEMASlope,1,True);


condgreen2= ( up>down AND (up>0) );
condgreen2= condgreen2 AND !Ref(condgreen2,-1); 


condred2=  ( up<down AND (up<0) );
condred2= condred2 AND !Ref(condred2,-1); 





txt2="  ";


txt2+=WriteIf(condgreen2 ," +2greenbar "," "); 
txt2+= WriteIf(Cross(up,down)," +cross2up "," ");
txt2+= WriteIf(up>0 AND Ref(up,-1)<0," +2ema "," ");
txt2+= WriteIf(down>0 AND Ref(down,-1)<0," +2lema "," ");

txt2+=WriteIf(condred2 ," -2redbar "," "); 
txt2+= WriteIf(Cross(down,up)," -cross2down "," ");
txt2+= WriteIf(up<0 AND Ref(up,-1)>0," -2ema "," ");
txt2+= WriteIf(down<0 AND Ref(down,-1)>0," -2lema "," ");



//Criteria1=Cross(up,down) OR Cross(down,up);
Criteria2= condgreen2 OR condred2 OR Cross(up,down) OR Cross(down,up);

//txt=WriteIf(condGreen,"buy" ,WriteIf(CondRed ,"sell","" ));

///////////////LEMA///////////
EMASlope=(LinRegSlope(EMA(Close,9),5 ));
LEMASlope=(LinRegSlope(EMA(Close,35),5)); 

green3=EMASlope;
red3=LEMASlope;

condgreen3= ( green3>red3 AND (green3>0) );
condgreen3= condgreen3 AND !Ref(condgreen3,-1);
condred3=  ( green3<red3 AND (green3<0) );
condred3= condred3 AND !Ref(condred3,-1);


txt3=" ";

bigmove= WriteIf( green3>0 AND Ref(green3,-1)<0," +bigmove "," ") +
       WriteIf( green3<0 AND Ref(green3,-1)>0," -bigmove "," ");
;
txt3+=bigmove;
txt3+=WriteIf(condgreen3 ," +3greenbar "," "); 
txt3+=WriteIf(Cross(EMASlope,LEMASlope)," +cross3up "," "); 
txt3+= WriteIf(green3>0 AND Ref(green3,-1)<0," +3ema "," ");
txt3+= WriteIf(LEMASlope>0 AND Ref(LEMASlope,-1)<0," +3lema"," ");

txt3+=WriteIf(condred3 ," -3redbar "," "); 
txt3+= WriteIf(Cross(LEMASlope,EMASlope)," -cross3down "," ");
txt3+= WriteIf(green3<0 AND Ref(green3,-1)>0," -3ema "," ");
txt3+= WriteIf(LEMASlope<0 AND Ref(LEMASlope,-1)>0," -3lema "," ");




Criteria3= condgreen3 OR condred3 OR Cross(green3,red3) OR Cross(red3,green3)   ;

//txt=WriteIf(condGreen3,"buy" ,WriteIf(CondRed3 ,"sell","" ));
/////////////////////////////
BBVol=(Volume/EMA(Volume,30))*100;


Vol1=IIf(  Sum(BBVol>EMA(BBVol,30),2)>0,BBVol,0);
//////////////////////////////
_SECTION_BEGIN("TSI");
r = Param( "TSI period 'Length':", 25, 1, 100, 1 );
s = Param( "TSI period 'Smoothing':", 13, 1, 100, 1 );
sig = Param( "Signal period:", 7, 1, 100, 1 );
 
Mtm = C - Ref ( C, -1 );
AbsMtm = abs ( Mtm );
Num_T = EMA ( EMA ( Mtm, r ), s );
Den_T = EMA ( EMA ( AbsMtm, r ), s );

TSI = 100 * Nz ( Num_T / Den_T );

CondTSI= ( Cross(TSI,EMA(TSI,sig)) OR Cross(EMA(TSI,sig),TSI) );


////////////////////////////////

Filter= Criteria2 OR Criteria3 OR CondTSI;


AddColumn(Vol1,"volume");
//screen2
AddTextColumn(txt2," 2txt"); 
//AddColumn(condgreen2  ,"2 bar buy");
//AddColumn(condred2  ,"2 bar sell");


//screen3
AddTextColumn(txt3," 3 txt");
//AddColumn(condgreen3  ,"3 bar buy");
//AddColumn(condred3  ,"3 bar sell");

//AddColumn(Cross(up,down) OR Cross(down,up),"screen2 cross ");
//AddColumn(Cross(green3,red3) OR Cross(red3,green3),"screen3 cross");

AddColumn(CondTSI,"TSI");

SetSortColumns( -2,-3 ) ;


AlertIf( Criteria2 OR Criteria3, "SOUND C:\\Program Files\\MetaTrader NordFX\\Sounds\\tick.wav", "guppy"+txt2+" "+txt3
+"vol: "+WriteVal(Vol1), 0 ,1+2,10);