当前位置：文档库 › 缠论一买、三买选股公式(飞狐+悟多公式)

缠论一买、三买选股公式(飞狐+悟多公式)

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;

vbdata1= vbdata2=2 End Select ("datanumber") =vbdata ("datanumber1") =vbdata1 ("datanumber2") =vbdata2 vbling = ("ling") vbma = ("ma1") vbma2 = ("ma2") vbma3 = ("ma3") nlast = UBound( vbma ) nvalue = nvaluefu = 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 ("ma2") = vbma2 ("ma3") = vbma3 ("ling") =vbling %> DRAWNUMBER(REF(MA2,0)<0 0=1,LLV(LOW,5),REF(MA2,0)*1000,0),colorFF00;

DRAWNUMBER(REF(MA2,0)<0 0=1,LLV(LOW,5)-DATANUMBER,REF(MA3,0),0),colorFFFF;

DRAWNUMBER(REF(MA2,0)<0 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 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=("weihe") vbping=("weiping") vbma = ("ma1") nlast = UBound( vbma )

nvalue = nvaluefu = bianhua = 2 oldbianhua = 0 i= 0 m= nlast if (vbma(nlast) >

0) then Do While (vbma(m)>0) nvalue = vbma(m) + nvalue i=i+1 m=m-1 if(m<0)

then exit do end if Loop else

AND AND AND

AND

Do While (vbma(m)<0) nvalue = vbma(m) + nvalue i=i+1 m=m-1 if(m<0) then exit do end if Loop end if if (i=0) then i=1 end if nvaluefu = nvalue/i vbhe(nlast) = nvalue vbping(nlast) = nvaluefu ("weihe") =vbhe ("weiping")= vbping %> DRAWNUMBER(WEIHE<>0 0=1,IF(WEIHE>0,HIGH,LOW),WEIHE*1000,0),colorFF;

DRAWNUMBER(WEIHE<>0 0=1,(IF(WEIHE>0,HIGH,LOW))-DATANUMBER*2,WEIPING*1000,0),colorFF00; DRAWNUMBER(WEIPING<>0 AND 0=1,(IF(WEIHE>0,HIGH,LOW))-

DATANUMBER,WEIHE/WEIPING ,0),colorFFFF; DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIFF,9); MACD:=2*(DIFF-DEA);

MA1:=MACD; MA2:=MACD; MA3:=MACD;

MA1WE:=MACD; HE:=MA2;

WEIHEMACD:=0; WEIPINGMACD:=0;

H1:=HIGH; L1:=LOW; FOXH:=HIGH; FOXL:=LOW; FOXBAOHAN:=LING;

FOXBAOHAN1:=LING; FOXGUANXI:=LING; FOXFENXING:=LING;

FOXFENXING1:=LING; FOXFENNUMBER:=LING;

FOXQUEKOU:=LING; FOXBICOUNT:=LING; FOXWEIBI:=LING;

<% vbquekou=("foxquekou") vbfennumber=("foxfennumber") vbdatanumber = ("datanumber") vbh = ("foxh") vbL = ("foxl") vbh1 = ("foxh") vbL1 = ("foxl") vbbaohan =

("foxbaohan") vbbaohan1 = ("foxbaohan1") vbguanxi = ("foxguanxi") vbfenxing =

("foxfenxing") vbfenxing1 = ("foxfenxing1") vbbicount=("foxbicount")

vbweibi=("foxweibi") nlast = UBound( vbh ) nvalue = nvaluefu = bianhua = 2

vbguanxi(0) = 1 for m = 1 to nlast if (vbh(m)>vbh(m-1) and vbl(m)>vbl(m-1))

then vbguanxi(m)=1 else

if (vbh(m)=vbh(m-1) and vbl(m)<=vbl(m-1)) then vbbaohan(m) = 2 vbbaohan(m-1) = 1 vbh(m-1)=vbh(m) vbl(m)=vbl(m-1) else

vbbaohan(m-1) = -1 vbbaohan(m) = -2 vbh(m)=vbh(m-1) vbl(m-1)=vbl(m) end if

else vbguanxi(m)=-1 if (vbh(m)>=vbh(m-1) and vbl(m)<=vbl(m-1)) then vbbaohan(m) = 2 vbbaohan(m-1) = 1 vbh(m)=vbh(m-1) vbl(m-1)=vbl(m)

else vbbaohan(m-1) = -1 vbbaohan(m) = -2 vbh(m-1)=vbh(m) vbl(m)=vbl(m-1) end if end if end if end if next

'处理连续包含即 :连续 3个及以上 K 线间存在的包含关系 for m = 0 to nlast

vbbaohan1(m) = vbbaohan(m)

NEXT i=0 do while (vbbaohan(i)=0) i=i+1 if (i>nlast) then Exit Do end if loop '第一个包含的位置 lastfenxing=i bao=0 existbao=0 for m = i to nlast if (vbbaohan(m) <> 0) then bao=bao+1 if (bao>=2) then if (vbbaohan(m)=2 and vbbaohan(m-1)=1 or

vbbaohan(m)=-2 and vbbaohan(m-1)=-1) then vbbaohan1(m) = bao if (bao>2) then

existbao=BAO for i = 1 to bao vbh(m-bao+i)=vbh(m) vbL(m-bao+i)=vbl(m)

if (i = 1 or i=bao ) then

else

vbbaohan1(m-bao+i)=-3

end if

'do while (bao>1)

AND AND

'vbh(m-bao+1)=vbh(m)

'vbL(m-bao+1)=vbl(m)

'if (existbao=BAO or bao=existbao-1) then

'else

'vbbaohan1(m-bao+1)=-3

'end if

'bao=bao-1

'loop

bao=0

end if

else

bao=0

end if

'分型预处理

existbao=vbguanxi(0)

for m = 1 to nlast

'if (vbh(m-1)>=vbh(m-2) and vbh(m-1)>=vbh(m) and vbl(m-1)>=vbl(m-2) and vbl(m-1)>=vbl(m) or vbh(m-1)<=vbh(m-2) and vbh(m-1)<=vbh(m) and vbl(m-1)

'end if

if (vbguanxi(m)<>existbao) then

if (vbguanxi(m-1)=1) then

vbfenxing(m-1) = 1

'顶

else

vbfenxing(m-1) = -1

'底

end if

existbao=vbguanxi(m)

end if

'以上分型预处理

for m = 0 to nlast

vbfenxing1(m) = vbfenxing(m)

vbfenxing1(m) = 0

i=0

do while (vbfenxing(i)=0)

i=i+1

if (i>nlast) then

Exit Do

end if

loop

lastfenxing=i

'取第一个分型位置

'下面去掉连续的顶或底

for m = lastfenxing+1+nlast to nlast

if (vbfenxing(m)<>0) then

if (vbfenxing(m)<>vbfenxing(lastfenxing)) then lastfenxing=m else

if (vbfenxing(m)=1) then

if (vbh(m)>vbh(lastfenxing)) then

vbfenxing(lastfenxing)=0

lastfenxing=m

else

vbfenxing(m)=0

end if

else

if (vbl(m)

vbfenxing(lastfenxing)=0

lastfenxing=m

else

vbfenxing(m)=0

end if

'顶要高的底要低的相等时要选时间在前面的

'vbfenxing(m)=0

end if

'以下处理分型间距离不小于 4 的要求同时处理连续的顶和底的问题bao=0

i=0

n=0

existbao=vbfenxing(0)

m=0

do while (vbbaohan1(i) <2)

i=i+1

if (i>nlast) then

Exit Do end if loop lastbaohan=i '第一个包含位置i=0 do while (vbfenxing(i)=0) i=i+1 if (i>nlast) then Exit Do end if loop

'第一个预备分型位置lastfenxing=i lastfenxing1=lastfenxing i=0

for m = lastfenxing+1 to nlast if (vbbaohan(m) = 0) then bao=bao+1 else

if (vbbaohan1(m) >=2 ) then n=n+1 end if end if

vbfenxing1(m) = bao+n '包含关系只视为一个k 线'vbfenxing1(m)=vbbaohan1(m)

'if (m>735) then 'exit for 'end if

if (vbfenxing(m)<>0) then

if (bao+n>= 4) then '分型间距离大于等于 4 符合要求if

(vbfenxing(m)<>vbfenxing(lastfenxing)) then 'vbfenxing1(m)=vbfenxing(m) n=0 bao=0 lastfenxing1=lastfenxing lastfenxing=m else

if (vbfenxing(m)=1) then if (vbh(m)>vbh(lastfenxing)) then 'exit for

vbfenxing(lastfenxing)=0

n=0

bao=0

lastfenxing1=lastfenxing

lastfenxing=m

else

vbfenxing(m)=0

end if

else

if (vbl(m)

vbfenxing(lastfenxing)=0

n=0

bao=0

lastfenxing1=lastfenxing

lastfenxing=m

else

vbfenxing(m)=0

end if

'顶要高的底要低的相等时要选时间在前面的

end if

'将上一个分开型位置数据更新为当下位置

else

'分型间距离小于 4 要看情况若与前分型不同且破坏前笔,可保留其它情况要去掉

'破坏前笔即相邻分型不同且高于上上个顶或低于上上个底

if (vbfenxing(m)<>vbfenxing(lastfenxing)) then

'vbfenxing1(m)=vbfenxing(m)

'i=lastfenxing-1

'do while (vbfenxing(i)<>vbfenxing(m))

'i=i-1

'if (i=0) then

'Exit Do

'end if

'loop

'lastfenxing1=lastfenxing

i=lastfenxing1

if (vbfenxing(m)=1) then

if (vbl(m)>vbl1(m))then

t1=vbl1(m)

else

t1=vbl(m)

end if

if (vbh(i)>vbh1(i))then

t2=vbh(m)

else t2=vbh1(m) end if if (t1>t2) then n=0 bao=0 lastfenxing1=lastfenxing lastfenxing=m

缠论公式集

缠论公式集段成选股 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)0)0)>BARSLAST(var2<0); 未完成段向上:BARSLAST(var3<0)>BARSLAST(var3>0); TYP:=(HIGH+L0W+CL0SE)/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; MAC［底背离选股公式一一通达信、同花顺底背离，通达信版、同花顺版｝ DIFF:=EMA(CL0SE,12) - EMA(CLOSE,26); DEA:=EMA(DIFF,9); MACD:=2*(DIFF-DEA); QZQ:=BARSLAST(REF(MACD,1)<0 AND MACD>0); QM:=LLVBARS(MACD,QZQ+20); MQDZ:=IF(QM>QZQ,REF(MACD,QM),0); XG1:=MACD<0 AND MACD>MQDZ AND CL0SE=LLV(CL0SE,QZQ+20) AND MQDZ<0; XG:REF(XG1,1)=1 AND MACD>REF(MACD,1); ｛双底背离，通达信版、同花顺版｝ DIFF:=EMA(CL0SE,12) - EMA(CL0SE,26);

通达信缠论公式

中枢. 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);

目前最准确的通达信缠论分笔公式

目前最准确的通达信缠论分笔公式 -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:=HFDH,FDH,IF(FDH>=FDH1,FDH2,FDH1)); FDZL:=IF(FDH>=FDH1,FDL2,FDL1); FG1:=FGH>FDZH AND FG0; FD1:=FDLFDH AND FGL>FDL AND FGL1>FDL; FD:=FD1 AND FDL=REF(L,1)) OR (H>=REF(H,1) AND L<=REF(L,1)); BHG:=COUNT(BH0,BARSLAST(FD0)); BHD:=COUNT(BH0,BARSLAST(FG0)); BGQ:=COUNT(GQ,BARSLAST(FD0));

缠论分笔公式

缠论分笔公式分笔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);

通达信缠论指标公式

通达信缠论指标公式 {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

缠论分型通达信指标公式源码.doc

缠论分型通达信指标公式源码 {缠论分型}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;

缠论中枢划线笔和线段主图指标公式优化后

缠论中枢划线笔和线段主图指标公式优化后 Coca-cola standardization office【ZZ5AB-ZZSYT-ZZ2C-ZZ682T-ZZT18】

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

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); TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2)); TJ4:=TJ1 AND TJ2 AND 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)) AND ZD

缠论中枢划线(笔和线段)主图指标公式-优化后

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); TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2)); TJ4:=TJ1 AND TJ2 AND 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)) AND ZD

【通达信】原创通达信版-缠论分笔分段公式(附：缠论公式编写教程,打造自己的缠论体系)

【通达信】原创通达信版－缠论分笔分段公式（附：缠论公式编写教程，打造自己的缠论体系）一切有为法，如梦幻泡影，如露亦如电，应作如是观。本文开篇就以《金刚经》的偈语作序吧。缠论大师很多，在下才疏学浅，不到之处敬请点拔。另外声明一下，世间没有包赚钱的公式，只有适合的工具。想通过一个什么包赚钱的价格几万的公式来稳赚不赔，那股市就没有输家了。如果有缘份的话，本文最后将推出缠师最终没有告知大家的力度公式部分。真正得缠者，为见相非相，即见如来。通达信版公式，因为定义不了全局变量、数组，以及没有循环语句等功能，相比大智慧在公式编程方面差了不少。但通达信的优势还是有的，在此推出一个通达信非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线的高低点位置。同理，笔有被非笔打破高低点的情况，

炒股的公式通达信缠论指标公式

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

缠论一买、三买选股公式(飞狐+悟多公式)

缠论一买、三买选股公式（飞狐+悟多公式） 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买后直接飙涨。一般这种形态出现在中枢震荡后的主升浪。

缠论中枢划线笔和线段主图指标公式优化后

缠论中枢划线笔和线段主图指标公式优化后文档编制序号：[KK8UY-LL9IO69-TTO6M3-MTOL89-FTT688]

缠论买点公式

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';?