打印本文
關閉窗口
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