通达信MACD顶底背离及背后后斐波契那数列时间窗口提示

{MACD}

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORLIGREEN,LINETHICK1;

DEA:EMA(DIFF,9),COLORLIGREEN,LINETHICK1;

MACD1:=2*(DIFF-DEA),COLORSTICK,LINETHICK2;

{MACD顶底背离};

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);

A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));

顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);

{底、顶背离统计}

多重底背离:=COUNT(底背离,34);

最近成立:=BARSLAST(底背离);

底背离条件:=(最近成立<3) AND (多重底背离>=2);

最近成立顶背离:=BARSLAST(顶背离);

{斐波契那数列时间窗口提示}

入场时间窗口:=(最近成立=3 or 最近成立=5 or 最近成立=8 or 最近成立=13 or 最近成立=21 or 最近成立=34 or 最近成立=55);

出场时间窗口:=(最近成立顶背离=3 or 最近成立顶背离=5 or 最近成立顶背离=8 or 最近成立顶背离=13 or 最近成立顶背离=21 or 最近成立顶背离=34 or 最近成立顶背离=55);

{盘面提示}

{入场，出场提示}

DRAWTEXT_FIX(最近成立<3 AND ISLASTBAR,0.98,0.05,1,'当前周期可入场'),COLORRED;

DRAWTEXT_FIX(最近成立顶背离<3 AND ISLASTBAR,0.98,0.05,1,'当前周期可入场'),COLORRED;

{过入场后提示}

过入场点1:=STRCAT('注意入场后周期窗口：',CON2STR(最近成立,0));

过入场点2:=STRCAT(过入场点1,'周期窗口');

DRAWTEXT_FIX(最近成立>=3 AND 最近成立<=21 AND 入场时间窗口 and  ISLASTBAR,0.98,0.05,1,过入场点2),COLORRED;

{出入场提后提示}

出场点1:=STRCAT('注意出场后周期窗口：',CON2STR(最近成立顶背离,0));

出场点2:=STRCAT(出场点1,'周期窗口');

DRAWTEXT_FIX(最近成立顶背离>=3  and 最近成立顶背离<=21 AND 入场时间窗口 and ISLASTBAR,0.98,0.85,1,出场点2),COLORLIGREEN;