(完整版)缠精准笔(源码).docx

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季 ,10 年

2、 );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,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(N

3、MA,RMA)+1)ANDL=LLV(L,D)ANDRMA1,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

4、,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) AND REF(H,1)REF(L,1) AND REF(L,1)REF(L,2); 简顶 :=HREF(H,2) AND LREF(L,2); 包含 1:=REF(H,1)=REF(H,

5、2) AND REF(L,1)=REF(L,2);包含 2:=REF(H,1)=REF(L,2);包底 1:=HREF(H,2) AND REF(H,2)REF(L,1) AND REF(L,1)REF(H,1) AND REF(H,1)REF(L,2) AND REF(L,2)REF(L,3); 包顶 1:=HREF(H,3) AND LREF(L,3); 包顶 2:=HREF(H,3) AND LREF(L,3); 复底 :=IF( 包含 1, 包底 1,IF( 包含 2, 包底 2, 简底 ); 复顶 :=IF( 包含 1, 包顶 1,IF( 包含 2, 包顶 2, 简顶 );底分型 :

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

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

8、,0);+1),-1,0); 低保留S, 距前低判断 :=IF( 局部高点预选 C=1 AND REF(距前低天 ,1)REF(小值周期 , 距前低天 +1) AND 大值周期 REF(小值周期 , 距前低天 ) AND 大值周期REF(大值周期 , 距前高天 ),1,0);高保留 A:=IF( 局部高点预选C=1 AND REF(距前低天 ,1)REF( 距前高天 ,1) AND HHV(H, 距前低天 +1)REF(HHV(H,距前低天 +1),1),1,0);高保留 B:=IF( 局部高点预选 C=1 AND REF(距前低天 ,1)=4 OR HHV(缺口判断 , 距前低天 )=1),

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

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

11、 距前低天A)=0,1,0);判断 X:=IF(局部高点预选 C=1 AND REF(距前低天 A,1)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)=4 OR HHV(缺口判断 , 距前低天 A)=1),1

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

13、EF( 距前低天A,1) AND LLV(L,距前高天A+1)REF(LLV(L, 距前高天A+1),1),-1,0);低保留 XB:=IF( 局部低点预选C=-1 AND REF(距前高天A,1)=4 OR LLV( 缺口判断 , 距前高天A)=-1 OR判断 XA=-1),-1,0);低保留 X:=IF(低保留 XA=-1 OR 低保留 XB=-1) AND LREF(H, 距前高天 A+1),-1,0);距前高天YA:=BARSLAST(高保留 X=1);距前低天YA:=BARSLAST(低保留 X=-1);预判 YX:=IF( 距前低天YA4 AND HHV(缺口判断 , 距前低天YA

14、)!=1) OR REF( 低保留 X, 距前低天 YA)=0,1,0);判断 YX:=IF( 局部高点预选 C=1 AND REF(距前低天 YA,1)REF(小值周期 , 距前低天 YA+1) AND 大值周期 REF(小值周期 , 距前低天 YA) AND 大值周期 REF(大值周期 , 距前高天 YA),1,0);高保留 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(距前低天Y

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

16、1,0);低保留 YXA:=IF( 局部低点预选C=-1 ANDREF(距前高天 YA,1)REF( 距前低天 YA,1) ANDLLV(L,距前高天 YA+1)REF(LLV(L, 距前高天 YA+1),1),-1,0);低保留 YXB:=IF( 局部低点预选 C=-1 ANDREF(距前高天 YA,1)=4 OR LLV(缺口判断 , 距前高天 YA)=-1 OR 判断 YXA=-1),-1,0);低保留 YX:=IF( 低保留 YXA=-1 OR 低保留 YXB=-1) AND LREF(H,REF(距前高天 YA,1)+2),1,IF(高保留 YX=1 AND 低保留 YX=-1 AND LREF(L,REF( 距前低天 YA,1)+2),-1,0);极点保留 :=IF(