缠精准笔(源码)

1、页眉.缠精准笔（通达信专用，其他软件可改用，该指标是市面上最好用的指标，极大方便了投资者对笔的划分，该源码必须放在主图中。）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,1FIF(T=1,25,5FIF(T=8,25,多分钟 IF(T=2,20,15FIF(T=3,20,30FIF(T=4,20,60FIF(T=5,10,日 IF(T=6,10,周 IF(T=7,10,月 IF(T=9,10,多日 IF(T=10,10季 ,1

2、0 年 );RMA:=EMA(CLOSE,SHORT),COLORLIGRAY;NMA:=EMA(CLOSE,LONG),COLORMAGENTA;RISK:=IF(NMA>RMA,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,B

3、ARSLAST(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(V>1,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)+

4、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;1 / 4页

5、眉.DRAWBAND(重心线 ,RGB(168,18,38),牛熊线 ,RGB(10,100,200);简底 :=H>REF(H,1) AND REF(H,1)<REF(H,2) AND L>REF(L,1) AND REF(L,1)<REF(L,2); 简顶 :=H<REF(H,1) AND REF(H,1)>REF(H,2) AND L<REF(L,1) AND REF(L,1)>REF(L,2); 包含 1:=REF(H,1)>=REF(H,2) AND REF(L,1)<=REF(L,2);包含 2:=REF(H,1)<

6、=REF(H,2) AND REF(L,1)>=REF(L,2);包底 1:=H>REF(H,2) AND REF(H,2)<REF(H,3) AND L>REF(L,1) AND REF(L,1)<REF(L,3); 包底 2:=H>REF(H,1) AND REF(H,1)<REF(H,3) AND L>REF(L,2) AND REF(L,2)<REF(L,3); 包顶 1:=H<REF(H,1) AND REF(H,1)>REF(H,3) AND L<REF(L,2) AND REF(L,2)>REF(L,3

7、); 包顶 2:=H<REF(H,2) AND REF(H,2)>REF(H,3) AND L<REF(L,1) AND REF(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(BARSLAST(CROSS(重心线 ,

8、牛熊线 )>3,FILTER(BACKSET(FILTER( 复顶 AND 重心线>牛熊线 ,3),2),1),0);DRAWICON(底分型 ,L,1); DRAWICON(顶分型 ,H,2);*局部低点预选A:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);局部低点预选B:=BACKSET(局部低点预选A=0 AND REF(局部低点预选A,1)=1,2);局部低点预选C:=IF( 局部低点预选B=1 AND REF(局部低点预选B,1)=0,-1,0);局部高点预选A:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4

9、);局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);局部高点预选C:=IF( 局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0);缺口判断 :=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0);距前高天 :=BARSLAST(局部高点预选C=1);距前低天 :=BARSLAST(局部低点预选C=-1);小值周期 :=LOWRANGE(L);大值周期 :=TOPRANGE(H);低保留 AA:=IF( 局部低点预选C=-1 AND REF( 距前高天 ,1)>REF( 距前低天 ,1

10、) AND LLV(L,距前高天 +1)<REF(LLV(L, 距前高天 +1),1),-1,0);低保留 AB:=IF( 局部低点预选C=-1 AND REF( 距前高天 ,1)<=REF( 距前低天 ,1) AND (距前高天 >=4 OR LLV( 缺口判断, 距前高天)=-1 OR LLV(L,距前低天+2)<REF(LLV(L, 距前低天+1),1),-1,0);低保留 S:=IF(低保留 AA=-1 OR 低保留 AB=-1) AND L<REF(H, 距前高天 +1),-1,0);预判 :=IF(距前低天<4 AND HHV( 缺口判断, 距前

11、低天)!=1) OR REF(低保留S, 距前低天)=0,1,0);判断 :=IF( 局部高点预选 C=1 AND REF(距前低天 ,1)<=REF( 距前高天 ,1) AND 预判 =1 AND 大值周期 >REF(小值周期 , 距前低天 +1) AND 大值周期 >REF(小值周期 , 距前低天 ) AND 大值周期>REF(大值周期 , 距前高天 ),1,0);高保留 A:=IF( 局部高点预选C=1 AND REF(距前低天 ,1)>REF( 距前高天 ,1) AND HHV(H, 距前2 / 4页眉.低天 +1)>REF(HHV(H,距前低天 +

12、1),1),1,0);高保留 B:=IF( 局部高点预选 C=1 AND REF(距前低天 ,1)<=REF( 距前高天 ,1) AND REF( 低保留 S, 距前低天 )=-1 AND ( 距前低天 >=4 OR HHV(缺口判断 , 距前低天 )=1),1,0);高保留 :=IF(高保留 A=1 OR 高保留 B=1 OR 判断 =1) AND H>REF(L, 距前低天 +1),1,0);预判A:=IF(距前高天<4 AND HHV( 缺口判断, 距前高天)!=1) OR REF(高保留 , 距前高天)=0,1,0);判断 A:=IF( 局部低点预选 C=-1

13、ANDREF(距前高天 ,1)<=REF( 距前低天 ,1) AND 预判 A=1 AND 小值周期 >REF(大值周期 , 距前高天 +1) AND 小值周期 >REF(大值周期 , 距前高天 ) AND 小值周期>REF(小值周期 , 距前低天 ),-1,0);低保留 A:=IF( 局部低点预选C=-1 AND REF(距前高天 ,1)>REF( 距前低天 ,1) AND LLV(L, 距前高天 +1)<REF(LLV(L, 距前高天 +1),1),-1,0);低保留B:=IF( 局部低点预选C=-1 AND REF( 距前高天 ,1)<=REF(

14、 距前低天 ,1) AND (距前高天>=4 OR LLV( 缺口判断 , 距前高天 )=-1 OR 判断 A=-1),-1,0);低保留 :=IF(低保留 A=-1 OR 低保留 B=-1) AND L<REF(H, 距前高天 +1),-1,0);距前高天 A:=BARSLAST(高保留 =1);距前低天 A:=BARSLAST(低保留 =-1);预判 X:=IF(距前低天 A<4 AND HHV(缺口判断 , 距前低天 A)!=1) OR REF( 低保留 , 距前低天A)=0,1,0);判断 X:=IF(局部高点预选 C=1 AND REF(距前低天 A,1)<=

15、REF( 距前高天 A,1) AND 预判 X=1AND 大值周期 >REF(小值周期 , 距前低天 A+1) AND 大值周期 >REF(小值周期 , 距前低天 A) AND大值周期 >REF(大值周期 , 距前高天 A),1,0);高保留 XA:=IF( 局部高点预选C=1 AND REF(距前低天A,1)>REF( 距前高天 A,1) AND HHV(H,距前低天 A+1)>REF(HHV(H,距前低天 A+1),1),1,0);高保留 XB:=IF( 局部高点预选C=1 AND REF(距前低天A,1)<=REF( 距前高天 A,1) AND REF

16、(低保留 , 距前低天 A)=-1 AND (距前低天 A>=4 OR HHV(缺口判断 , 距前低天 A)=1),1,0);高保留X:=IF(高保留XA=1 OR 高保留XB=1 OR 判断X=1) AND H>REF(L, 距前低天A+1),1,0);预判 XA:=IF( 距前高天A<4 AND HHV(缺口判断 , 距前高天A)!=1) OR REF( 高保留 XA,距前高天 A)=0,1,0);判断 XA:=IF( 局部低点预选C=-1 ANDREF(距前高天 A,1)<=REF( 距前低天 A,1)AND 预判 XA=1AND 小值周期 >REF(大值周

17、期 , 距前高天A+1) AND 小值周期 >REF(大值周期 , 距前高天 A) AND小值周期 >REF(小值周期 , 距前低天A),-1,0);低保留 XA:=IF( 局部低点预选C=-1 AND REF(距前高天A,1)>REF( 距前低天A,1) AND LLV(L,距前高天A+1)<REF(LLV(L, 距前高天A+1),1),-1,0);低保留 XB:=IF( 局部低点预选C=-1 AND REF(距前高天A,1)<=REF( 距前低天A,1) AND ( 距前高天 A>=4 OR LLV( 缺口判断 , 距前高天A)=-1 OR判断 XA=-

18、1),-1,0);低保留 X:=IF(低保留 XA=-1 OR 低保留 XB=-1) AND L<REF(H, 距前高天 A+1),-1,0);距前高天YA:=BARSLAST(高保留 X=1);距前低天YA:=BARSLAST(低保留 X=-1);预判 YX:=IF( 距前低天YA<4 AND HHV(缺口判断 , 距前低天YA)!=1) OR REF( 低保留 X, 距前低天 YA)=0,1,0);判断 YX:=IF( 局部高点预选 C=1 AND REF(距前低天 YA,1)<=REF( 距前高天 YA,1) AND 预判 YX=1 AND 大值周期 >REF(小

19、值周期 , 距前低天 YA+1) AND 大值周期 >REF(小值周期 , 距前低天 YA) AND 大值周期 >REF(大值周期 , 距前高天 YA),1,0);3 / 4页眉.高保留 YXA:=IF( 局部高点预选C=1 ANDREF(距前低天 YA,1)>REF( 距前高天 YA,1) ANDHHV(H,距前低天YA+1)>REF(HHV(H,距前低天 YA+1),1),1,0);高保留YXB:=IF( 局部高点预选C=1 AND REF(距前低天YA,1)<=REF( 距前高天YA,1) ANDREF(低保留X, 距前低天YA)=-1 AND (距前低天Y

20、A>=4 OR HHV( 缺口判断, 距前低天YA)=1),1,0);高保留YX:=IF(高保留YXA=1 OR 高保留YXB=1 OR 判断YX=1) AND H>REF(L, 距前低天YA+1),1,0);预判 YXA:=IF( 距前高天YA<4 AND HHV(缺口判断 , 距前高天YA)!=1) OR REF( 高保留YXA,距前高天YA)=0,1,0);判断 YXA:=IF( 局部低点预选C=-1 ANDREF(距前高天YA,1)<=REF( 距前低天YA,1) AND 预判YXA=1 AND 小值周期 >REF(大值周期 , 距前高天YA+1) AND 小值周期 >REF(大值周期 , 距前高天 YA) AND 小值周期 >REF(小值周期 , 距前低天 YA),-1,0);低保留 YXA:=IF( 局部低点预选C=-1 ANDREF(距前高天 YA,1)>REF( 距前低天 YA,1) ANDLLV(L,距前高天 YA+1)<R