REM  D8

smi1 =smi[9,3,3](close)
smiACT=smi1
smiANT=smi1[1]
smiANT2=smi1[2]
smiANT3=smi1[3]

sar1 = SAR[0.02,0.02,0.2]
sarANT = sar1[1]
sarACT = sar1

precioANT = close[1]
precioACT = close

m=MACD[12,26,9](close)

W=Williams[14](close)

REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
REM BUY 1
REM INFLEXION DEL SMI Y MACD
REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM

REM INFLEXION DEL SMI
IF  smi1[2]>smi1[1] and smi1[1]<smi1  then
	
	for i=1 to 5
		REM INFLEXION DEL MACD
		if M[1]=<m[2] and m>m[1]  then
			j=1
			if not onmarket  then
				BUY 100000 SHARES AT MARKET THISBARONCLOSE
			else
				exitshort 100000 SHARES AT MARKET THISBARONCLOSE
			endif
		endif
		
		if j=1 and i=1 THEN
			if not onmarket then
				BUY 100000 SHARES AT MARKET THISBARONCLOSE
			else
				exitshort 100000 SHARES AT MARKET THISBARONCLOSE
			endif
		ENDIF
		c1 = (W CROSSES over -20.0)
	next
	
	IF c1 THEN
		if not onmarket then
			BUY 100000 SHARES AT MARKET THISBARONCLOSE
		else
			exitshort 100000 SHARES AT MARKET THISBARONCLOSE
		endif
	endif
ENDIF

REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
REM BUY 2
REM BOLLINER Y SAR
REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM

REM BUY SE COMPRA  CUANDO EL SAR PASA A SER ALCISTA Y ROMPE LAS BOLLINGER

If  sarANT > PrecioANT and sarACT < PrecioACT and close>open and close> Average[20](close) AND M<0.0004 THEN
	if not onmarket then
		BUY 100000 SHARES AT MARKET THISBARONCLOSE
	else
		exitshort 100000 SHARES AT MARKET THISBARONCLOSE
	endif
endif

REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
REM SELL 1
REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
REM INFLEXION HACIA ABAJO DEL SMI e INFLEXION DEL MAC

REM INFLEXION DEL SMI
IF  smiACT<smiANT and  smiant>smiANT2 and smiant3<smiant2  then
	for i=1 to 3
		REM	INFLEXION DEL MACD
		if m[1]=>m[2] and m<m[1]  AND W>-20 then
			j=1
			if not onmarket  then
				sellshort 100000 SHARES AT MARKET THISBARONCLOSE
			else
				sell 100000 SHARES AT MARKET THISBARONCLOSE
			ENDIF
			
			if i=1 and j=1  THEN
				if not onmarket then
					SELL 100000 SHARES AT MARKET THISBARONCLOSE
				else
					SELLSHORT 100000 SHARES AT MARKET THISBARONCLOSE
				endif
			ENDIF
			
		ENDIF
	next
	
	c2 = (W CROSSES under -20.0)
	
	IF c2  THEN
		if not onmarket then
			BUY 100000 SHARES AT MARKET THISBARONCLOSE
		else
			exitshort 100000 SHARES AT MARKET THISBARONCLOSE
		endif
	endif
	
ENDIF

smi1 =smi[14,3,5](close)

REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
REM SELL 2
REM ROTURA DE LAS BOLLINGER BANDS Y SAR
REM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM

IF  sarANT < PrecioANT and sarACT > PrecioACT AND close< Average[20](close)  then
	if not onmarket then
		sellshort 100000 SHARES AT MARKET THISBARONCLOSE
	else
		sell 100000 SHARES AT MARKET THISBARONCLOSE
	endif
endif