打印本文
關(guān)閉窗口
1過(guò)濾:=FILTER(BACKSET(FILTER(REF(H,5)=HHV(H,2*5+1),5),5+1),5);
D2過(guò)濾:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,2*5+1),5),5+1),5);
H1過(guò)濾:=D1過(guò)濾 AND NOT((D2過(guò)濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1過(guò)濾:=D2過(guò)濾 AND NOT((D1過(guò)濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2<(H+L)/2));
H2過(guò)濾:=D1過(guò)濾 AND NOT((D2過(guò)濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2));
F1過(guò)濾:=BACKSET(H1過(guò)濾 AND COUNT(L1過(guò)濾,REF(BARSLAST(H1過(guò)濾),1)+1)>0,LLVBARS(L,REF(BARSLAST(H1過(guò)濾),1)+1)+1);
LD過(guò)濾:=BACKSET(F1過(guò)濾>REF(F1過(guò)濾,1),1)>REF(BACKSET(F1過(guò)濾>REF(F1過(guò)濾,1),1),1);
L2過(guò)濾:=LD過(guò)濾 OR ISLASTBAR OR BARSCOUNT(C)=1;
F2過(guò)濾:=BACKSET(L2過(guò)濾 AND COUNT(H2過(guò)濾,REF(BARSLAST(L2過(guò)濾),1)+1)>0,HHVBARS(H,REF(BARSLAST(L2過(guò)濾),1)+1)+1);
HD過(guò)濾:=BACKSET(F2過(guò)濾>REF(F2過(guò)濾,1),1)>REF(BACKSET(F2過(guò)濾>REF(F2過(guò)濾,1),1),1);
HH過(guò)濾:=HD過(guò)濾&&NOT(LD過(guò)濾)&&REFX1(BACKSET(HD過(guò)濾&&H>HV(H,BARSLAST(LD過(guò)濾)),BARSLAST(LD過(guò)濾))<>1,1);
LL過(guò)濾:=LD過(guò)濾&&NOT(HD過(guò)濾)&&REFX1(BACKSET(LD過(guò)濾&&L<LV(L,BARSLAST(HD過(guò)濾)),BARSLAST(HD過(guò)濾))<>1,1);
AA:=BACKSET(ISLASTBAR,SUMBARS(HH過(guò)濾,2));
BB:=BACKSET(ISLASTBAR,SUMBARS(LL過(guò)濾,2));
CC:=IF(BARSLAST(HH過(guò)濾)>BARSLAST(LL過(guò)濾),REF(L,BARSLAST(LL過(guò)濾))-REF(H,SUMBARS(HH過(guò)濾=1,2)),REF(H,BARSLAST(HH過(guò)濾))-REF(L,SUMBARS(LL過(guò)濾=1,2)));
DD:=IF(BARSLAST(HH過(guò)濾)>BARSLAST(LL過(guò)濾),REF(L,BARSLAST(LL過(guò)濾)),REF(H,BARSLAST(HH過(guò)濾)));
?
DRAWLINE1(LL過(guò)濾&&BB&&REFX1(CC,10000)>=0,L,HH過(guò)濾&&AA&&REFX1(CC,10000)>=0,H,0),COLORRED;
DRAWLINE1(HH過(guò)濾&&AA&&REFX1(CC,10000)>=0,H,LL過(guò)濾&&BB&&REFX1(CC,10000)>=0,L,0),COLORRED;
DRAWLINE1(LL過(guò)濾&&BB&&REFX1(CC,10000)<0,L,HH過(guò)濾&&AA&&REFX1(CC,10000)<0,H,0),COLORGREEN;
DRAWLINE1(HH過(guò)濾&&AA&&REFX1(CC,10000)<0,H,LL過(guò)濾&&BB&&REFX1(CC,10000)<0,L,0),COLORGREEN;
SS:=BACKSET(ISLASTBAR,SUMBARS(LL過(guò)濾,1));
QQ:=BACKSET(ISLASTBAR,SUMBARS(HH過(guò)濾,1));
DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過(guò)濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,1);
DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過(guò)濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,0);
DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過(guò)濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,1);
DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過(guò)濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,0);
（心預(yù)期支阻） 盈加風(fēng)控！平反驗(yàn)證:
IF(C>REF(L,BARSLAST(LL過(guò)濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過(guò)濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C>REF(L,BARSLAST(LL過(guò)濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過(guò)濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),0.5),L),NULL),COLORRED,NODRAW;
（心預(yù)期阻支） 限虧風(fēng)控！平反驗(yàn)證:
IF(C<REF(H,BARSLAST(HH過(guò)濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過(guò)濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C<REF(H,BARSLAST(HH過(guò)濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過(guò)濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),0.5),H),NULL),COLORGREEN,NODRAW;
LL1:=LL過(guò)濾&&BB&&REFX1(CC,10000)>=0;
LL2:=LL過(guò)濾&&BB&&REFX1(CC,10000)<0;
HH1:=HH過(guò)濾&&AA&&REFX1(CC,10000)>=0;
HH2:=HH過(guò)濾&&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過(guò)濾&&BB&&REFX1(CC,10000)>=0,L,HH過(guò)濾&&AA&&REFX1(CC,10000)>=0,H,0),COLORRED;
DRAWLINE1(HH過(guò)濾&&AA&&REFX1(CC,10000)>=0,H,LL過(guò)濾&&BB&&REFX1(CC,10000)>=0,L,0),COLORRED;
DRAWLINE1(LL過(guò)濾&&BB&&REFX1(CC,10000)<0,L,HH過(guò)濾&&AA&&REFX1(CC,10000)<0,H,0),COLORGREEN;
DRAWLINE1(HH過(guò)濾&&AA&&REFX1(CC,10000)<0,H,LL過(guò)濾&&BB&&REFX1(CC,10000)<0,L,0),COLORGREEN;
?
DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過(guò)濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,1);
DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過(guò)濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,0);
DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過(guò)濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,1);
DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過(guò)濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,0);
?
H1:=HH過(guò)濾&&AA&&REFX1(CC,10000)>=0;
HH:=CROSS(BACKSET(ISLASTBAR,SUMBARS(H1,1)),0.5);
?
?來(lái)源:程序化99