缠精准笔(源码).docVIP

缠精准笔（通达信专用，其他软件可改用，该指标是市面上最好用的指标，极大方便了投资者对笔的划分，该源码必须放在主图中。）

SHORT:=7;LONG:=19;

MA1:MA(CLOSE,5);

MA2:MA(CLOSE,10);

MA3:MA(CLOSE,20);

MA4:MA(CLOSE,60);

T:=PERIOD;

D:=IF(T=0,30,{1F}

IF(T=1,25,{5F}

IF(T=8,25,{多分钟}

IF(T=2,20,{15F}

IF(T=3,20,{30F}

IF(T=4,20,{60F}

IF(T=5,10,{日}

IF(T=6,10,{周}

IF(T=7,10,{月}

IF(T=9,10,{多日}

IF(T=10,10{季},10{年})))))))))));

RMA:=EMA(CLOSE,SHORT),COLORLIGRAY;

NMA:=EMA(CLOSE,LONG),COLORMAGENTA;

RISK:=IF(NMARMA,NMA,DRAWNULL),COLORGREEN;

DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1)ANDL=LLV(L,D)ANDRMA=NMA,L,H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1)ANDH=HHV(H,D)ANDRMA=NMA,H,0),COLOR0000FF,LINETHICK2;

DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1)ANDH=HHV(H,D)ANDRMA=NMA,H,L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1)ANDL=LLV(L,D)ANDRMA=NMA,L,0),COLOR238E23,LINETHICK2;

重心线:=(H+L+O+C*3)/6;

{DRAWGBKLAST(V1,STRIP(RGB(60,10,0),RGB(10,50,0),0));}

NX:=(3*CLOSE+LOW+OPEN+HIGH)/6;

牛线:=(20*NX+19*REF(NX,1)+18*REF(NX,2)+17*REF(NX,3)+16*REF(NX,4)

+15*REF(NX,5)+14*REF(NX,6)+13*REF(NX,7)+12*REF(NX,8)+11*REF(NX,9)

+10*REF(NX,10)+9*REF(NX,11)+8*REF(NX,12)+7*REF(NX,13)+6*REF(NX,14)

+5*REF(NX,15)+4*REF(NX,16)+3*REF(NX,17)

+2*REF(NX,18)+REF(NX,20))/210;

{牛熊线:MA(牛线,6),COLORGREEN,LINETHICK2;}

牛熊线:=MA(牛线,6);{,COLORLIGREEN,LINETHICK1;}

{DRAWBAND(重心线,RGB(168,18,38),牛熊线,RGB(10,100,200));}

简底:=HREF(H,1)ANDREF(H,1)REF(H,2)ANDLREF(L,1)ANDREF(L,1)REF(L,2);

简顶:=HREF(H,1)ANDREF(H,1)REF(H,2)ANDLREF(L,1)ANDREF(L,1)REF(L,2);

包含1:=REF(H,1)=REF(H,2)ANDREF(L,1)=REF(L,2);

包含2:=REF(H,1)=REF(H,2)ANDREF(L,1)=REF(L,2);

包底1:=HREF(H,2)ANDREF(H,2)REF(H,3)ANDLREF(L,1)ANDREF(L,1)REF(L,3);

包底2:=HREF(H,1)ANDREF(H,1)REF(H,3)ANDLREF(L,2)ANDREF(L,2)REF(L,3);

包顶1:=HREF(H,1)ANDREF(H,1)REF(H,3)ANDLREF(L,2)ANDREF(L,2)REF(L,3);

包顶2:=HREF(H,2)ANDREF(H,2)REF(H,3)ANDLREF(L,1)ANDREF(L,1)REF(L,3);

复底:=IF(包含1,包底1,IF(包含2,包底2,简底));

复顶:=IF(包含1,包顶1,IF(包含2,包顶2,简顶));

底分型:=IF(BARSLAST(CROSS(牛熊线,重心线))3,FILTER(BACKSET(FILTER(复底AND重心线牛熊线,3),2),1),0);

顶分型:=IF(BARSLA