通达信忽悠乱画 缠论中枢 主图源码
缠论中枢思想是前三笔为主的中枢画线，本指标以近三笔为主作出的中枢画线。
黄色、紫色上升中枢，绿色、蓝色下跌中枢；
虚线中枢未走完，全实线表示中枢成立。
另，前三笔为主的中枢正在写。
{三角形中枢}
时间:=4;
A:=H=HHV(H,时间*5) AND HHV(H,时间*5)>REF(HHV(H,时间*5),1);
B:=L=LLV(L,时间*5) AND LLV(L,时间*5) CC1:DRAWLINE(A,H,B,L,0); CC2:DRAWLINE(B,L,A,H,0); N:=(0,1,1); {缠论高低点} 局部低点预选A:=BACKSET(LLV(L,5) 局部低点预选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); 局部高点预选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 距前高天:=BARSLAST(局部高点预选C=1); 距前低天:=BARSLAST(局部低点预选C=-1); 小值周期:=LOWRANGE(L); 大值周期:=TOPRANGE(H); 低保留AA:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1) 低保留AB:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2) +1),1)),-1,0); 低保留S:=IF((低保留AA=-1 OR 低保留AB=-1) AND L 预判:=IF((距前低天<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)>REF(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); 判断A:=IF(局部低点预选C=-1 AND REF(距前高天,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) 低保留B:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR 判断A=-1),-1,0); 低保留:=IF((低保留A=-1 OR 低保留B=-1) AND L 距前高天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)<=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 REF(距前低天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 AND REF(距前高天A,1)<=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) 低保留XB:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND (距前高天A>=4 OR LLV(缺口判断,距前高天A)=-1 OR 判断XA=-1),-1,0); 低保留X:=IF((低保留XA=-1 OR 低保留XB=-1) AND L 距前高天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(小值周期,距前低天YA+1) AND 大值周期>REF(小值周期,距前低天YA) AND 大值周期>REF(大值周期,距前高天YA),1,0); 高保留YXA:=IF(局部高点预选C=1 AND REF(距前低天YA,1)>REF(距前高天YA,1) AND HHV(H,距前低天YA+1)>REF(HHV(H,距前低天YA+1),1),1,0); 高保留YXB:=IF(局部高点预选C=1 AND 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 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND 预判YXA=1 AND 小值周期>REF(大值周期,距前高天YA+1) AND 小值周期>REF(大值周期,距前高天YA) AND 小值周期>REF(小值周期,距前低天YA),-1,0); 低保留YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)>REF(距前低天YA,1) AND LLV(L,距前高天YA+1) 低保留YXB:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND (距前高天YA>=4 OR LLV(缺口判断,距前高天YA)=-1 OR 判断YXA=-1),-1,0); 低保留YX:=IF((低保留YXA=-1 OR 低保留YXB=-1) AND L YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND L YA,1)+2),-1,0)); 极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD); 局部极点:IF(极点保留=-1,L,IF(极点保留 =1,H,DRAWNULL)),CIRCLEDOT,COLORLIMAGENTA; C1:DRAWLINE(极点保留=-1,局部极点,极点保留=1,局部极点,0),COLORLIGRAY; C2:DRAWLINE(极点保留=1,局部极点,极点保留=-1,局部极点,0),COLORLIGRAY; 极顶:=IF(N=1,C2=C1 AND 局部高点预选A AND 极点保留=1,DRAWNULL); 极底:=IF(N=1,C2=C1 AND 局部低点预选A AND 极点保留=-1,DRAWNULL); A1:=BARSLAST(极顶);B1:=CURRBARSCOUNT=CONST(A1)+1;D1:=BARSLAST(B1);高1:=CONST(REF(H,D1)); A2:=REF(A1,A1+1)+A1+1;B2:=CURRBARSCOUNT=CONST(A2)+1;D2:=BARSLAST(B2);高2:=CONST(REF(H,D2)); A3:=REF(A2,A1+1)+A1+1;B3:=CURRBARSCOUNT=CONST(A3)+1;D3:=BARSLAST(B3);高3:=CONST(REF(H,D3)); DA1:=BARSLAST(极 底);DB1:=CURRBARSCOUNT=CONST(DA1)+1;DD1:=BARSLAST(DB1);低 1:=CONST(REF(L,DD1)); DA2:=REF(DA1,DA1+1)+DA1+1;DB2:=CURRBARSCOUNT=CONST(DA2)+1;DD2:=BARS LAST(DB2);低2:=CONST(REF(L,DD2)); DA3:=REF(DA2,DA1+1)+DA1+1;DB3:=CURRBARSCOUNT=CONST(DA3)+1;DD3:=BARS LAST(DB3);低3:=CONST(REF(L,DD3)); 三角型放大A:=低1<低2 AND 高2>高1 AND DA2>A1 AND A1>DA1 AND A2>DA2 AND CONST(C)>低2; 中枢A1:=IF(三角型放大A AND CONST(C)<高1,DB2,DRAWNULL); STICKLINE(中枢A1,CONST(C),低2,0,0),COLORLIMAGENTA; 中枢A2:=IF(三角型放大A AND CONST(C)<高1,ISLASTBAR,DRAWNULL); STICKLINE(中枢A2,CONST(C),低2,0,0),COLORLIMAGENTA; DRAWLINE(中枢A1=1,CONST(C),中枢A2=1,CONST(C),0),DOTLINE,COLORLIMAGENTA; DRAWLINE(中枢A1=1,低2,中枢A2=1,低2,0),COLORLIMAGENTA; {成立} 中枢AC1:=IF(三角型放大A AND CONST(C)>=高1,DB2,DRAWNULL); STICKLINE(中枢AC1,高1,低1,0,0),COLORLIMAGENTA; 中枢AC2:=IF(三角型放大A AND CONST(C)>=高1,ISLASTBAR,DRAWNULL); STICKLINE(中枢AC2,高1,低1,0,0),COLORLIMAGENTA; DRAWLINE(中枢AC1=1,高1,中枢AC2=1,高1,0),COLORLIMAGENTA; DRAWLINE(中枢AC1=1,低1,中枢AC2=1,低1,0),COLORLIMAGENTA; 三角型放大B:=低1>低2 AND 高1>高2 AND DA1>A1 AND A2>DA1 AND DA2>A2 AND CONST(C)<高2; 中枢B1:=IF(三角型放大B AND CONST(C)>低1,B2,DRAWNULL); STICKLINE(中枢B1,CONST(C),高2,0,0),COLORGREEN; 中枢B2:=IF(三角型放大B AND CONST(C)>低1,ISLASTBAR,DRAWNULL); STICKLINE(中枢B2,CONST(C),高2,0,0),COLORGREEN; DRAWLINE(中枢B1=1,高2,中枢B2=1,高2,0),COLORGREEN; DRAWLINE(中枢B1=1,CONST(C),中枢B2=1,CONST(C),0),DOTLINE,COLORGREEN; {成立} 中枢BC1:=IF(三角型放大B AND CONST(C)<=低1,B2,DRAWNULL); STICKLINE(中枢BC1,高2,低1,0,0),COLORGREEN; 中枢BC2:=IF(三角型放大B AND CONST(C)<=低1,ISLASTBAR,DRAWNULL); STICKLINE(中枢BC2,高2,低1,0,0),COLORGREEN; DRAWLINE(中枢BC1=1,高2,中枢BC2=1,高2,0),COLORGREEN; DRAWLINE(中枢BC1=1,低1,中枢BC2=1,低1,0),COLORGREEN; 三角型收敛A:=低1>低2 AND 高2>高1 AND DA2>A1 AND A1>DA1 AND A2>DA2 AND CONST(C)>低1; 中枢C1:=IF(三角型收敛A AND CONST(C)<高1,DB2,DRAWNULL); STICKLINE(中枢C1,CONST(C),低1,0,0),COLORYELLOW; 中枢C2:=IF(三角型收敛A AND CONST(C)<高1,ISLASTBAR,DRAWNULL); STICKLINE(中枢C2,CONST(C),低1,0,0),COLORYELLOW; DRAWLINE(中枢C1=1,CONST(C),中枢C2=1,CONST(C),0),DOTLINE,COLORYELLOW; DRAWLINE(中枢C1=1,低1,中枢C2=1,低1,0),COLORYELLOW; {成立} 中枢CC1:=IF(三角型收敛A AND CONST(C)>=高1,DB2,DRAWNULL); STICKLINE(中枢CC1,高1,低1,0,0),COLORYELLOW; 中枢CC2:=IF(三角型收敛A AND CONST(C)>=高1,ISLASTBAR,DRAWNULL); STICKLINE(中枢CC2,高1,低1,0,0),COLORYELLOW; DRAWLINE(中枢CC1=1,高1,中枢CC2=1,高1,0),COLORYELLOW; DRAWLINE(中枢CC1=1,低1,中枢CC2=1,低1,0),COLORYELLOW; 三角型收敛B:=低1>低2 AND 高1<高2 AND DA1>A1 AND A2>DA1 AND DA2>A2 AND CONST(C)<高1; 中枢D1:=IF(三角型收敛B AND CONST(C)>低1,B2,DRAWNULL); STICKLINE(中枢D1,CONST(C),高1,0,0),COLORLICYAN; 中枢D2:=IF(三角型收敛B AND CONST(C)>低1,ISLASTBAR,DRAWNULL); STICKLINE(中枢D2,CONST(C),高1,0,0),COLORLICYAN; DRAWLINE(中枢D1=1,高1,中枢D2=1,高1,0),COLORLICYAN; DRAWLINE(中枢D1=1,CONST(C),中枢D2=1,CONST(C),0),DOTLINE,COLORLICYAN; {成立} 中枢DC1:=IF(三角型收敛B AND CONST(C)<=低1,B2,DRAWNULL); STICKLINE(中枢DC1,高1,低1,0,0),COLORLICYAN; 中枢DC2:=IF(三角型收敛B AND CONST(C)<=低1,ISLASTBAR,DRAWNULL); STICKLINE(中枢DC2,高1,低1,0,0),COLORLICYAN; DRAWLINE(中枢DC1=1,高1,中枢DC2=1,高1,0),COLORLICYAN; DRAWLINE(中枢DC1=1,低1,中枢DC2=1,低1,0),COLORLICYAN; 缠论公式集 段成选股 var1:="chzhshch@kxian";{处理K线} var2:="chzhshch@bi";{处理笔关系} var3:="chzhshch@duan";{处理段关系} var4:="chzhshch@duan2";{处理更高级别段关系} bi1:=if(c>0,BARSLAST(var2<0),BARSLAST(var2> 0));{已完成笔向上} bi2:=if(c>0,BARSLAST(var2>0),BARSLAST(var2< 0));{已完成笔向下} bidi:=ref(l,SUMBARS(bi1=0,1)-1);{当前之前（如果在点上算自身1次）第n个笔低点的值} bigao:=ref(h,SUMBARS(bi2=0,1)-1);{当前之前（如果在点上算自身1次）第n个笔高点的值} duan1:=if(c>0,BARSLAST(var3<0),BARSLAST(var3& gt;0));{已完成段向上} duan2:=if(c>0,BARSLAST(var3>0),BARSLAST(var3 <0));{已完成段向下} duanA:=if(c>0,BARSLAST(var4<0),BARSLAST(var4 >0));{已完成更高级段向上} duanB:=if(c>0,BARSLAST(var4>0),BARSLAST(var4 <0));{已完成更高级段向下} 未完成笔往 下:BARSLAST(var2>0)<BARSLAST(var2<0); 未完成段往 下:BARSLAST(var3>0)<BARSLAST(var3<0); 未完成笔向 上:BARSLAST(var2>0)>BARSLAST(var2<0); 未完成段向 上:BARSLAST(var3<0)>BARSLAST(var3>0); TYP:=(HIGH+LOW+CLOSE)/3; CCI:=(TYP-MA(TYP,18))/(0.015*AVEDEV(TYP,18)); DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); MACD:=(DIF-DEA)*2; f30段上选股:未完成段向上=1 and CCI<-100; F30段下二买:未完成段往下=1 and dea>0 AND CCI<-100; MACD底背离选股公式——通达信、同花顺 底背离,通达信版、同花顺版} DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26); DEA:=EMA(DIFF,9); MACD:=2*(DIFF-DEA); 通达信的分笔公式（修改版二） 修改版二，解决了一些错误，但对于某些局部仍没太好的办法，可能会出现顶和底之间無缺口亦無独立K线却算为一笔的情况，这个我想了好久也没找到解决办法。。。 对于大家提到的线太艳的问题，做了修改，用原来的线宽。。。。 然后，有人提到叠加布林线不习惯，改为三个版本，。。。。 1，原带布林线的。。 2、带普通均线系统的。。。 3、带指数平滑移动均线的，就是MACD系统构成的两根均线，参数为常用的12和26 一、原带布林线的。。 源码： 布林中线:MA(CLOSE,21); 布林上线:布林中线+2*STD(CLOSE,21) COLORGREEN; 布林下线:布林中线-2*STD(CLOSE,21) COLORRED; 局部低点预选A:=BACKSET(LLV(L,5) 中枢. MA1:MA(CLOSE,5); MA2:MA(CLOSE,10); {N1:1,100,10;N2:1,100,10;DISP:=1,3,2}; N1:=10;N2:=10;DISP:=2; K:=IF(PERIOD=5,1,{日} IF(PERIOD=6,1,{周} IF(PERIOD=7,1,{月} IF(PERIOD=8,1,{多分钟} IF(PERIOD=9,1,{多日} IF(PERIOD=10,1,{季} IF(PERIOD=11,2,{年} IF(PERIOD=4,1,{60F} IF(PERIOD=3,1,{30F} IF(PERIOD=2,1,{15F} IF(PERIOD=1,1{5F},1{1F})))))))))))/10; {这段是识别中枢} { P1:=PEAK(1,K*N1,1); P2:=PEAK(1,K*N1,2); WP1:=PEAKBARS(1,K*N1,1); WP2:=PEAKBARS(1,K*N1,2); T1:=TROUGH(2,K*N2,1); T2:=TROUGH(2,K*N2,2); WT1:=TROUGHBARS(2,K*N2,1); WT2:=TROUGHBARS(2,K*N2,2); TJ1:=P1>T1 AND P2>T2 ; ZD:=MAX(T1,T2); ZG:=MIN(P1,P2); LL:=MIN(T1,T2); HH:=MAX(P1,P2); TJ2:=FILTER(ZG>ZD,2); TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2)); TJ4:=TJ1&&TJ2&&NOT(TJ3); 通达信缠论指标公式 {N1:1,100,10;N2:1,100,10;DISP:=1,3,2}; N1:=10;N2:=10;DISP:=2; K:=IF(PERIOD=5,1,{日} IF(PERIOD=6,1,{周} IF(PERIOD=7,1,{月} IF(PERIOD=8,1,{多分钟} IF(PERIOD=9,1,{多日} IF(PERIOD=10,1,{季} IF(PERIOD=11,2,{年} IF(PERIOD=4,1,{60F} IF(PERIOD=3,1,{30F} IF(PERIOD=2,1,{15F} IF(PERIOD=1,1{5F},1{1F})))))))))))/10; P1:=PEAK(1,K*N1,1); P2:=PEAK(1,K*N1,2); WP1:=PEAKBARS(1,K*N1,1); WP2:=PEAKBARS(1,K*N1,2); T1:=TROUGH(2,K*N2,1); T2:=TROUGH(2,K*N2,2); WT1:=TROUGHBARS(2,K*N2,1); WT2:=TROUGHBARS(2,K*N2,2); TJ1:=P1>T1 AND P2>T2 ; ZD:=MAX(T1,T2); ZG:=MIN(P1,P2); LL:=MIN(T1,T2); HH:=MAX(P1,P2); TJ2:=FILTER(ZG>ZD,2); TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2)); TJ4:=TJ1&&TJ2&&NOT(TJ3); TJ5:=BETWEEN(ZD,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1))); TJ6:=BETWEEN(ZG,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1))); TJ7:=ZG>REF(ZG,REF(BARSLAST(TJ4),1))&&ZD 目前最准确的通达信缠 论分笔公式 -CAL-FENGHAI.-(YICAI)-Company One1 目前见到的最准确的通达信缠论分笔公式 参数：老笔＝1，使用老笔定义，默认为0，使用新笔定义 G:=MA(C,5);D:=MA(C,10); HH:=REF(H,5)=HHV(H,11); LL:=REF(L,5)=LLV(L,11); FG01:=BACKSET(HH,6)>BACKSET(HH,5) ; FD01:=BACKSET(LL,6)>BACKSET(LL,5) ; FG02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND G>D,FG01, IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0)); FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND D>G,FD01, IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0)); FG0:=FG02 AND H=HHV(H,BARSLAST(FD02)); FD0:=FD02 AND L=LLV(L,BARSLAST(FG02)); GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORCYAN; DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORCYAN; GQ:=L>REF(H,1) AND DAY!=REF(DAY,1); DQ:=H 缠论分笔公式 分笔1 KU1:=IF(HIGH=HHV(HIGH,3),1,0); KD1:=IF(LOW=LLV(LOW,3),1,0); UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0))); DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0))); HV:=H>UL AND H>REF(H,1) ; LV:=L<DL AND L<REF(L,1) ; GP:=BARSLAST(HV); DP:=BARSLAST(LV); IP:=IF(GP=0,DP,GP)>3; HV1:=HV AND IP AND H>=HHV(H,BARSLAST(LV)); LV1:=LV AND IP AND L<=LLV(L,BARSLAST(HV)); DRAWLINE(LV1,LOW,HV1, HIGH,0),COLORYELLOW,LINETHICK2; DRAWLINE(HV1,HIGH,LV1, LOW,0),COLORMAGENTA,LINETHICK2; 分笔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); 局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2); 局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0); 局部极点A:=局部低点预选C+局部高点预选C; 局部极点B:=IF(局部低点预选C=-1,-1,IF(局部高点预选C=1,1,0)); 缺口判断:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0)); 距前高天:=BARSLAST(局部极点A=1); 缠论分型通达信指标公式源码 {缠论分型}MA5:=MA(c,5),LINETHICK1;V00:=hREF(h,1)ANDlREF(h,1) ANDl>REF(l,1);V04:=REF(h,2)=5ANDV03;V2:=COUNT(V00,7)> =3ANDCOUNT(V01ORV02,6)=1ANDLLVBARS(l,7)=2ANDHHV BARS(h,7)>=6ANDV04;V3:=COUNT(V00,7)>=3ANDCOUNT(V 01ORV02,6)=1ANDLLVBARS(l,7)=1ANDHHVBARS(h,7)>=6AN DV03;V4:=COUNT(V00,8)>=3ANDCOUNT(V01ORV02,7)=7AN DV04;V5:=COUNT(V00,8)>=3ANDCOUNT(V01ORV02,7)=7AN DV03;V6:=COUNT(V00,9)>=3ANDCOUNT(V01ORV02,8)=8AN DV04;V7:=COUNT(V00,9)>=3ANDCOUNT(V01ORV02,8)=8AN DV03;V8:=COUNT(V00,10)>=3ANDCOUNT(V01ORV02,9)=9A NDV04;V9:=COUNT(V00,10)>=3ANDCOUNT(V01ORV02,9)=9 ANDV03;V10:=COUNT(V00,11)>=3ANDCOUNT(V01ORV02,10) =10ANDV04;DFX:V1ORV2ORV3ORV4ORV5ORV6ORV7ORV8O RV9ORV10ANDc>MA5;XG:DFXANDc>MA5; 【通达信】原创通达信版－缠论分笔分段公式（附：缠论公式编写教程，打造自己的缠论体系） 一切有为法，如梦幻泡影，如露亦如电，应作如是观。本文开篇就以《金刚经》的偈语作序吧。 缠论大师很多，在下才疏学浅，不到之处敬请点拔。另外声明一下，世间没有包赚钱的公式，只有适合的工具。想通过一个什么包赚钱的价格几万的公式来稳赚不赔，那股市就没有输家了。如果有缘份的话，本文最后将推出缠师最终没有告知大家的力度公式部分。真正得缠者，为见相非相，即见如来。 通达信版公式，因为定义不了全局变量、数组，以及没有循环语句等功能，相比大智慧在公式编程方面差了不少。但通达信的优势还是有的，在此推出一个通达信非DLL 版本的缠论分笔公式，并在后续的文章中逐步讲解如何通过程序，将缠论转化公式。如果缠友仅想得到一公式而已，那就也无所谓细读本文。但凡得道，靠的是觉悟和缘份，在此也就不细说了。初学缠论的朋友也可以参考一些网站或专门的书籍，对阅读本文会有较大的帮助。 一、分形。 缠论集道氏、波浪、江恩学派于一体，结合浑沌理论，将K线形态以分形的方式进行规划，并以一套规则定义波浪 起始点，以中枢的形式表达三角形调整（旗形、契形、钻石等形态，均是三角形形态的变种），以背驰的理论表述力度的衰竭。理论指导实战，行之有效。 分形分二种，一是顶分型，另一是底分型。分型也可以看成是酒田的三山形态，即中间K线高低点均高于二侧的，为顶分型，均低于二侧的，为底分形。当一根K线高低点均在前一根K线价格之类，或者前一根K线高低点均在本根K线价格之类，称为包含关系。在程序处理上，被前一根K线包含的，因为不可能作为分形的顶、底点，所以我们可以不进行处理。如果是后一种包含关系，则观察前一根K线处于什么分形关态，如果前一根是顶分形，则本根向上取值，作为顶分形处理，反之则向下处理为底分形。 但这里有一个特殊情况，在不成笔的情况下，如果这根K线的前一分形状态为低分形，但本K线高点却已经超出了前一个顶分形的顶点，应将这根K线作为顶分形处理，反之亦然。否则，笔的顶底点将不会处于笔内K线的高低点位置。同理，笔有被非笔打破高低点的情况，采取的也是这种办法，即笔的延伸。段亦如此，段被笔打破的，段仍然延续。所以，在最简单的顶底分形的处理上，也应如此。 对于本段的公式语句如下： {************************************************** *******BUILD:20141102****}; 缠论公式编写教程，打造自己的缠 一切有为法，如梦幻泡影，如露亦如电，应作如是观。 本文开篇就以《金刚经》的偈语作序吧。 缠论大师很多，在下才疏学浅，不到之处敬请点拔。另外声明一下，世间没有包赚钱的公式，只有适合的工具。想通过一个什么包赚钱的价格几万的公式来稳赚不赔，那股市就没有输家了。如果有缘份的话，本文最后将推出缠师最终没有告知大家的力度公式部分。真正得缠者，为见相非相，即见如来。 通达信版公式，因为定义不了全局变量、数组，以及没有循环语句等功能，相比大智慧在公式编程方面差了不少。但通达信的优势还是有的，在此推出一个通达信非DLL版本的缠论分笔公式，并在后续的文章中逐步讲解如何通过程序，将缠论转化公式。如果缠友仅想得到一公式而已，那就也无所谓细读本文。但凡得道，靠的是觉悟和缘份，在此也就不细说了。初学缠论的朋友也可以参考一些网站或专门的书籍，对阅读本文会有较大的帮助。 一、分形。 缠论集道氏、波浪、江恩学派于一体，结合浑沌理论，将K线形态以分形的方式进行规划，并以一套规则定义波浪起始点，以中枢的形式表达三角形调整（旗形、契形、钻石等形态，均是三角形形态的变种），以背驰的理论表述力度的衰竭。理论指导实战，行之有效。 分形分二种，一是顶分型，另一是底分型。分型也可以看成是酒田的三山形态，即中间K 线高低点均高于二侧的，为顶分型，均低于二侧的，为底分形。当一根K线高低点均在前一根K线价格之类，或者前一根K线高低点均在本根K线价格之类，称为包含关系。在程序处理上，被前一根K线包含的，因为不可能作为分形的顶、底点，所以我们可以不进行处理。如果是后一种包含关系，则观察前一根K线处于什么分形关态，如果前一根是顶分形，则本根向上取值，作为顶分形处理，反之则向下处理为底分形。 但这里有一个特殊情况，在不成笔的情况下，如果这根K线的前一分形状态为低分形，但本K线高点却已经超出了前一个顶分形的顶点，应将这根K线作为顶分形处理，反之亦然。否则，笔的顶底点将不会处于笔内K线的高低点位置。同理，笔有被非笔打破高低点的情况， 通达信缠论指标公式{N1:1,100,10;N2:1,100,10;DISP:=1,3,2}; N1:=10;N2:=10;DISP:=2; K:=IF(PERIOD=5,1,{日} IF(PERIOD=6,1,{周} IF(PERIOD=7,1,{月} IF(PERIOD=8,1,{多分钟} IF(PERIOD=9,1,{多日} IF(PERIOD=10,1,{季} IF(PERIOD=11,2,{年} IF(PERIOD=4,1,{60F} IF(PERIOD=3,1,{30F} IF(PERIOD=2,1,{15F} IF(PERIOD=1,1{5F},1{1F})))))))))))/10; P1:=PEAK(1,K*N1,1); P2:=PEAK(1,K*N1,2); WP1:=PEAKBARS(1,K*N1,1); WP2:=PEAKBARS(1,K*N1,2); T1:=TROUGH(2,K*N2,1); T2:=TROUGH(2,K*N2,2); WT1:=TROUGHBARS(2,K*N2,1); WT2:=TROUGHBARS(2,K*N2,2); TJ1:=P1>T1 AND P2>T2 ; ZD:=MAX(T1,T2); ZG:=MIN(P1,P2); LL:=MIN(T1,T2); HH:=MAX(P1,P2); TJ2:=FILTER(ZG>ZD,2); TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2)); TJ4:=TJ1&&TJ2&&NOT(TJ3); TJ5:=BETWEEN(ZD,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4 ),1))); TJ6:=BETWEEN(ZG,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4 ),1))); TJ7:=ZG>REF(ZG,REF(BARSLAST(TJ4),1))&&ZD {通达信MA+中枢+分笔公式} {M1,M2 参数自己定，可选5,10} MA1:MA(CLOSE,5); MA2:MA(CLOSE,10); {N1:1,100,10;N2:1,100,10;DISP:=1,3,2}; N1:=10;N2:=10;DISP:=2; K:=IF(PERIOD=5,1,{日} IF(PERIOD=6,1,{周} IF(PERIOD=7,1,{月} IF(PERIOD=8,1,{多分钟} IF(PERIOD=9,1,{多日} IF(PERIOD=10,1,{季} IF(PERIOD=11,2,{年} IF(PERIOD=4,1,{60F} IF(PERIOD=3,1,{30F} IF(PERIOD=2,1,{15F} IF(PERIOD=1,1{5F},1{1F})))))))))))/10; P1:=PEAK(1,K*N1,1); P2:=PEAK(1,K*N1,2); WP1:=PEAKBARS(1,K*N1,1); WP2:=PEAKBARS(1,K*N1,2); T1:=TROUGH(2,K*N2,1); T2:=TROUGH(2,K*N2,2); WT1:=TROUGHBARS(2,K*N2,1); WT2:=TROUGHBARS(2,K*N2,2); TJ1:=P1>T1 AND P2>T2 ; ZD:=MAX(T1,T2); ZG:=MIN(P1,P2); LL:=MIN(T1,T2); HH:=MAX(P1,P2); TJ2:=FILTER(ZG>ZD,2); TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2)); TJ4:=TJ1&&TJ2&&NOT(TJ3); TJ5:=BETWEEN(ZD,REF(ZD,REF(BARSLAST(TJ4),1)),REF (ZG,REF(BARSLAST(TJ4),1))); 目前见到的最准确的通达信缠论分笔公式 参数：老笔＝1，使用老笔定义，默认为0，使用新笔定义 G:=MA(C,5);D:=MA(C,10); HH:=REF(H,5)=HHV(H,11); LL:=REF(L,5)=LLV(L,11); FG01:=BACKSET(HH,6)>BACKSET(HH,5) ; FD01:=BACKSET(LL,6)>BACKSET(LL,5) ; FG02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND G>D,FG01, IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0)); FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND D>G,FD01, IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0)); FG0:=FG02 AND H=HHV(H,BARSLAST(FD02)); FD0:=FD02 AND L=LLV(L,BARSLAST(FG02)); GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORCYAN; DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORCYAN; GQ:=L>REF(H,1) AND DAY!=REF(DAY,1); DQ:=H 通达信顶底分型线段缠论主图指标公式 局部低点预选A:=BACKSET(LLV(L,5) 同花顺缠论分笔及中枢主图指标公式 KU1:=IF(HIGH=HHV(HIGH,3),1,0); KD1:=IF(LOW=LLV(LOW,3),1,0); UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0))); DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0))); HV:=H>UL AND H>REF(H,1) ; LV:=L 自编缠论画中枢和级别的主图指标！ kx:="chanlun@kxian"; kxg:="chanlun@kxg"; kxd:="chanlun@kxd"; kxfx:="chanlun@kxfx"; 笔:="chanlun@bi"; 笔周期:"chanlun@bilast",linethick0, colorff00ff; bilast:="chanlun@bilast";{笔周期}; 段:="chanlun@duan"; 段周期:"chanlun@duanlast", linethick0, colorFFffFF; duanlast:="chanlun@duanlast"; {段周期}; 中枢:="chanlun@zs"; zszg:="chanlun@zszg"; zszd:="chanlun@zszd"; zsgg:="chanlun@zsgg"; zsdd:="chanlun@zsdd"; zszz:="chanlun@zszz"; zsks:="chanlun@zskslast"; zsjs:="chanlun@zsjslast"; bifx:=-REF(笔,bilast); duanfx:=-REF(段,duanlast); kxqj:="chanlun@kxqj"; {画中枢Begin} {以背景方式画} STICKLINE(zszg>zszd AND duanfx=1, zszg, zszd, 10, 1),Color8E236B; STICKLINE(zszg>zszd AND duanfx=-1, zszg, zszd, 10, 1), Color007700; {中枢震荡监视器} DRAWLINE(zsks=1, zszz, zsjs=1, zszz, 0), colorFFFFFF; {画中枢END} {顶底分型} STICKLINE(kx>0, kxg, kxd, 5, 1),Color007700,linethick2; STICKLINE(kx<0, kxg, kxd, 5, 1),Color00ffff,linethick2; {笔段} STICKLINE(笔=1, kxg, kxd, 5, 1), colorgreen, linethick2; STICKLINE(笔=-1, kxg, kxd, 5, 1), colorred, linethick2; STICKLINE(段=1, kxg, kxd, 5, 0), color007700, linethick2; STICKLINE(段=-1, kxg, kxd, 5, 0), color0000cc, linethick2; {画K线END} {画笔段} drawline(笔=1,h,笔=-1,l,0),colorBLUE,linethick2; drawline(笔=-1,l,笔=1,h,0),ColorFF00FF ,linethick2; drawline(段=1,h,段=-1,l,0),color007700, linethick2; drawline(段=-1,l,段=1,h,0),colorRED, linethick2; {笔高低点周期力度提示} 段成选股 var1:="chzhshch@kxian";{处理K线} var2:="chzhshch@bi";{处理笔关系} var3:="chzhshch@duan";{处理段关系} var4:="chzhshch@duan2";{处理更高级别段关系} bi1:=if(c>0,BARSLAST(var2<0),BARSLAST(var2>0));{已完成笔向上} bi2:=if(c>0,BARSLAST(var2>0),BARSLAST(var2<0));{已完成笔向下} bidi:=ref(l,SUMBARS(bi1=0,1)-1);{当前之前（如果在点上算自身1次）第n个笔低点的值} bigao:=ref(h,SUMBARS(bi2=0,1)-1);{当前之前（如果在点上算自身1次）第n个笔高点的值} duan1:=if(c>0,BARSLAST(var3<0),BARSLAST(var3>0));{已完成段向上} duan2:=if(c>0,BARSLAST(var3>0),BARSLAST(var3<0));{已完成段向下} duanA:=if(c>0,BARSLAST(var4<0),BARSLAST(var4>0));{已完成更高级段向上} duanB:=if(c>0,BARSLAST(var4>0),BARSLAST(var4<0));{已完成更高级段向下} 未完成笔往下:BARSLAST(var2>0) {缠论分型} MA5:=MA(c,5),LINETHICK1; V00:= h缠论公式集
通达信的分笔公式
通达信缠论公式
通达信缠论指标公式
目前最准确的通达信缠论分笔公式
缠论分笔公式
缠论分型通达信指标公式源码.doc
【通达信】原创通达信版-缠论分笔分段公式(附：缠论公式编写教程,打造自己的缠论体系)
缠论公式编写教程,打造自己的缠
炒股的公式通达信缠论指标公式
缠中说禅中枢和笔公式通达信版
目前最准确的通达信缠论分笔公式精编版
【炒股必下载的公式】通达信顶底分型线段缠论主图指标公式
【炒股必看】同花顺缠论分笔及中枢主图指标公式
3; HV1:=HV AND IP AND H>=HHV(H,BARSLAST(LV)); LV1:=LV AND IP AND L<=LLV(L,BARSLAST(HV)); DRAWLINE(LV1,LOW,HV1, HIGH,0),coloryellow,LINETHICK2; DRAWLINE(HV1,HIGH,LV1, LOW,0),colormagenta,LINETHICK2; ///加入中枢判定 //简化版 N1:=10;N2:=10;DISP:=2;K:=1; P1:=PEAK(1,K*N1,1); P2:=PEAK(1,K*N1,2); WP1:=PEAKBARS(1,K*N1,1); WP2:=PEAKBARS(1,K*N1,2); T1:=TROUGH(2,K*N2,1); T2:=TROUGH(2,K*N2,2); WT1:=TROUGHBARS(2,K*N2,1); WT2:=TROUGHBARS(2,K*N2,2); TJ1:=P1>T1 AND P2>T2 ; ZD:=MAX(T1,T2); ZG:=MIN(P1,P2); LL:=MIN(T1,T2); HH:=MAX(P1,P2); TJ2:=FILTER(ZG>ZD,2);
自编缠论画中枢和级别的主图指标通达信指标公式源码
缠论公式集
缠论分型通达信指标公式源码