Sistema Fases 2/4 de Weinstein

Se trata de detectar los cambios de fase según Weinstein. Podemos identificar las distintas fases por medio de la MM30. Fase 1 y 3 con la MM30 plana, Fase 2 con la mM30 alcista y Fase 4 con la MM30 bajista. Pero necestimos que el precio se situe por encima o por debajo de la MM30. Por tanto:

1.- Inicio de Fase1 y Fase3 : MM30 plana.

2.- Inicio de Fase2: MM30 alcista. MM30 cruza al alza a la MM30 pv (ponderada por volumen). El precio cierra en 2 semanas consecutivas por encima de la MM30. El precio supera en cierre la MM30 de Máximos. 

3.- Inicio de Fase4: MM30 bajista. La MM30 cruza a la baja a la MM30pv. El precio cierra en 2 semanas consecutivas por debajo de la mM30. El precio cierra por debajo de la MM30 de Mínimos o el precio cierra por debajo de la MM30pv. 

Condiciones Básicas del Sistema en Semanal:

1.- Apertura de Largos cuando el precio cierra por encima de la MM30 Ponderada de Máximos con la MM30 Ponderada alcista.
2.- Cierre de Largos cuando el precio cierra por debajo de la MM30 Ponderada con inclinación bajista.
3.- Apertura de Cortos cuando el precio cierra por debajo de la MM30 Ponderada de Mínimos con la MM30 Ponderada bajista y que la Mano Fuerte esté fuera del valor.
4.- Cierre de Cortos cuando el precio cierra por encima de la MM30 Ponderada con inclinación alcista.

Condiciones de mejora para el Sistema:

1.- Capitalizacion: Buscamos acciones cuyo CPM sea mayor que 5. Para ello utilizamos el Indicador CPM de Javier Alfayate.
2.- Mano Fuerte: Buscamos acciones en las que la Mano Fuerte esté comprada. Para ello usamos el Indicador de Blai5 Koncorde v.09.
3.- Fortaleza: Buscamos acciones que tengan una fuerza relativa superior al S&P500 o aumentando. Para ello usamos el Indicador RSCMansfield en la plantilla de PRT.

SCREENER FASES 2/4 WEINSTEIN
REM CREADO POR TXEMA MEDINA EN JUNIO DE 2012
REM BUSCA ACCIONES EN FASE 2 Y 4 SEGUN WEINSTEIN

REM MM30 ALCISTA
indicator1 = WeightedAverage[30](close)
indicator2 = WeightedAverage[30](close)
c1 = (indicator1 > indicator2[1])

REM PRECIO POR ENCIMA DE LA MM30
indicator3 = WeightedAverage[30](high)
c2 = (close > indicator3)

REM CPM MAYOR DE 5
indicator4 = CALL "Capital Proporcional Medio"[52]
c3 = (indicator4 > 5.0)

REM MANO FUERTE (AZUL) POR ENCIMA DE LA LINEA CERO
ignored, ignored, ignored, indicator5, ignored, ignored, ignored, ignored = CALL "Blai5 Koncorde v.09"[15]
ignored, ignored, ignored, ignored, ignored, ignored, ignored, indicator6 = CALL "Blai5 Koncorde v.09"[15]
c4 = (indicator5 > indicator6)

REM ORDENADOS POR CPM
criteria = CALL "Capital Proporcional Medio"[52]

SCREENER[c1 AND c2 AND c3 AND c4] (criteria AS "CPM")

PROBACKTEST FASES 2/4 WEINSTEIN
REM CREADOPOR TXEMA MEDINA EN JUNIO 2012
REM ENTRADAS Y SALIDAS PARA ACCIONES EN FASE 2 Y 4 SEGUN WEINSTEIN

REM Comprar
REM MM30 ALCISTA
indicator1 = WeightedAverage[30](close)
indicator2 = WeightedAverage[30](close)
c1 = (indicator1 > indicator2[1])

REM PRECIO POR ENCIMA DE LA MM30 DE MAXIMOS
indicator3 = WeightedAverage[30](high)
c2 = (close > indicator3)

IF c1 AND c2 THEN
    BUY 1 SHARES AT MARKET THISBARONCLOSE
ENDIF

REM Vender
REM MM30 BAJISTA
indicator4 = WeightedAverage[30](close)
indicator5 = WeightedAverage[30](close)
c3 = (indicator4 < indicator5[1])

REM PRECIO POR DEBAJO DE LA MM30
indicator6 = WeightedAverage[30](close)
c4 = (close < indicator6)

IF c3 AND c4 THEN
    SELL  AT MARKET THISBARONCLOSE
ENDIF

REM Venta a corto (short)
REM MM30 BAJISTA
indicator7 = WeightedAverage[30](close)
indicator8 = WeightedAverage[30](close)
c5 = (indicator7 < indicator8[1])

REM PRECIO POR DEBAJO DE LA MM30 DE MINIMOS
indicator9 = WeightedAverage[30](low)
c6 = (close < indicator9)

REM MANO FUERTE POR DEBAJO DE CERO
ignored, ignored, ignored, indicator10, ignored, ignored, ignored, ignored = CALL "Blai5 Koncorde v.09"[15]
ignored, ignored, ignored, ignored, ignored, ignored, ignored, indicator11 = CALL "Blai5 Koncorde v.09"[15]
c7 = (indicator10 < indicator11)

IF c5 AND c6 AND c7 THEN
    SELLSHORT 1 SHARES AT MARKET THISBARONCLOSE
ENDIF

REM Salida venta a corto (exit short)
REM MM30 ALCISTA
indicator12 = WeightedAverage[30](close)
indicator13 = WeightedAverage[30](close)
c8 = (indicator12 > indicator13[1])

REM PRECIO POR ENCIMA DE LA MM30
indicator14 = WeightedAverage[30](close)
c9 = (close > indicator14)

IF c8 AND c9 THEN
    EXITSHORT  AT MARKET THISBARONCLOSE
ENDIF

Fuente: Jatubio del Foro AguilaRojaSistemas.com