|
以下是通达信锅里捞主图幅图选股（无源码的请下载附件导入）
{主图}
LT:=LLVBARS(L,60);
LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
HT:=FINDHIGHBARS(H,LT+1,60,1);
EXT1:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORYELLOW,LINETHICK2;
TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);
DRAWLINE(TT=0,H,LTT=0,L,0),COLORYELLOW,LINETHICK2;
EXT2:DRAWLINE(LTT=0,(EXT1-L)*0.618+L,ISLASTBAR,REF((EXT1-L)*0.618+L,LTT),0)DOTLINE,COLORLIMAGENTA;
V1:=IF(C>O OR (C=O AND C>=REF(C,1)),VOL,0);
V2:=IF(C<O OR (C=O AND C<REF(C,1)),VOL,0);
LJ:=SUM(V1,LTT)/SUM(V2,LTT);
XG:=COUNT(CROSS(C>=EXT2,0.5),LTT+1)=1 AND CROSS(C>=EXT2,0.5) AND LJ>1.5;
DRAWICON(XG,L*0.95,25);
STICKLINE(XG,C,O,2,0),COLORYELLOW;
STICKLINE(XG,H,L,0,0),COLORYELLOW;
DRAWTEXT(LTT=0,L*0.98,'锅底'),COLORYELLOW;
{幅图}
LT:=LLVBARS(L,60);
LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
HT:=FINDHIGHBARS(H,LT+1,60,1);
TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);
HJ:=REF((REF(H,TT)-L)*0.618+L,LTT);
V1:=IF(C>O OR (C=O AND C>=REF(C,1)),VOL,0);
V2:=IF(C<O OR (C=O AND C<REF(C,1)),VOL,0);
LJ:=SUM(V1,LTT)/SUM(V2,LTT);
XG:=COUNT(CROSS(C>=HJ,0.5),LTT+1)=1 AND CROSS(C>=HJ,0.5) AND LJ>1.5;
STICKLINE(XG,0,7,1.8,0),COLORYELLOW;
{选股}
LT:=LLVBARS(L,60);
LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
HT:=FINDHIGHBARS(H,LT+1,60,1);
TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);
HJ:=REF((REF(H,TT)-L)*0.618+L,LTT);
V1:=IF(C>O OR (C=O AND C>=REF(C,1)),VOL,0);
V2:=IF(C<O OR (C=O AND C<REF(C,1)),VOL,0);
LJ:=SUM(V1,LTT)/SUM(V2,LTT);
COUNT(CROSS(C>=HJ,0.5),LTT+1)=1 AND CROSS(C>=HJ,0.5) AND LJ>1.5;
641211491.png
|
