缠论一买三买选股公式飞狐+悟多公式.docx

1、缠论一买三买选股公式飞狐+悟多公式缠论一买、三买选股公式（飞狐+悟多公式）公式指标 2009-08-14 11:42:38 阅读5639 评论20 字号：大中小订阅 一买的选股公式初步搞出来的，当然还不完善，不能算是一买的公式，充其量算选出即将盘整背驰的，不过两个中枢下的盘整背驰就是一买了，当然真正是否背驰还要靠人工来判断，它只能初选，不过也省下很多事了，欢迎使用，多提意见。beginif DATAPERIOD=0 then minbi:=fbase.var2#min1; if DATAPERIOD=1 then minbi:=fbase.var2#min5; if DATAPERIOD=2

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

3、ar001:=fbase.var2#min30;if datatype=3 then var001:=fbase.var2#min60;if datatype=4 then var001:=fbase.var2#day;var1:=chzhshchkxian;var2:=chzhshchbi;处理笔关系var3:=chzhshchtongji(minbi);同级别分解zg:=chzhshchzg(var3);/一定要先调用ZGzd:=chzhshchzd(var3);zswz:=barslast(zgzd);tj3:=count(abs(var3),barslast(var3=1)=0;tj4

4、:=l0;tj6:=ref(h,barslast(var2=1)zd,barslast(var3=1)0;not(zgzd)&tj3&tj7&tj4&tj5&tj6;end;一买是模糊的，不准确的，三买就比较标准了，同样背驰需自行判断，否则不背驰就跌回中枢了：beginif 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:=f

5、base.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.va

6、r2#min60;if datatype=4 then var001:=fbase.var2#day;var1:=chzhshchkxian;var2:=chzhshchbi;处理笔关系var3:=chzhshchtongji(minbi);同级别分解zg:=chzhshchzg(var3);/一定要先调用ZGzd:=chzhshchzd(var3);var1:=chzhshchkxian;var2:=chzhshchbi;var4:=barslast(var0010);tj1:=ref(var001,var2)=-1; /上级别是底var5:=sum(abs(var2),var2);tj2:

7、=var5=1; /第一个回调才算tj3:=count(abs(var3),barslast(var3=-1)=0;zswz:=barslast(zgzd);tj4:=count(zgzd,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(zgzd);not(zgzd)&tj3&tj4&tj5&tj6&tj7;end;MA10:=MA(CLOSE,10);MA5:=MA(CLOSE,5);M

8、A1:=MA5-MA10;MA2:=MA10;MA3:=MA10;DATANUMBER:=DATATYPE;DATANUMBER1:=DATATYPE;DATANUMBER2:=DATATYPE;DATANUMBER3:=DATATYPE;LING:=HIGH; 0) thenbianhua = 1nvalue = nvalue + vbma(i)elsebianhua = 2nvaluefu = nvaluefu + vbma(i) end if if (oldbianhua = bianhua) thenelsevbma3(i) = mm=0if (bianhua = 1) thenvbm

9、a2(i) = nvaluefunvaluefu = 0nvaluefu = 0elsevbma2(i) = nvaluenvalue = 0nvalue = 0end ifend ifoldbianhua = bianhuanext FFL.VarData(ma2) = vbma2FFL.VarData(ma3) = vbma3FFL.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(L

10、OW,5)-DATANUMBER,REF(MA3,0),0),colorFFFF;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;WEI

11、HE:=LING;WEIPING:=LING; 0) thenDo While (vbma(m)0)nvalue = vbma(m) + nvaluei=i+1m=m-1if(m0) thenexit doend ifLoopelseDo While (vbma(m)0)nvalue = vbma(m) + nvaluei=i+1m=m-1if(mDRAWNUMBER(WEIHE0 AND 0=1,IF(WEIHE0,HIGH,LOW),WEIHE*1000,0),colorFF;DRAWNUMBER(WEIHE0 AND 0=1,(IF(WEIHE0,HIGH,LOW)-DATANUMBER

12、*2,WEIPING*1000,0),colorFF00;DRAWNUMBER(WEIPING0 AND 0=1,(IF(WEIHE0,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:=LO

13、W;FOXBAOHAN:=LING;FOXBAOHAN1:=LING;FOXGUANXI:=LING;FOXFENXING:=LING;FOXFENXING1:=LING;FOXFENNUMBER:=LING;FOXQUEKOU:=LING;FOXBICOUNT:=LING;FOXWEIBI:=LING;vbh(m-1) and vbl(m)vbl(m-1) thenvbguanxi(m)=1elseif (vbh(m)vbh(m-1) and vbl(m)=vbh(m-1) and vbl(m)=vbh(m-1) and vbl(m)nlast) thenExit Doend ifloop第

14、一个包含的位置lastfenxing=ibao=0existbao=0for m = i tonlastif (vbbaohan(m) 0) thenbao=bao+1if (bao=2) thenif (vbbaohan(m)=2 and vbbaohan(m-1)=1 or vbbaohan(m)=-2 and vbbaohan(m-1)=-1) thenvbbaohan1(m) = baoif (bao2) thenexistbao=BAOfor i = 1 tobaovbh(m-bao+i)=vbh(m)vbL(m-bao+i)=vbl(m)if (i = 1 or i=bao ) t

15、henelsevbbaohan1(m-bao+i)=-3end ifnextend ifdo while (bao1)vbh(m-bao+1)=vbh(m)vbL(m-bao+1)=vbl(m)if (existbao=BAO or bao=existbao-1) thenelsevbbaohan1(m-bao+1)=-3end ifbao=bao-1loopbao=0end ifend ifelsebao=0end ifnext分型预处理existbao=vbguanxi(0)for m = 1 tonlastif (vbh(m-1)=vbh(m-2) and vbh(m-1)=vbh(m)

16、 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)vbl(m-2) and vbl(m-1)=vbl(m) thenend ifif(vbguanxi(m)existbao) thenif(vbguanxi(m-1)=1) thenvbfenxing(m-1) = 1顶else vbfenxing(m-1) = -1底end ifexistbao=vbguanxi(m)end ifnext以上分型预处理for m = 0 tonlastvbfenxing

17、1(m) = vbfenxing(m)vbfenxing1(m) = 0nexti=0do while (vbfenxing(i)=0)i=i+1if (inlast) thenExit Doend iflooplastfenxing=i取第一个分型位置下面去掉连续的顶或底for m = lastfenxing+1+nlasttonlastif(vbfenxing(m)0) thenif (vbfenxing(m)vbfenxing(lastfenxing) thenlastfenxing=melseif (vbfenxing(m)=1) thenif (vbh(m)vbh(lastfenxi

18、ng) thenvbfenxing(lastfenxing)=0lastfenxing=melsevbfenxing(m)=0end ifelseif (vbl(m)vbl(lastfenxing) thenvbfenxing(lastfenxing)=0lastfenxing=melsevbfenxing(m)=0end ifend if顶要高的底要低的 相等时要选时间在前面的vbfenxing(m)=0end ifend ifnext以下处理分型间距离不小于4的要求同时处理连续的顶和底的问题bao=0i=0n=0existbao=vbfenxing(0)m=0do while (vbbao

19、han1(i) nlast) thenExit Doend iflooplastbaohan=i第一个包含位置i=0do while (vbfenxing(i)=0)i=i+1if (inlast) thenExit Doend ifloop第一个预备分型位置lastfenxing=ilastfenxing1=lastfenxingi=0for m = lastfenxing+1 tonlastif (vbbaohan(m) = 0) thenbao=bao+1elseif (vbbaohan1(m) =2) thenn=n+1end ifend ifvbfenxing1(m) = bao+n包含关系只视为一个k线vbfenxing1(m)=vbbaohan1(m)if (m735) thenexit forend ifif(vbfenxing(m)0) thenif (bao+n= 4) then分型间距离大于等于4 符合要求if (vbfenxing(m)vbfenxing(lastfenxing) thenvbfenxing1(m)