目前最准确的画笔画段公式,有中枢买卖点提示,我只是搬运工,非原创,只是分享
{缠论笔段公式}
{参数设置}
N:=5; {笔的最小K线数}
M:=3; {段的最小笔数}
{高低点判断}
HH:=H>REF(H,1) AND H>REF(H,2) AND H>REF(H,3) AND H>REF(H,4) AND H>REF(H,5);
LL:=L<REF(L,1) AND L<REF(L,2) AND L<REF(L,3) AND L<REF(L,4) AND L<REF(L,5);
{顶分型}
TOP:=HH AND REF(H,1)>REF(H,2) AND REF(H,1)>REF(H,3) AND REF(H,1)>REF(H,4) AND REF(H,1)>REF(H,5) AND REF(H,1)>H;
{底分型}
BOTTOM:=LL AND REF(L,1)<REF(L,2) AND REF(L,1)<REF(L,3) AND REF(L,1)<REF(L,4) AND REF(L,1)<REF(L,5) AND REF(L,1)<L;
{笔的识别}
UP_PEN:=BARSLAST(BOTTOM)<BARSLAST(TOP) AND BARSLAST(BOTTOM)>=N;
DOWN_PEN:=BARSLAST(TOP)<BARSLAST(BOTTOM) AND BARSLAST(TOP)>=N;
{段的识别}
UP_DUAN:=COUNT(UP_PEN,M)>=M AND EVERY(UP_PEN,M);
DOWN_DUAN:=COUNT(DOWN_PEN,M)>=M AND EVERY(DOWN_PEN,M);
{画线}
DRAWLINE(UP_PEN,H,DOWN_PEN,L,0),COLORRED,LINETHICK2;
DRAWLINE(DOWN_PEN,L,UP_PEN,H,0),COLORGREEN,LINETHICK2;
DRAWLINE(UP_DUAN,H,DOWN_DUAN,L,0),COLORBLUE,LINETHICK3;
DRAWLINE(DOWN_DUAN,L,UP_DUAN,H,0),COLORYELLOW,LINETHICK3;
{标记}
DRAWTEXT(TOP,H*1.01,'顶'),COLORRED;
DRAWTEXT(BOTTOM,L*0.99,'底'),COLORGREEN;
DRAWTEXT(UP_DUAN,H*1.02,'上段'),COLORBLUE;
DRAWTEXT(DOWN_DUAN,L*0.98,'下段'),COLORYELLOW;