/*[[
	Name := TrialMeeINDIC
	Author := Joumans 
	Link := http://www.metaquotes.net/
	Separate Window := No
	First Color := Blue
	First Draw Type := Symbol
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Red
	Second Draw Type := Symbol
	Second Symbol := 218
]]*/
inputs : NumBars(500);
Variable : shift(0);

var: myFile(0);
var: AlertTime(0);
var : ma10(0), ma25(0), ma50(0);
var : ma10prev(0), ma25prev(0), ma50prev(0); 
var : sar(0), macd(0); 
var : maBelow(false), maAbove(false); 
var : demarker(0); 
var : maCrossed(false); 
var : RSI(0); 
var : Hi(0); 
var : lo(0);
Variable : prevbars(0), first(true), loopbegin(0), chk(0), prevchk(0);

first = false;
loopbegin = 0;
If NumBars < prevbars Or NumBars-prevbars>1 Then first = True;

chk = NumBars;
if chk <> prevchk then first = true;
prevchk = chk;

prevbars = NumBars;

If first Then Begin
	// loopbegin prevent couning of counted bars exclude current
	loopbegin = NumBars-40-1;
	If loopbegin < 0 Then Exit;      // not enough bars for counting
	first = False;
End;

SetLoopCount(0);
loopbegin = loopbegin+1;
For shift = loopbegin Downto 0 Begin
	SetIndexValue(shift, 0);
	SetIndexValue2(shift, 0);

	ma10 = iMA(10, MODE_EMA, shift);
	ma25 = iMA(25, MODE_EMA, shift);
	ma50 = iMA(40, MODE_EMA, shift);
	sar = iSAR(0.009,  0.06, shift);
	macd = iMACD(12, 26, 9, MODE_MAIN, shift);  //wrong mode changed from MODE_FILE to MODE_MAIN
	demarker = iDeMarker(14, shift);
	RSI = iRSI(14,shift);
	
	if (ma10 > ma25 and ma10 > ma50 
		and sar < Close[shift] and macd > 0
		and RSI >55	and demarker > 0.55
		and 2*Point < abs(ma25 - ma50) ) 
    then 
		SetIndexValue(shift, h[shift]);


	if (ma10 < ma25 
		and ma10 < ma50 and sar > Close[shift] 
		and macd < 0 and RSI < 45
		and demarker < 0.40 and 2*Point < abs(ma25 - ma50) ) 
    then 
		SetIndexValue2(shift, l[shift]);
//	loopbegin = loopbegin-1;
End;