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

本文格式为Word版，下载可任意编辑——缠论一买三买选股公式（飞狐悟多公式）缠论一买、三买选股公式（飞狐+悟多公式）

公式指标2023-08-1411:42:38阅读5639评论20字号：大中小订阅

一买的选股公式初步搞出来的，当然还不完善，不能算是一买的公式，充其量算选出即将盘整背驰的，不过两个中枢下的盘整背驰就是一买了，当然真正是否背驰还要靠人工来判断，它只能

初选，不过也省下好多事了，欢迎使用，多提看法。

begin

ifDATAPERIOD=0thenminbi:=\base.var2#min1\ifDATAPERIOD=1thenminbi:=\base.var2#min5\ifDATAPERIOD=2thenminbi:=\base.var2#min30\ifDATAPERIOD=3thenminbi:=\base.var2#min60\ifDATAPERIOD=4thenminbi:=\base.var2#day\ifDATAPERIOD=5thenminbi:=\base.var2#day\ifDATAPERIOD=6thenminbi:=\base.var2#week\ifDATAPERIOD=7thenminbi:=\base.var2#month\ifDATAPERIOD=8thenminbi:=\base.var2#year\

var001:=\se.var2#min30\

ifdatatype=3thenvar001:=\se.var2#min60\ifdatatype=4thenvar001:=\se.var2#day\

var1:=\var2:=\i\处理笔关系}var3:=\ngji\同级别分解}zg:=\一定要先调用ZG

zd:=\zswz:=barslast(zg>zd);

tj3:=count(abs(var3),barslast(var3=1))=0;

tj4:=l0;tj6:=ref(h,barslast(var2=1))zd,barslast(var3=1))>0;not(zg>zd)

end;

一买是模糊的，不确凿的，三买就比较标准了，同样背驰需自行判断，否则不背驰就跌回中枢了：

begin

ifDATAPERIOD=0thenminbi:=\base.var2#min1\ifDATAPERIOD=1thenminbi:=\base.var2#min5\ifDATAPERIOD=2thenminbi:=\base.var2#min30\ifDATAPERIOD=3thenminbi:=\base.var2#min60\ifDATAPERIOD=4thenminbi:=\base.var2#day\ifDATAPERIOD=5thenminbi:=\base.var2#day\ifDATAPERIOD=6thenminbi:=\base.var2#week\ifDATAPERIOD=7thenminbi:=\base.var2#month\ifDATAPERIOD=8thenminbi:=\base.var2#year\

var001:=\se.var2#min30\

ifdatatype=3thenvar001:=\se.var2#min60\ifdatatype=4thenvar001:=\se.var2#day\

var1:=\var2:=\i\处理笔关系}var3:=\ngji\同级别分解}zg:=\一定要先调用ZG

zd:=\var1:=\var2:=\i\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)

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;0)thenbianhua=1

nvalue=nvalue+vbma(i)else

bianhua=2

nvaluefu=nvaluefu+vbma(i)

endif

if(oldbianhua=bianhua)thenelse

vbma3(i)=mm=0

if(bianhua=1)thenvbma2(i)=nvaluefunvaluefu=0'nvaluefu=0else

vbma2(i)=nvaluenvalue=0'nvalue=0endifendif

oldbianhua=bianhuanext

FFL.VarData(\FFL.VarData(\FFL.VarData(\%>

DRAWNUMBER(REF(MA2,0)0AND0=1,HHV(HIGH,5),REF(MA2,0)*1000,0),colorFF;DRAWNUMBER(REF(MA2,0)>0AND0=1,HHV(HIGH,5)+DATANUMBER,REF(MA3,0),0),colorFFFF;DRAWNUMBER(REF(MA2,0)>0AND0=1,HHV(HIGH,5)+DATANUMBER*2,REF(MA2,0)*1000/REF(MA3,0),0),colorFF;MA1:=MA5-MA10;WEIHE:=LING;WEIPING:=LING;0)thenDoWhile(vbma(m)>0)

nvalue=vbma(m)+nvaluei=i+1m=m-1

if(m

DRAWNUMBER(WEIHE0AND0=1,IF(WEIHE>0,HIGH,LOW),WEIHE*1000,0),colorFF;DRAWNUMBER(WEIHE0AND0=1,(IF(WEIHE>0,HIGH,LOW))-DATANUMBER*2,WEIPING*1000,0),colorFF00;DRAWNUMBER(WEIPING0AND0=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;vbh(m-1)andvbl(m)>vbl(m-1))thenvbguanxi(m)=1else

if(vbh(m)=vbh(m-1)andvbl(m)=vbh(m-1)andvbl(m)nlast)thenExitDoendifloop

'第一个包含的位置lastfenxing=ibao=0

existbao=0

form=itonlast

if(vbbaohan(m)0)thenbao=bao+1

if(bao>=2)then

if(vbbaohan(m)=2andvbbaohan(m-1)=1orvbbaohan(m)=-2andvbbaohan(m-1)=-1)thenvbbaohan1(m)=baoif(bao>2)thenexistbao=BAOfori=1tobao

vbh(m-bao+i)=vbh(m)vbL(m-bao+i)=vbl(m)if(i=1ori=bao)thenelse

vbbaohan1(m-bao+i)=-3endifnextendif

'dowhile(bao>1)

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

'if(existbao=BAOorbao=existbao-1)then'else

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

'bao=bao-1'loopbao=0endifendifelsebao=0endifnext

'分型预处理

existbao=vbguanxi(0)form=1tonlast

'if(vbh(m-1)>=vbh(m-2)andvbh(m-1)>=vbh(m)andvbl(m-1)>=vbl(m-2)andvbl(m-1)>=vbl(m)orvbh(m-1)existbao)thenif(vbguanxi(m-1)=1)then

vbfenxing(m-1)=1'顶else

vbfenxing(m-1)=-1'底endif

existbao=vbguanxi(m)endifnext

'以上分型预处理form=0tonlast

vbfenxing1(m)=vbfenxing(m)vbfenxing1(m)=0nexti=0

dowhile(vbfenxing(i)=0)i=i+1

if(i>nlast)thenExitDoendifloop

lastfenxing=i

'取第一个分型位置

'下面去掉连续的顶或底

form=lastfenxing+1+nlasttonlastif(vbfenxing(m)0)then

if(vbfenxing(m)vbfenxing(lastfenxing))thenlastfenxing=melse

if(vbfenxing(m)=1)then

if(vbh(m)>vbh(lastfenxing))thenvbfenxing(lastfenxing)=0lastfenxing=melse

vbfenxing(m)=0endifelse

if(vbl(m)nlast)thenExitDoendifloop

lastbaohan=i'第一个包含位置i=0

dowhile(vbfenxing(i)=0)i=i+1

if(i>nlast)thenExitDoendifloop

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

lastfenxing1=lastfenxingi=0

form=lastfenxing+1tonlastif(vbbaohan(m)=0)thenbao=bao+1else

if(vbbaohan1(m)>=2)thenn=n+1endifendif

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

'vbfenxing1(m)=vbbaohan1(m)'if(m>735)then'exitfor'endif

if(vbfenxing(m)0)thenif(bao+n>=4)then

'分型间距离大于等于4符合要求

if(vbfenxing(m)vbfenxing(lastfenxing))then'vbfenxing1(m)=vbfenxing(m)n=0bao=0

lastfenxing1=lastfenxinglastfenxing=melse

if(vbfenxing(m)=1)then

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

vbfenxing(lastfenxing)=0n=0bao=0

lastfenxing1=lastfenxinglastfenxing=melse

vbfenxing(m)=0endifelse

if(vbl(m)vbfenxing(lastfenxing))then'vbfenxing1(m)=vbfenxing(m)'i=lastfenxing-1

'dowhile(vbfenxing(i)vbfenxing(m))'i=i-1

'if(i=0)then

'ExitDo'endif'loop

'lastfenxing1=lastfenxingi=lastfenxing1

if(vbfenxing(m)=1)thenif(vbl(m)>vbl1(m))thent1=vbl1(m)else

t1=vbl(m)endif

if(vbh(i)>vbh1(i))thent2=vbh(m)else

t2=vbh1(m)endif

if(t1>t2)thenn=0bao=0

lastfenxing1=lastfenxinglastfenxing=melse

vbfenxing(m)=0endifelse

if(vbh(m)>vbh1(m))thent1=vbh(m)else

t1=vbh1(m)endif

if(vbl(i)>vbl1(i))thent2=vbl(m)else

t2=vbl1(m)endif

if(t1vbh(lastfenxing))then'exitfor

vbfenxing(lastfenxing)=0n=0bao=0

lastfenxing1=lastfenxinglastfenxing=melse

vbfenxing(m)=0endifelse

if(vbl(m)nlast)thenExitDoendifloop

lastfenxing=i

'取第一个分型位置

'下面去掉连续的顶或底

form=lastfenxing+1+nlasttonlastif(vbfenxing(m)0)then

if(vbfenxing(m)vbfenxing(lastfenxing))thenlastfenxing=melse

if(vbfenxing(m)=1)then

if(vbh(m)>vbh(lastfenxing))thenvbfenxing(lastfenxing)=0lastfenxing=melse

vbfenxing(m)=0endifelse

if(vbl(m)nlast)thenExitDoendifloop

lastfenxing=i

form=lastfenxing+1tonlastif(vbfenxing(m)0)thenif(vbfenxing(m)>0)then

if(vbh(m)>vbl(lastfenxing))then'满足条件顶>底lastfenxing=melse

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

vbfenxing(lastfenxing)=0

m=m+1

dowhile(vbfenxing(m)=0)m=m+1

if(m>nlast)thenExitDoendifloop

lastfenxing=mendifelse

if(vbl(m)nlast)thenExitDoendifloop

lastfenxing=mendifendifendifnexti=0

form=0tonlast

if(vbfenxing(m)0)theni=i+1

vbfennumber(m)=iendifnext

'vbfennumber(nlast)=0

'vbfenxing(nlast)=-vbfenxing(lastfenxing)x1=0x2=0x3=0x4=0x5=0x6=0

x7=0bi=0maxbi=0zhsh=0

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

'DoWhile(vbfenxing(a)=0anda0)thenexitdoendifa=a+1Loopx1=aa=x1+1

DoWhile(a0)thenexitdoendifa=a+1Loopx2=aa=x2+1

DoWhile(a0)thenexitdoendifa=a+1Loopx3=aa=x3+1bi=0

zhshbegin=x1zzg=0zzd=0zgg=0zdd=0zg=0zd=0gg=0dd=0

FORm=aTOnlast

'(1)开始依照找出不能形成线段(中枢)

的连续三笔中的中间那笔是两个线段(中枢)的分界标志

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

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

'(2)begin只在分型不为0时进行处理,即:是分型时处理bi=bi+1x4=m

if(zhshbegin=0)thenzhshbegin=x4endif

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))'临时中枢低低点endif

if(zd>zg)then

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

'msgbox(\当前的vbweibi(x3)：\maxbi=max(maxbi,bi)vbbicount(x2)=bibi=-1

zhshbegin=0else

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

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

'(2)终止NEXT

'(1)终止找出所有连续三笔无重叠的位置,即不能形成中枢的候选位置,以下要对这些位置进行筛选并逐个分析,看图时要特别注意这些位置'以下为自定义函数部分Functionmax(a,b)If(a>=b)Thenmax=aElse

max=bEndIf

EndFunction

Functionmin(a,b)If(a

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;=0ORvbdatanumber=1))THEN

'IF((vbdatanumber=0ORvbdatanumber=1)and(vbzqdm=\orvbzqdm=\orvbzqdm=\orvbzqdm=\orvbzqdm=\orvbzqdm=\ELSE

FORm=0TOnlast

if(vbfenxing(m)0)thenvbxian(m)=vbfenxing(m)vbxiang(m)=vbh(m)vbxiand(m)=vbl(m)endifNEXTENdIF

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

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

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

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

'IF((vbdatanumber=0ORvbdatanumber=1)and(vbzqdm=\orvbzqdm=\orvbzqdm=\orvbzqdm=\orvbzqdm=\orvbzqdm=\

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

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

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

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

DoWhile(i0)thenexitdoendifi=i+1Loopx1=i

xianbegin=x1i=x1+1

DoWhile(i0)thenexitdoendifi=i+1Loopx2=ii=x2+1

DoWhile(i0)thenexitdoendifi=i+1Loopx3=ii=x3+1

DoWhile(ex=0)'()

if(x3>nlastorx2>nlast)then

'msgbox(\当前的1x2：\当前的1x3：\当前的nlast：\exitdoendif

if(vbweibi(x2)=0orvbweibi(x3)=0orvbweibi(x3)=1orvbweibi(x2)=2)

then

'msgbox(\当前的1x2：\当前的1x3：\当前的nlast：\exitdoelsex1=x2x2=x3

DoWhile(i0)thenexitdoendifi=i+1Loopx3=ii=x3+1endifloop'()

i=x3+1

xianbegin=x1tewei=x2

if(x30)thenexitdoendif

m=m+1Loopx4=mm=x4+1

DoWhile(m0)thenexitdoendif

m=m+1Loopx5=mm=x5+1newtewei=x4

if(x5>nlast)thenexitfor

endif

If(xianfang=-1)Then

'xianfang=-1以顶分型开始,线段方向向下vbted(newtewei)=vbl(newtewei)vbteg(newtewei)=vbh(x5)Else

'xianfang=1以底分型开始,线段方向向上vbteg(newtewei)=vbh(newtewei)vbted(newtewei)=vbl(x5)EndIf

'判断方向/缺口及包含

vbtegx(newtewei)=xianfangtenumber=1+tenumber'if(tenumber>=1)then

If(vbted(newtewei)>vbted(tewei)Andvbteg(newtewei)>vbteg(tewei)Orvbted(newtewei)vbted(tewei)Andvbteg(newtewei)>vbteg(tewei))Then'(4)特征序列的方向向上tefang=1Else

tefang=-1

'(4)特征序列的方向向下EndIf

vbtegx(newtewei)=tefangIf(xianfangtefang)Then

'(5)线段方向与特征序列的方向不同,即:出现了特征序列的分型线段方向与特征序列关系不同,出现分型,

'首先判断自tewei(x2)开始的三笔是否构成线段,构成线段则下一步,不构成线段返回原线段继续,再判断第一个(tewei的前一个特征序列)与第二个(tewei)之间是否有缺口

if(vbweibi(x4)=0orvbweibi(x3)=0orvbweibi(x4)=1orvbweibi(x3)=2)then

'if(vbweibi(x6)=0orvbweibi(x5)=0)then

'{}构成线段,新线段从newtewei开始,原线段在newtewei处结束还要判断顶是否大于底

if(tenumber0)thenexitdoendif

i=i+1Loopx6=i

if(x6>nlast)then

'msgbox(\当前的x6：\当前的nlast：\exitforendif

'再判断x5,x6是否构成线段,构成则新线段否则原线段继续

if(vbweibi(x6)=0orvbweibi(x5)=0orvbweibi(x6)=1orvbweibi(x5)=2)then'开始构成新线段,新线段在newtewei开始xianbegin=newtewei

vbxian(xianbegin)=vbfenxing(xianbegin)vbxiang(xianbegin)=vbh(xianbegin)vbxiand(xianbegin)=vbl(xianbegin)x2=x5x3=x6tewei=x2m=x6+1

If(vbfenxing(xianbegin)=1)Thenxianfang=-1

'以顶分型开始,线段方向向下vbted(tewei)=vbl(tewei)vbteg(tewei)=vbh(x3)Else

xianfang=1

'以底分型开始,线段方向向上vbteg(tewei)=vbh(tewei)vbted(tewei)=vbl(x3)EndIf

vbtegx(tewei)=xianfangtenumber=0else

'else原线段继续tewei=newtewei

vbtegx(newtewei)=xianfangx2=x4x3=x5

m=x5+1endif'开始终止else

'(tenumber)tenumber=0bao=0

xianbegin=tewei

vbxian(xianbegin)=vbfenxing(xianbegin)vbxiang(xianbegin)=vbh(xianbegin)vbxiand(xianbegin)=vbl(xianbegin)x2=X3x3=x4tewei=x2

If(vbfenxing(xianbegin)=1)Thenxianfang=-1

'以顶分型开始,线段方向向下vbted(tewei)=vbl(tewei)vbteg(tewei)=vbh(x3)Else

xianfang=1

'以底分型开始,线段方向向上vbteg(tewei)=vbh(tewei)vbted(tewei)=vbl(x3)EndIf

vbtegx(tewei)=xianfangm=x3+1endif

'(tenumber)else

'{}不构成线段,原线段继续tewei=newtewei

vbtegx(newtewei)=xianfangx2=x4x3=x5

m=x5+1endif'{}Else

'(5)线段方向与特征序列关系一致,未出现分型tewei的值更新为newtewei'tenumber=1+tenumbervbtegx(newtewei)=xianfangtewei=newteweix2=x4x3=x5

EndIf'(5)Else'(3)包含

vbtegx(newtewei)=xianfang

If(vbted(tewei)>=vbted(newtewei)Andvbteg(tewei)=0)

If(vbteg(temp)0)thenexitdoendif

temp=temp-1Loop

if(temp=2Orvbtebao(temp)=-2Orvbtegx(temp)xianfang)Then

ex=1Else

bao=bao+1EndIf

temp=temp-1Loop

'有几个连续包含,指大于三个K线的包含,BAO的值是包含的K线数减2,当只有两个连续K线包含时BAO为0temp=tewei-1Fori=1Tobao

DoWhile(temp>=0)

If(vbteg(temp)0)thenexitdoendif

temp=temp-1Loop

if(temp0)

If(vbteg(temp)0)thenexitdoendif

temp=temp-1Loop

if(temp=底i=0

dowhile(vbxian(i)=0)i=i+1

if(i>nlast)thenExitDoendifloop

lastfenxing=i

form=lastfenxing+1+nlasttonlastif(vbxian(m)0)thenif(vbxian(m)>0)then

if(vbxiang(m)>=vbxiand(lastfenxing))then'满足条件顶>=底lastfenxing=melse

'不满足条件顶nlast)then

ExitDoendifloop

lastfenxing=mendifelse

if(vbxiand(m)nlast)thenExitDoendifloop

lastfenxing=mendifendifendifnext

'计算线段的高点和低点i=0

dowhile(vbxian(i)=0)i=i+1

if(i>nlast)thenExitDoendifloop

lastfenxing=i

'vbxiang(i)=vbh(i)'vbxiand(i)=vbl(i)gg=vbxiang(i)dd=vbxiand(i)

form=lastfenxing+1+nlasttonlast

if(vbfenxing(m)0)thengg=max(gg,vbh(m))dd=min(dd,vbl(m))

if(vbxian(m)0)thenvbxiang(i)=ggvbxiand(i)=dd

if(vbxian(m)>0)thenelseendif

gg=vbh(m)dd=vbl(m)endifendifnext

endif'(1)i=nlast

dowhile(vbxian(i)=0)i=i-1

if(i>nlastoriIf(a>=b)Thenmax=aElse

max=bEndIf

EndFunction

Functionmin(a,b)If(a

FOXWEI:=LING;

FOXBUYSELL:=LING;0)theni=i+1

vbfennumxian(m)=iendifnext

'vbfennumxian(nlast)=0x1=0x2=0x3=0x4=0x5=0x6=0x7=0bi=0maxbi=0zhsh=0

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

'DoWhile(vbxian(a)=0anda0)thenexitdoendifa=a+1Loopx1=aa=x1+1

DoWhile(a0)thenexitdoendifa=a+1Loopx2=aa=x2+1

DoWhile(a0)thenexitdoendifa=a+1

Loopx3=aa=x3+1bi=0

zhshbegin=x1zzg=0zzd=0zgg=0zdd=0zg=0zd=0gg=0dd=0

'vbbicount=FFL.Vardata(\'vbweibi=FFL.Vardata(\FORm=aTOnlast

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

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

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

'(2)begin只在分型不为0时进行处理,即:是分型时处理bi=bi+1x4=m

if(zhshbegin=0)thenzhshbegin=x4endif

if(vbxian(x1)>0)then

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

zg=min(vbxiang(x1),vbxiang(x3))'临时中枢高点

zd=max(vbxiand(x2),vbxiand(x4))'临时中枢低点

gg=max(vbxiang(x1),vbxiang(x3))'临时中枢高高点

dd=min(vbxiand(x2),vbxiand(x4))'临时中枢低低点else

'以底分型开始,x2,x4取高点x1,x3取低点zg=min(vbxiang(x2),vbxiang(x4))'临时中枢高点

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

'临时中枢低点

gg=max(vbxiang(x2),vbxiang(x4))'临时中枢高高点

dd=min(vbxiand(x1),vbxiand(x3))'临时中枢低低点endif

if(zd>zg)then

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

'还要计算上一个中枢的级别和中枢区间及波动区间,计算中枢的级别根据bi记数器的值,中枢计算完毕后笔记数器bi清零

'bi记数器的值小于等于6时为本级别中枢,值为7或8时可能为本级别两个中枢,大于或等于9时为上一级别的中枢maxbi=max(maxbi,bi)vbbicount(x2)=bibi=-1

zhshbegin=0else

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

'(3)终止,将x1,x2,x3的值分别换成x2,x3,x4的值,

也即向前推进一个分型,然后再返回进行比较x1=x2x2=x3x3=x4endif

'(2)终止NEXT

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

Functionmax(a,b)If(a>=b)Thenmax=aElse

max=bEndIf

EndFunction

Functionmin(a,b)If(a

FOXZHSH:=LING;FOXZHSHG:=LING;FOXZHSHD:=LING;FOXZHSHGG:=LING;FOXZHSHDD:=LING;FOXZHSH5:=LING;FOXZHSHG5:=LING;FOXZHSHD5:=LING;FOXZHSHGG5:=LING;FOXZHSHDD5:=LING;FOXZHSH15:=LING;FOXZHSHG15:=LING;FOXZHSHD15:=LING;FOXZHSHGG15:=LING;FOXZHSHDD15:=LING;FOXZHSH30:=LING;FOXZHSHG30:=LING;FOXZHSHD30:=LING;FOXZHSHGG30:=LING;FOXZHSHDD30:=LING;FOXZHSH60:=LING;FOXZHSHG60:=LING;FOXZHSHD60:=LING;FOXZHSHGG60:=LING;FOXZHSHDD60:=LING;FOXZHSHR:=LING;FOXZHSHGR:=LING;FOXZHSHDR:=LING;FOXZHSHGGR:=LING;FOXZHSHDDR:=LING;FOXZHSHZ:=LING;FOXZHSHGZ:=LING;FOXZHSHDZ:=LING;FOXZHSHGGZ:=LING;FOXZHSHDDZ:=LING;

FOXZHSHY:=LING;FOXZHSHGY:=LING;FOXZHSHDY:=LING;FOXZHSHGGY:=LING;FOXZHSHDDY:=LING;FOXZHSHN:=