REM Cálculo de acciones que disparan el ATLAS y RSC Mansfield positivo + velas martillo, liberulas , mm200ponderada y riesgo stop mm200
rem VELAS MARTILLO (PINBAR)
hammer=close>open and low=open and (high-close)>=3*(close-open)
invertedhammer=close>open and high=close and (open-low)>=3*(close-open)
REM Llama a las funciones que deben estar programadas con anterioridad
myATLASMini = CALL "Blai5 ATLAS Mini"
ignored, FR = CALL RSCMansfield2
rem mm200 O mm30 contendra el valor de la media de 200 O 30 semanas ponderada
mm1 = weightedaverage[1](close)
mm200 = weightedAverage[200](close)
mmVariation = Abs((mm200/mm1 - 1) * 100)
rem pinbar cerca mm200 o mm30
data5b=(((high - low)>3*(open -close)) and ((high - close)/(.001 + high - low) > 0.6) and ((high - open)/(.001 + high - low) > 0.6))
if data5b then
IH = 1
Else
IH = 0
Endif
condition = mmVariation<1
ca2=close[2] >= close[3]
ca1=close[1] >= close[2]
CG = ca1 and ca2
test=(data5b and hammer or invertedhammer)
rem riesgo stop es la distancia del cierre a la mm30
RiesgoStop = ((close-mm200)/close)*100
REM CAP almacenará el dinero intercambiado en la semana
REM Para seleccionar el tipo de acciones por volumen de intercambio
CAP = volume * close
REM Condicionamos la función SCREENER porque el Atlas es negativo
IF (myATLASMini < 0 ) THEN
rem screener contiene las condiciones
SCREENER [condition and IH and CG and FR > 0 and CAP > 40000000 and test ] (RiesgoStop AS "Riesgo")
REM ojo 10 millones ibex 30 resto europa y eeuu40
ENDIF
.
