缠精准笔(源码)

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

2、季 ,10 年 ); 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=

3、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(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

4、(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;

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)<=R

6、EF(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(重心线 , 牛熊线 )>3,

8、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)

9、,4);局部高点预选 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

10、(距前低天 ,1) 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( 距前低天 <

11、;4 AND HHV( 缺口判断 , 距前低天 )!=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, 距前 低天 +1）>RE

12、F（HHV（H,距前低天 +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）;判断

13、A:=IF（ 局部低点预选 C=-1 ANDR EF（距前高天 ,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 A

14、ND REF（距前高天 ,1）<=REF（ 距前低天 ,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（ 局

15、部高点预选 C=1 AND REF（距前低天 A,1）<=REF（ 距前高天 A,1） AND 预判 X=1 AND 大值周期 >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 RE

16、F距（ 前低天 A,1）<=REF（距前高天 A,1） AND REF（低 保留 ,距前低天 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 ANDR EF（距前高天 A,1）

17、<=REF（距前低天 A,1） AND 预判 XA=1 AND 小值周期 >REF（大值周期 ,距前高天 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（ 距

18、前低天 A,1） AND （距前 高天 A>=4 OR LLV（缺口判断 ,距前高天 A）=-1 OR 判断 XA=-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

19、 AND REF（距前低天 YA,1）<=REF（距前高天 YA,1） AND 预判 YX=1 AND 大值周期 >REF（小值周期 , 距前低天 YA+1） AND 大值周期 >REF（小值周期 ,距前低天 YA） AND 大值周期 >REF（大值周期 , 距前高天 YA）,1,0）;高保留 YXA:=IF（ 局部高点预选 C=1 ANDR EF（距前低天 YA,1）>REF（ 距前高天 YA,1） ANDH HV（H, 距前低天 YA+1）>REF（HHV（H,距前低天 YA+1）,1）,1,0）;高保留 YXB:=IF（ 局部高点预选 C=1 AND

20、REF（距前低天 YA,1）<=REF（距前高天 YA,1） AND REF（低保留 X,距前低天 YA）=-1 AND （ 距前低天 YA>=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 ANDR EF（距前高天 YA,1）<=REF（ 距前低天 YA,1） AND 预判 YXA=1 AND 小值周期 >REF（大值周期,距前高天 YA+1） AND 小值周期>REF（大值周期 ,距前高 天 YA） AND 小值周期 >REF（小值周期 , 距前低天 YA）,-1,0）;低保留 YXA:=IF（ 局部低点预选 C=-1 ANDR EF（距前高天