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

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

缠论一买、三买选股公式（飞狐+悟多公式）

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

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

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

oldbianhua = bianhua

("ma2") = vbma2

("ma3") = vbma3

("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=("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

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 AND 0=1,IF(WEIHE>0,HIGH,LOW),WEIHE*1000,0),colorFF;

DRAWNUMBER(WEIHE<>0 AND 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)

else

vbguanxi(m) = 0

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

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-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

'处理连续包含即:连续3个及以上K线间存在的包含关系

for m = 0 to nlast

vbbaohan1(m) = vbbaohan(m)

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)

'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

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)

t2=vbh1(m)

end if

if (t1>t2) then

n=0

bao=0

lastfenxing1=lastfenxing lastfenxing=m

else

vbfenxing(m)=0

end if

else

if (vbh(m)>vbh1(m))then

t1=vbh(m)

else

t1=vbh1(m)

end if

if (vbl(i)>vbl1(i))then

t2=vbl(m)

else

t2=vbl1(m)

end if

if (t1

'if (vbh(m)

n=0

bao=0

lastfenxing1=lastfenxing lastfenxing=m

else

vbfenxing(m)=0

end if

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

if (vbl(m)

vbfenxing(lastfenxing)=0

n=0

bao=0

lastfenxing1=lastfenxing

lastfenxing=m

else

vbfenxing(m)=0

end if

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

end if

'以上处理分型间距离不小于4的要求

'以下去掉连续的顶或底

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

'以下处理一个顶要大于相邻的两个底及一个底要小于相邻的两个顶的问题'取第一个分型位置

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 to nlast

if (vbfenxing(m)<>0) then

if (vbfenxing(m)>0) then

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

'满足条件顶>底

lastfenxing=m

else

'不满足条件顶>底两个全置为0,并查下一个

vbfenxing(m)=0

vbfenxing(lastfenxing)=0

m=m+1

do while (vbfenxing(m)=0)

m=m+1

if (m>nlast) then

Exit Do

end if

loop

lastfenxing=m

end if

else

if (vbl(m)

'满足条件底<顶

lastfenxing=m

'不满足条件底<顶两个全置为0,并查下一个vbfenxing(m)=0

vbfenxing(lastfenxing)=0

m=m+1

do while (vbfenxing(m)=0)

m=m+1

if (m>nlast) then

Exit Do

end if

loop

lastfenxing=m

end if

i=0

for m = 0 to nlast

if (vbfenxing(m)<>0) then

i=i+1

vbfennumber(m)=i

end if

'vbfennumber(nlast)=0

'vbfenxing(nlast)=-vbfenxing(lastfenxing)

x1=0

x2=0

x3=0

x4=0

x5=0

x6=0

x7=0

bi=0

maxbi=0

zhsh=0

'先取三个分型数据,然后进入循环处理

a=0

'Do While (vbfenxing(a) = 0 and a <= nlast) Do While ( a < nlast)

if ( vbfenxing(a) <> 0) then

exit do

end if

a = a + 1

Loop

a=x1+1

Do While ( a < nlast)

if ( vbfenxing(a) <> 0) then

exit do

end if

a = a + 1

Loop

x2=a

a=x2+1

Do While ( a < nlast)

if ( vbfenxing(a) <> 0) then

exit do

end if

a = a + 1

Loop

x3=a

a=x3+1

bi=0

zhshbegin=x1

zzg=0

zzd=0

zgg=0

zdd=0

zg=0

zd=0

gg=0

dd=0

FOR m=a TO nlast

'(1)开始按照找出不能形成线段(中枢)的连续三笔中的中间那笔是两个线段(中枢)的分界标志

'其它则是不同级别的中枢和线段的思路设计

'在大盘和指数中分笔与1分中1分级别要大一些,在个股中1分要大一些因有的个股1分钟内可能无成交

if (vbfenxing(m)<>0) then

'(2) begin 只在分型不为0时进行处理,即:是分型时处理

bi=bi+1

x4=m

if (zhshbegin=0) then

zhshbegin=x4

end if

if (vbfenxing(x1)>0) then

'以顶分型开始,x1,x3取高点x2,x4取低点,线段及中枢区间取高点中的低者,低点中的高者

zg=min(vbh(x1),vbh(x3))

'临时中枢高点

zd=max(vbl(x2),vbl(x4))

'临时中枢低点

gg=max(vbh(x1),vbh(x3))

'临时中枢高高点

dd=min(vbl(x2),vbl(x4))

'临时中枢低低点

else

'以底分型开始,x2,x4取高点x1,x3取低点

zg=min(vbh(x2),vbh(x4))

'临时中枢高点

zd=max(vbl(x1),vbl(x3))

'临时中枢低点

gg=max(vbh(x2),vbh(x4))

'临时中枢高高点

dd=min(vbl(x1),vbl(x3))

'临时中枢低低点

end if

if (zd>zg ) then

'(3)中枢低点大于高点,即未形成中枢,要将x2,x3的位置记录出来

vbweibi(x2)=1

vbweibi(x3)=2

'msgbox("当前的vbweibi(x3)：" & cstr(vbweibi(x3)))

maxbi=max(maxbi,bi)

vbbicount(x2)=bi

bi=-1

zhshbegin=0

else

'(3)中枢低点小于等于高点,即形成中枢,不用记录位置

end if

'(3)结束,将x1,x2,x3的值分别换成x2,x3,x4的值,也即向前推进一个分型,然后再返回进行比较

x1=x2

x2=x3

x3=x4

end if

'(2) 结束

'(1)结束找出所有连续三笔无重叠的位置,即不能形成中枢的候选位置,以下要对这些位置进行筛选并逐个分析,看图时要特别注意这些位置

'以下为自定义函数部分

Function max(a, b)

If (a >= b) Then

max = a

Else

max = b

End If

End Function

Function min(a, b)

If (a <= b) Then

min = a

Else

min = b

End If

End Function

("foxweibi")=vbweibi ("foxbicount")=vbbicount ("foxh") =vbh

("foxl") =vbl

("foxbaohan") = vbbaohan ("foxbaohan1") = vbbaohan1 ("foxguanxi") = vbguanxi ("foxfenxing") = vbfenxing ("foxfenxing1") = vbfenxing1 ("foxfennumber") = vbfennumber ("foxquekou") = vbquekou

FOXXIAN:=LING;

FOXXIANG:=LING;

FOXXIAND:=LING;

FOXTEG:=LING;

FOXTED:=LING;

FOXTEGX:=LING;

FOXTEG1:=LING;

FOXTED1:=LING;

FOXTEGX1:=LING; FOXDATATYPE:=DATATYPE; FOXTEBAO:=LING;

FOXTEBAO1:=LING; FOXTEGUANXI1:=LING; FOXFENNUMXIAN:=LING; FOXZQDM:=STRLEFT(STKLABEL,2); FOXXIAOSHU:=0;

vbquekou=("foxquekou") vbfennumber=("foxfennumber")

vbdatanumber = ("foxdatatype")

vbfennumxian=("foxfennumxian")

vbxiaoshu=("foxxiaoshu")

vbh = ("foxh")

vbL = ("foxl")

vbh1 = ("foxh")

vbL1 = ("foxl")

vbbaohan = ("foxbaohan")

vbbaohan1 = ("foxbaohan1")

vbguanxi = ("foxguanxi")

vbfenxing = ("foxfenxing")

vbfenxing1 = ("foxfenxing1")

vbzqdm = ("foxzqdm")

vbxian=("foxxian")

vbxiang=("foxxiang")

vbxiand=("foxxiand")

vbteg=("foxteg")

vbted=("foxted")

vbtegx=("foxtegx")

vbtebao=("foxtebao")

vbtebao1=("foxtebao1")

vbteg1=("foxteg1")

vbted1=("foxted1")

vbtegx1=("foxtegx1")

vbweibi=("foxweibi")

vbbicount=("foxbicount")

nlast = UBound( vbh )

'msgbox("当前的数据类型为：" & cstr(vbzqdm))

IF ( vbzqdm ="58" or vbzqdm ="90" or vbzqdm ="03" or vbzqdm ="18" or vbzqdm ="50" or vbzqdm ="51" or vbzqdm ="52" ) THEN

vbxiaoshu=3

else

vbxiaoshu=2

end if

IF ((vbdatanumber>=0 OR vbdatanumber=1 ) )THEN

'IF ((vbdatanumber=0 OR vbdatanumber=1 ) and ( vbzqdm ="88" or vbzqdm ="1b" or vbzqdm ="1B" or vbzqdm ="1a" or vbzqdm ="1A" or vbzqdm ="39" ) )THEN

ELSE

FOR m=0 TO nlast

if (vbfenxing(m)<>0) then

vbxian(m)=vbfenxing(m)

vbxiang(m)=vbh(m)

vbxiand(m)=vbl(m)

end if

ENd IF

'笔的数据是按K线数据自动计算的即:vbfenxing

'初始计算相关数据置为0 当数据类型为0和1即分笔和1分钟时要按笔-线段的过程组成中枢

'其它级别(指5分钟及以上)时用笔组成中枢此时要将笔的数据即:分型位置代入线段数组中

IF ((vbdatanumber>=0 OR vbdatanumber=1 ) )THEN

'IF ((vbdatanumber=0 OR vbdatanumber=1 ) and ( vbzqdm ="88" or vbzqdm ="1b" or vbzqdm ="1B" or vbzqdm ="1a" or vbzqdm ="1A" or vbzqdm ="39" ) )THEN

'(1)分笔和1分钟计算线段数据 vbzqdm =0 为指数

'公式还未考虑开始连续三笔无重叠不能形成线段的处理,缠论中对此也未明确不能形成线段的笔应发生属于那个线段

'对走势中间连续三笔无重叠不能形成线段的处理也未明确不能形成线段的笔应属于那个线段

'缠论中规定线段是连续的且以不同的分型作为两个端点即:不能顶到顶和底到底,此规定要考虑的

i = 0

ex=0

Do While ( i <= nlast)

If (vbfenxing(i) <> 0 ) then

exit do

end if

i = i + 1

Loop

x1 = i

xianbegin = x1

i = x1 + 1

Do While ( i <= nlast)

If (vbfenxing(i) <> 0 ) then

exit do

end if

i = i + 1

Loop

x2 = i

i = x2 + 1

Do While ( i <= nlast)

If (vbfenxing(i) <> 0 ) then

exit do

end if

i = i + 1

Loop

x3 = i

i = x3 + 1

缠论公式集

缠论公式集段成选股 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=

缠论实战买点操作法则

缠论实战买点操作法则总结了很多缠论高手的授课和实盘经验，归纳一下，发现此方法值得我们去学习。当然这个需要不断的复盘和练习。此方法主要是个股买入操作，我们的盈利是个股操作，不是做大盘，大家应该明白的。也就是把缠论结合到个股操作实战上去。当然也需要很好的悟性，学以致用，举一反三。缠论个股实战纲领分形态学，力学，走势分类。形态学主要是盘整走势和趋势走势，力学就是判断背驰和力度，走势分类是一个走势类型与其连接的几种可能性。缠论个股实战操作用得最多就是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';?