缠论一买、三买选股公式飞狐+悟多公式
缠论一买、三买选股公式（飞狐+悟多公式）
公式指标2009-08-14 11:42:38 阅读5639 评论20 字号：大中小订阅
一买的选股公式初步搞出来的，当然还不完善，不能算是一买的公式，充其量算选出即将盘整背驰的，不过两个中枢下的盘整背驰就是一买了，当然真正是否背驰还要靠人工来判断，它只能
初选，不过也省下很多事了，欢迎使用，多提意见。
begin
if DATAPERIOD=0 then minbi:="fbase.var2#min1";
if DATAPERIOD=1 then minbi:="fbase.var2#min5";
if DATAPERIOD=2 then minbi:="fbase.var2#min30";
if DATAPERIOD=3 then minbi:="fbase.var2#min60";
if DATAPERIOD=4 then minbi:="fbase.var2#day";
if DATAPERIOD=5 then minbi:="fbase.var2#day";
if DATAPERIOD=6 then minbi:="fbase.var2#week";
if DATAPERIOD=7 then minbi:="fbase.var2#month";
if DATAPERIOD=8 then minbi:="fbase.var2#year";
var001:="fbase.var2#min30";
if datatype=3 then var001:="fbase.var2#min60";
if datatype=4 then var001:="fbase.var2#day";
var1:="chzhshch@kxian";
var2:="chzhshch@bi";{处理笔关系}
var3:="chzhshch@tongji"(minbi);{同级别分解}
zg:="chzhshch@zg"(var3);//一定要先调用ZG
zd:="chzhshch@zd"(var3);
zswz:=barslast(zg>zd);
tj3:=count(abs(var3),barslast(var3=1))=0;
tj4:=l tj5:=count(var2=1,zswz-1)>0; tj6:=ref(h,barslast(var2=1)) tj7:=count(zg>zd,barslast(var3=1))>0; not(zg>zd)&&tj3&&tj7&&tj4&&tj5&&tj6; end; 一买是模糊的，不准确的，三买就比较标准了，同样背驰需自行判断，否则不背驰就跌回中枢了： begin if DATAPERIOD=0 then minbi:="fbase.var2#min1"; if DATAPERIOD=1 then minbi:="fbase.var2#min5"; if DATAPERIOD=2 then minbi:="fbase.var2#min30"; if DATAPERIOD=3 then minbi:="fbase.var2#min60"; if DATAPERIOD=4 then minbi:="fbase.var2#day"; if DATAPERIOD=5 then minbi:="fbase.var2#day"; if DATAPERIOD=6 then minbi:="fbase.var2#week"; if DATAPERIOD=7 then minbi:="fbase.var2#month"; if DATAPERIOD=8 then minbi:="fbase.var2#year"; var001:="fbase.var2#min30"; if datatype=3 then var001:="fbase.var2#min60"; if datatype=4 then var001:="fbase.var2#day"; var1:="chzhshch@kxian"; var2:="chzhshch@bi";{处理笔关系} var3:="chzhshch@tongji"(minbi);{同级别分解} zg:="chzhshch@zg"(var3);//一定要先调用ZG zd:="chzhshch@zd"(var3); var1:="chzhshch@kxian"; var2:="chzhshch@bi"; var4:=barslast(var001<>0); tj1:=ref(var001,var2)=-1; //上级别是底 var5:=sum(abs(var2),var2); tj2:=var5=1; //第一个回调才算 tj3:=count(abs(var3),barslast(var3=-1))=0; zswz:=barslast(zg>zd); tj4:=count(zg>zd,barslast(var3=-1))>0; tj5:=count(var2=1,barslast(var2=-1))=1; tj6:=count(var2=1,zswz-1)=1; tj7:=ref(l,barslast(var2=1))>ref(zg,barslast(zg>zd)); not(zg>zd)&&tj3&&tj4&&tj5&&tj6&&tj7; end; MA10:=MA(CLOSE,10); MA5:=MA(CLOSE,5); MA1:=MA5-MA10; MA2:=MA10; MA3:=MA10; DATANUMBER:=DATATYPE; DATANUMBER1:=DATATYPE; DATANUMBER2:=DATATYPE; DATANUMBER3:=DATATYPE; LING:=HIGH; <% vbdatanumber = FFL.VarData("datanumber") vbdatanumber1 = FFL.VarData("datanumber1") vbdatanumber2 = FFL.VarData("datanumber2") vbdata=1 vbdata1=0.001 vbdata2=1 Select Case vbdatanumber Case 0 vbdata=0.015 vbdata1=0.001 vbdata2=0.015 Case 1 vbdata=0.018 vbdata1=0.001 vbdata2=0.018 Case 2 vbdata=0.037 vbdata1=0.001 vbdata2=0.037 Case 3 vbdata=0.052 vbdata1=0.001 vbdata2=0.052 Case 4 vbdata=0.067 vbdata1=0.001 vbdata2=0.067 Case 5 vbdata=0.13 vbdata1=0.001 vbdata2=0.13 Case 6 vbdata=0.28 vbdata1=0.001 vbdata2=0.28 Case 7 vbdata=0.45 vbdata1=0.001 vbdata2=0.45 Case 8 vbdata=0.73 vbdata1=0.001 vbdata2=0.73 Case 9 vbdata=1.2 vbdata1=0.001 vbdata2=1.2 Case 10 vbdata=0.6 vbdata1=0.001 vbdata2=0.6 Case 11 vbdata=0.1 vbdata1=0.001 vbdata2=0.1 Case 12 vbdata=0.02 vbdata1=0.001 vbdata2=0.02 Case else vbdata=2 vbdata1=0.001 vbdata2=2 End Select FFL.VarData("datanumber") =vbdata FFL.VarData("datanumber1") =vbdata1 FFL.VarData("datanumber2") =vbdata2 vbling = FFL.VarData("ling") vbma = FFL.VarData("ma1") vbma2 = FFL.VarData("ma2") vbma3 = FFL.VarData("ma3") nlast = UBound( vbma ) nvalue = 0.0000 nvaluefu = 0.0000 bianhua = 2 oldbianhua = 0 for m = 0 to nlast vbma2(m) = 0 vbma3(m) = 0 vbling(m)=0 next m= 0 for i = 0 to nlast m=m+1 'nlast - m 'vbma2(i) = 0 if (vbma(i) > 0) then bianhua = 1 nvalue = nvalue + vbma(i) else bianhua = 2 nvaluefu = nvaluefu + vbma(i) end if if (oldbianhua = bianhua) then else vbma3(i) = m m=0 if (bianhua = 1) then vbma2(i) = nvaluefu nvaluefu = 0 'nvaluefu = 0 else vbma2(i) = nvalue nvalue = 0 'nvalue = 0 end if end if oldbianhua = bianhua next FFL.VarData("ma2") = vbma2 FFL.VarData("ma3") = vbma3 FFL.VarData("ling") =vbling %> DRAWNUMBER(REF(MA2,0)<0 AND 0=1,LLV(LOW,5),REF(MA2,0)*1000,0),colorFF00; DRAWNUMBER(REF(MA2,0)<0 AND 0=1,LLV(LOW,5)-DATANUMBER,REF(MA3,0),0),colorFFFF; DRAWNUMBER(REF(MA2,0)<0 AND 0=1,LLV(LOW,5)-DATANUMBER*2,REF(MA2,0)*1000/REF(MA3,0),0),colorFF00; DRAWNUMBER(REF(MA2,0)>0 AND 0=1,HHV(HIGH,5),REF(MA2,0)*1000,0),colorFF; DRAWNUMBER(REF(MA2,0)>0 AND 0=1,HHV(HIGH,5)+DATANUMBER,REF(MA3,0),0),colorFFFF; DRAWNUMBER(REF(MA2,0)>0 AND 0=1,HHV(HIGH,5)+DATANUMBER*2,REF(MA2,0)*1000/REF(MA3,0),0),colorFF; MA1:=MA5-MA10; WEIHE:=LING; WEIPING:=LING; <% vbhe=FFL.VarData("weihe") vbping=FFL.VarData("weiping") vbma = FFL.VarData("ma1") nlast = UBound( vbma ) nvalue = 0.0000 nvaluefu = 0.0000 bianhua = 2 缠论公式集 段成选股 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); 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; {画笔段} 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; {笔高低点周期力度提示} DRAWTEXT(笔= 1, H*1.038, ''+H+''), COLORFFFFFF; DRAWTEXT(笔=-1, L*0.96, ''+L+''), COLORFFFFFF; VAR3:=LLV(H,240); VAR4:=100*(C-VAR3)/VAR3; VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100; VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100; VAR7:=0; VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*10 0; VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*1 00; VAR10:=IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0); 缠论公式集 段成选股 var1:=" chzhshch@kxian";｛处理 K线｝ var2:=" chzhshch@b";｛处理笔关系｝ 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));｛已完成段向上｝ dua n2:=if(c>0,BARSLAST(var3>0),BARSLAST(var3<0));｛ dua nA:=if(c>0,BARSLAST(var4<0),BARSLAST(var4>0));已完成段向下｝ 已完成更高级段向上｝ dua nB:=if(c>0,BARSLAST(var4>0),BARSLAST(var4<0)); ｛ 已完成更高级段向下｝未完成笔往下:BARSLAST(var2>0) 中枢. 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); 【通达信】原创通达信版－缠论分笔分段公式（附：缠论公式编写教程，打造自己的缠论体系） 一切有为法，如梦幻泡影，如露亦如电，应作如是观。本文开篇就以《金刚经》的偈语作序吧。 缠论大师很多，在下才疏学浅，不到之处敬请点拔。另外声明一下，世间没有包赚钱的公式，只有适合的工具。想通过一个什么包赚钱的价格几万的公式来稳赚不赔，那股市就没有输家了。如果有缘份的话，本文最后将推出缠师最终没有告知大家的力度公式部分。真正得缠者，为见相非相，即见如来。 通达信版公式，因为定义不了全局变量、数组，以及没有循环语句等功能，相比大智慧在公式编程方面差了不少。但通达信的优势还是有的，在此推出一个通达信非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线的高低点位置。同理，笔有被非笔打破高低点的情况， 缠论一买、三买选股公式（飞狐+悟多公式） MA10:=MA(CLOSE,10); MA5:=MA(CLOSE,5); MA1:=MA5-MA10; MA2:=MA10; MA3:=MA10; DATANUMBER:=DATATYPE; DATANUMBER1:=DATATYPE; DATANUMBER2:=DATATYPE; DATANUMBER3:=DATATYPE; LING:=HIGH; <% vbdatanumber = ("datanumber") vbdatanumber1 = ("datanumber1") vbdatanumber2 = ("datanumber2") vbdata=1 vbdata1= vbdata2=1 Select Case vbdatanumber Case 0 vbdata= vbdata1= vbdata2= Case 1 vbdata= vbdata1= vbdata2= Case 2 vbdata= vbdata2= Case 3 vbdata= vbdata1= vbdata2= Case 4 vbdata= vbdata1= vbdata2= Case 5 vbdata= vbdata1= vbdata2= Case 6 vbdata= vbdata1= vbdata2= Case 7 vbdata= vbdata1= vbdata2= Case 8 vbdata= vbdata1= vbdata2= Case 9 vbdata= vbdata1= vbdata2= Case 10 vbdata= vbdata1= vbdata2= Case 11 vbdata= vbdata1= vbdata2= Case 12 vbdata= vbdata1= vbdata2= Case else vbdata=2 缠论实战买点操作法则 总结了很多缠论高手的授课和实盘经验，归纳一下，发现此方法值得我们去学习。当然这个需要不断的复盘和练习。此方法主要是个股买入操作，我们的盈利是个股操作，不是做大盘，大家应该明白的。也就是把缠论结合到个股操作实战上去。当然也需要很好的悟性，学以致用，举一反三。 缠论个股实战纲领分形态学，力学，走势分类。 形态学主要是盘整走势和趋势走势，力学就是判断背驰和力度，走势分类是一个走势类型与其连接的几种可能性。缠论个股实战操作用得最多就是A0和递归 a+A+b+B+c 日线图看各个级别。 A0应该都知道，就是线段的延伸，走势的延伸，如何判断线段或走势的介入点和卖出点。 递归，级别上的逻辑推理，大级别看框架，小级别看细节。俗称三级联立。 a+A+b+B+c,分a+A+b和a+A+b+B+c。这种模式是缠论的分析方式，这种逻辑推理是要有时间顺序，先有a，然后才会有A，A之后会出现b，b之后会不会出现B就要看3买点，B出现后要看是不是走出c。也就是说a+A+b+B+c，这个是有顺序出现，一旦打破顺序，其走势就很有可能结束了。这叫做顺序递推原则。 日线图看各个级别。其实也就是说，在日线图上你可以看到任何级别的走势，这个需要研究级别之间放大镜的关系，比如日线1-2根K线为十字星是1分钟中枢，日线2-3根K线区间有包含关系并列排列的K线为5分钟中枢，日线的3笔重叠为30分钟中枢。这个东西就要大家自己去专研了。一点都不难，主要是头脑清晰，找到中枢的级别，前后连接段就是走势的级别。 现在最需要重视的就是个股的走势形态结构，有俩个典型的形态，是我们必须要印在脑海里的，这个是赚钱的源泉。 形态一。三叠加走势转趋势形态，1买出现后，回调不新低为2买。2买后直接飙涨。一般这种形态出现在中枢震荡后的主升浪。 K X:='C H A N L U N@K X I A N';? ?K X G:='C H A N L U N@K X G';? ?K X D:='C H A N L U N@K X D';? ?K X F X:='C H A N L U N@K X F X';? 笔:='C H A N L U N@B I';? 笔周期:='C H A N L U N@B I L A S T',L I N E T H I C K0,C O L O R F F00F F; ?B I L A S T:='C H A N L U N@B I L A S T';{笔周期}; 段:='C H A N L U N@D U A N';? 段周期:='C H A N L U N@D U A N L A S T',L I N E T H I C K0,C O L O R F F F F F F;? ?D U A N L A S T:='C H A N L U N@D U A N L A S T';{段周期}; 中枢:='C H A N L U N@Z S';? ?Z S Z G:='C H A N L U N@Z S Z G';? ?Z S Z D:='C H A N L U N@Z S Z D';? ?Z S G G:='C H A N L U N@Z S G G';? ?Z S D D:='C H A N L U N@Z S D D';? ?Z S Z Z:='C H A N L U N@Z S Z Z';? ?Z S K S:='C H A N L U N@Z S K S L A S T';? 段成选股 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) MA10:=MA(CLOSE,10); MA5 MA1 MA2 MA3 DATANUMBER:二DATAT YPE; DATANUMBER1:=DATAT YPE; DATANUMBER2:=DATAT YPE; DATANUMBER3:=DATAT YPE; LING:二HIGH; <% vbdata nu mber = ("data nu mber") vbdata nu mber1 = ("data nu mber1") vbdata nu mber2 = ("data nu mber2") vbdata=1 vbdata 仁 vbdata2=1 Select Case vbdata nu mber Case 0 vbdata= vbdata 仁 vbdata2= Case 1 vbdata= vbdata 仁 vbdata2二 Case 2 vbdata= vbdata1= vbdata2= Case 3 vbdata= vbdata1= vbdata2= Case 4 vbdata= vbdata1= vbdata2= Case 5 vbdata= vbdata1= vbdata2= Case 6 vbdata= vbdata1= vbdata2= Case 7 vbdata= vbdata1= vbdata2= Case 8 vbdata= vbdata1= vbdata2= Case 9 vbdata= vbdata1= vbdata2= Case 10 vbdata= vbdata1= vbdata2= Case 11 vbdata= vbdata1= vbdata2= Case 12 vbdata= vbdata1= vbdata2= Case else vbdata=2 MA(CL0SE,5); MA5-MA10; MA10; MA10; 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 缠论买卖点（主图指标） {注：原转载的这个公式有问题，刚接到一位匿名网友的反映(见下面的评论），本着对博友负责的精神，我重新检查后修改好了，并配了图，请转过的朋友重新再转。给你带来了不便了，请谅解！（置顶一天）} 缠论买卖点（主图指标） 作者：彼岸随缘 通达信：{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)); 中枢. 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))); TJ6:=BETWEEN(ZG,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1))); TJ7:=ZG>REF(ZG,REF(BARSLAST(TJ4),1))&&ZD 主图 顶周期:=TOPRANGE(H);底周期:=LOWRANGE(L); 上内:=LLVBARS(H,顶周期);上外:=LLVBARS(L,顶周期); 下内:=HHVBARS(L,底周期);下外:=HHVBARS(H,底周期); 上力度:=HHV(L,上内+1)>LLV(H,上内+1); 下力度:=HHV(L,下内+1)>LLV(H,下内+1); 上包含:=COUNT(L>=REF(L,1),上外)>2 AND COUNT(H>=REF(H,1),上内)>2; 下包含:=COUNT(H<=REF(H,1),下外)>2 AND COUNT(L<=REF(L,1),下内)>2; 顶0:=顶周期 AND 上力度 AND 上包含 AND 上外>3; 底0:=底周期 AND 下力度 AND 下包含 AND 下外>3; 顶分天数:=BARSLAST(顶0); 底分天数:=BARSLAST(底0); 含中间K线:=IF(顶分天数=0,底分天数,顶分天数)>=3; 顶:=顶0 AND 含中间K线 AND H=HHV(H,BARSLAST(底0)); 底:=底0 AND 含中间K线 AND L=LLV(L,BARSLAST(顶0)); NOTEXT上笔划线: DRAWLINE(底,L,顶,H,0),COLORLIRED,LINETHICK1; NOTEXT下笔划线: DRAWLINE(顶,H,底,L,0),COLORLIGREEN,LINETHICK1; 分界点:=NOTEXT上笔划线 AND NOTEXT下笔划线; 位置调整:= IF(PERIOD=11,0.02,{年} IF(PERIOD=10,0.02,{季} IF(PERIOD=9,0.02, {多日} IF(PERIOD=8,0.001,{多分钟} IF(PERIOD=7,0.02, {月} IF(PERIOD=6,0.01, {周} IF(PERIOD=5,0.005, {日} IF(PERIOD=4,0.002,{60F} IF(PERIOD=3,0.001,{30F} IF(PERIOD=2,0.001,{15F} IF(PERIOD=1,0.0003,{5F} IF(PERIOD=0,0.0002,{1F}0)))))))))))); DRAWNUMBER(分界点 AND 顶,H+H*位置调整,H),COLORLIGREEN; DRAWNUMBER(分界点 AND 底,L,L),COLORLIMAGENTA;缠论公式集
缠论买点公式
缠论公式集
通达信缠论公式
通达信缠论指标公式
目前最准确的通达信缠论分笔公式
缠论分笔公式
【通达信】原创通达信版-缠论分笔分段公式(附：缠论公式编写教程,打造自己的缠论体系)
缠论公式编写教程,打造自己的缠
缠论一买、三买选股公式(飞狐+悟多公式)
缠论实战买点操作法则
缠论买点公式
缠论公式集
缠论一买、三买选股公式(飞狐+悟多公式)
缠论中枢划线(笔和线段)主图指标公式-优化后
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);
缠论买卖点(主图指标)
通达信缠论公式
缠论公式