1過濾:=FILTER(BACKSET(FILTER(REF(H,5)=HHV(H,2*5+1),5),5+1),5);

D2過濾:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,2*5+1),5),5+1),5);

H1過濾:=D1過濾 AND NOT((D2過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2)) OR ISLASTBAR OR BARSCOUNT(C)=1;

L1過濾:=D2過濾 AND NOT((D1過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2<(H+L)/2));

H2過濾:=D1過濾 AND NOT((D2過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2));

F1過濾:=BACKSET(H1過濾 AND COUNT(L1過濾,REF(BARSLAST(H1過濾),1)+1)>0,LLVBARS(L,REF(BARSLAST(H1過濾),1)+1)+1);

LD過濾:=BACKSET(F1過濾>REF(F1過濾,1),1)>REF(BACKSET(F1過濾>REF(F1過濾,1),1),1);

L2過濾:=LD過濾 OR ISLASTBAR OR BARSCOUNT(C)=1;

F2過濾:=BACKSET(L2過濾 AND COUNT(H2過濾,REF(BARSLAST(L2過濾),1)+1)>0,HHVBARS(H,REF(BARSLAST(L2過濾),1)+1)+1);

HD過濾:=BACKSET(F2過濾>REF(F2過濾,1),1)>REF(BACKSET(F2過濾>REF(F2過濾,1),1),1);

HH過濾:=HD過濾&&NOT(LD過濾)&&REFX1(BACKSET(HD過濾&&H>HV(H,BARSLAST(LD過濾)),BARSLAST(LD過濾))<>1,1);

LL過濾:=LD過濾&&NOT(HD過濾)&&REFX1(BACKSET(LD過濾&&L<LV(L,BARSLAST(HD過濾)),BARSLAST(HD過濾))<>1,1);

AA:=BACKSET(ISLASTBAR,SUMBARS(HH過濾,2));

BB:=BACKSET(ISLASTBAR,SUMBARS(LL過濾,2));

CC:=IF(BARSLAST(HH過濾)>BARSLAST(LL過濾),REF(L,BARSLAST(LL過濾))-REF(H,SUMBARS(HH過濾=1,2)),REF(H,BARSLAST(HH過濾))-REF(L,SUMBARS(LL過濾=1,2)));

DD:=IF(BARSLAST(HH過濾)>BARSLAST(LL過濾),REF(L,BARSLAST(LL過濾)),REF(H,BARSLAST(HH過濾)));

?

DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)>=0,L,HH過濾&&AA&&REFX1(CC,10000)>=0,H,0),COLORRED;

DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)>=0,H,LL過濾&&BB&&REFX1(CC,10000)>=0,L,0),COLORRED;

DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)<0,L,HH過濾&&AA&&REFX1(CC,10000)<0,H,0),COLORGREEN;

DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)<0,H,LL過濾&&BB&&REFX1(CC,10000)<0,L,0),COLORGREEN;

SS:=BACKSET(ISLASTBAR,SUMBARS(LL過濾,1));

QQ:=BACKSET(ISLASTBAR,SUMBARS(HH過濾,1));

DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,1);

DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,0);

DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,1);

DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,0);

（心預期支阻） 盈加風控！平反驗證:

IF(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),0.5),L),NULL),COLORRED,NODRAW;

（心預期阻支） 限虧風控！平反驗證:

IF(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),0.5),H),NULL),COLORGREEN,NODRAW;

LL1:=LL過濾&&BB&&REFX1(CC,10000)>=0;

LL2:=LL過濾&&BB&&REFX1(CC,10000)<0;

HH1:=HH過濾&&AA&&REFX1(CC,10000)>=0;

HH2:=HH過濾&&AA&&REFX1(CC,10000)<0;

?

DRAWTEXT(LL1&&COUNT(LL1,BARPOS)=1&&EXIST(HH1,BARPOS)=0,L,'',VALIGN0,COLORBLACK;

DRAWTEXT(LL1&&COUNT(LL1,BARPOS)=2&&COUNT(HH1,BARPOS)=1,L,'',VALIGN0,COLORBLACK;

DRAWTEXT(HH1&&COUNT(HH1,BARPOS)=1&&EXIST(LL1,BARPOS)=1,H,'',COLORBLACK;

DRAWTEXT(HH1&&COUNT(HH1,BARPOS)=2&&COUNT(LL1,BARPOS)=2,H,'',COLORBLACK;

DRAWTEXT(LL1&&COUNT(LL1,BARPOS)=1&&EXIST(HH1,BARPOS)=1,L,'',VALIGN0,COLORBLACK;

DRAWTEXT(LL1&&COUNT(LL1,BARPOS)=2&&COUNT(HH1,BARPOS)=2,L,'',VALIGN0,COLORBLACK;

DRAWTEXT(HH1&&COUNT(HH1,BARPOS)=1&&EXIST(LL1,BARPOS)=0,H,'',COLORBLACK;

DRAWTEXT(HH1&&COUNT(HH1,BARPOS)=2&&COUNT(LL1,BARPOS)=1,H,'',COLORBLACK;

DRAWTEXT(HH2&&COUNT(HH2,BARPOS)=1&&EXIST(LL2,BARPOS)=0,H,'',COLORBLACK;

DRAWTEXT(HH2&&COUNT(HH2,BARPOS)=2&&COUNT(LL2,BARPOS)=1,H,'',COLORBLACK;

DRAWTEXT(LL2&&COUNT(LL2,BARPOS)=1&&EXIST(HH2,BARPOS)=1,L,'',VALIGN0,COLORBLACK;

DRAWTEXT(LL2&&COUNT(LL2,BARPOS)=2&&COUNT(HH2,BARPOS)=2,L,'',VALIGN0,COLORBLACK;

DRAWTEXT(HH2&&COUNT(HH2,BARPOS)=1&&EXIST(LL2,BARPOS)=1,H,'',COLORBLACK;

?

DRAWTEXT(HH2&&COUNT(HH2,BARPOS)=2&&COUNT(LL2,BARPOS)=2,H,'',COLORBLACK;

DRAWTEXT(LL2&&COUNT(LL2,BARPOS)=1&&EXIST(HH2,BARPOS)=0,L,'',VALIGN0,COLORBLACK;

DRAWTEXT(LL2&&COUNT(LL2,BARPOS)=2&&COUNT(HH2,BARPOS)=1,L,'',VALIGN0,COLORBLACK;

?

?

?

?

?

DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)>=0,L,HH過濾&&AA&&REFX1(CC,10000)>=0,H,0),COLORRED;

DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)>=0,H,LL過濾&&BB&&REFX1(CC,10000)>=0,L,0),COLORRED;

DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)<0,L,HH過濾&&AA&&REFX1(CC,10000)<0,H,0),COLORGREEN;

DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)<0,H,LL過濾&&BB&&REFX1(CC,10000)<0,L,0),COLORGREEN;

?

DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,1);

DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,0);

DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,1);

DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,0);

?

H1:=HH過濾&&AA&&REFX1(CC,10000)>=0;

HH:=CROSS(BACKSET(ISLASTBAR,SUMBARS(H1,1)),0.5);

?

?來源:程序化99