纏論一買、三買選股公式(飛狐+悟多公式)

1、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=1nvalue=nvalue+vbma(i)elsebianhua=2nvaluefu=nvaluefu+vbma(i)endifif(oldbianhua=bianhua)thenelsevbma3(i)=mm=0if(bianhua

2、=1)thenvbma2(i)=nvaluefunvaluefu=0nvaluefu=0elsevbma2(i)=nvaluenvalue=0nvalue=0endifendifoldbianhua=bianhuanext(ma2)=vbma2(ma3)=vbma3(ling)=vbling%DRAWNUMBER(REF(MA2,0)0AND0=1,LLV(LOW,5),REF(MA2,0)*1000,0),colorFF00;DRAWNUMBER(REF(MA2,0)0AND0=1,LLV(LOW,5)-DATANUMBER,REF(MA3,0),0),colorFFFF;DRAWNUMBE

3、R(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=vbm

4、a(m)+nvaluei=i+1m=m-1if(m0)thenexitdoendifLoopelseDoWhile(vbma(m)0)nvalue=vbma(m)+nvaluei=i+1m=m-1if(mDRAWNUMBER(WEIHE0AND0=1,IF(WEIHE0,HIGH,LOW),WEIHE*1000,0),colorFF;DRAWNUMBER(WEIHE0AND0=1,(IF(WEIHE0,HIGH,LOW)-DATANUMBER*2,WEIPING*1000,0),colorFF00;DRAWNUMBER(WEIPING0AND0=1,(IF(WEIHE0,HIGH,LOW)-D

5、ATANUMBER,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

6、:=LING;FOXFENNUMBER:=LING;FOXQUEKOU:=LING;FOXBICOUNT:=LING;FOXWEIBI:=LING;vbh(m-1)andvbl(m)vbl(m-1)thenvbguanxi(m)=1elseif(vbh(m)vbh(m-1)andvbl(m)=vbh(m-1)andvbl(m)=vbh(m-1)andvbl(m)nlast)thenExitDoendifloop第一個包含的位置lastfenxing=ibao=0existbao=0form=itonlastif(vbbaohan(m)0)thenbao=bao+1if(bao=2)thenif

7、(vbbaohan(m)=2andvbbaohan(m-1)=1orvbbaohan(m)=-2andvbbaohan(m-1)=-1)thenvbbaohan1(m)=baoif(bao2)thenexistbao=BAOfori=1tobaovbh(m-bao+i)=vbh(m)vbL(m-bao+i)=vbl(m)if(i=1ori=bao)thenelsevbbaohan1(m-bao+i)=-3endifnextendifdowhile(bao1)vbh(m-bao+1)=vbh(m)vbL(m-bao+1)=vbl(m)if(existbao=BAOorbao=existbao-1

8、)thenelsevbbaohan1(m-bao+1)=-3endifbao=bao-1loopbao=0endifendifelsebao=0endifnext分型預處理existbao=vbguanxi(0)andandformandandif(vbh(m-1)=vbh(m-2)andvbh(m-1)=vbh(m)andvbl(m-1)=vbl(m-2)vbl(m-1)=vbl(m)orvbh(m-1)=vbh(m-2)andvbh(m-1)=vbh(m)vbl(m-1)vbl(m-2)andvbl(m-1)=vbl(m)thenendifif(vbguanxi(m)existbao)th

9、enif(vbguanxi(m-1)=1)thenvbfenxing(m-1)=1頂elsevbfenxing(m-1)=-1底endifexistbao=vbguanxi(m)endifnext以上分型預處理form=0tonlastvbfenxing1(m)=vbfenxing(m)vbfenxing1(m)=0nexti=0dowhile(vbfenxing(i)=0)i=i+1if(inlast)thenExitDoendiflooplastfenxing=i取第一個分型位置下面去掉連續(xù)的頂或底form=lastfenxing+1+nlasttonlastif(vbfenxing(m)

10、0)thenif(vbfenxing(m)vbfenxing(lastfenxing)thenlastfenxing=melseif(vbfenxing(m)=1)thenif(vbh(m)vbh(lastfenxing)thenvbfenxing(lastfenxing)=0lastfenxing=melsevbfenxing(m)=0endifelseif(vbl(m)vbl(lastfenxing)thenvbfenxing(lastfenxing)=0lastfenxing=melsevbfenxing(m)=0endifendif頂要高的底要低的相等時要選時間在前面的vbfenxin

11、g(m)=0endifendifnext以下處理分型間距離不小于4的要求同時處理連續(xù)的頂和底的問題bao=0i=0n=0existbao=vbfenxing(0)m=0dowhile(vbbaohan1(i)nlast)thenExitDoendiflooplastbaohan=i第一個包含位置i=0dowhile(vbfenxing(i)=0)i=i+1if(inlast)thenExitDoendifloop第一個預備分型位置lastfenxing=ilastfenxing1=lastfenxingi=0form=lastfenxing+1tonlastif(vbbaohan(m)=0)t

12、henbao=bao+1elseif(vbbaohan1(m)=2)thenn=n+1endifendifvbfenxing1(m)=bao+n包含關系只視為一個k線vbfenxing1(m)=vbbaohan1(m)if(m735)thenexitforendifif(vbfenxing(m)0)thenif(bao+n=4)then分型間距離大于等于4符合要求if(vbfenxing(m)vbfenxing(lastfenxing)thenvbfenxing1(m)=vbfenxing(m)n=0bao=0lastfenxing1=lastfenxinglastfenxing=melsei

13、f(vbfenxing(m)=1)thenif(vbh(m)vbh(lastfenxing)thenexitforvbfenxing(lastfenxing)=0n=0bao=0lastfenxing1=lastfenxinglastfenxing=melsevbfenxing(m)=0endifelseif(vbl(m)vbl(lastfenxing)thenvbfenxing(lastfenxing)=0n=0bao=0lastfenxing1=lastfenxinglastfenxing=melsevbfenxing(m)=0endifendif頂要高的底要低的相等時要選時間在前面的en

14、dif將上一個分開型位置數(shù)據(jù)更新為當下位置else分型間距離小于4要看情況若與前分型不同且破壞前筆,可保留其它情況要去掉破壞前筆即相鄰分型不同且高于上上個頂或低于上上個底if(vbfenxing(m)vbfenxing(lastfenxing)thenvbfenxing1(m)=vbfenxing(m)i=lastfenxing-1dowhile(vbfenxing(i)vbfenxing(m)i=i-1if(i=0)thenExitDoendiflooplastfenxing1=lastfenxingi=lastfenxing1if(vbfenxing(m)=1)thenif(vbl(m)v

15、bl1(m)thent1=vbl1(m)elset1=vbl(m)endifif(vbh(i)vbh1(i)thent2=vbh(m)elset2=vbh1(m)endifif(t1t2)thenn=0bao=0lastfenxing1=lastfenxinglastfenxing=melsevbfenxing(m)=0endifelseif(vbh(m)vbh1(m)thent1=vbh(m)elset1=vbh1(m)endifif(vbl(i)vbl1(i)thent2=vbl(m)elset2=vbl1(m)endifif(t1t2)thenif(vbh(m)vbh(lastfenxi

16、ng)thenexitforvbfenxing(lastfenxing)=0n=0bao=0lastfenxing1=lastfenxinglastfenxing=melsevbfenxing(m)=0endifelseif(vbl(m)nlast)thenExitDoendiflooplastfenxing=i取第一個分型位置下面去掉連續(xù)的頂或底form=lastfenxing+1+nlasttonlastif(vbfenxing(m)0)thenif(vbfenxing(m)vbfenxing(lastfenxing)thenlastfenxing=melseif(vbfenxing(m)

17、=1)thenif(vbh(m)vbh(lastfenxing)thenvbfenxing(lastfenxing)=0lastfenxing=melsevbfenxing(m)=0endifelseif(vbl(m)nlast)thenExitDoendiflooplastfenxing=iform=lastfenxing+1tonlastif(vbfenxing(m)0)thenif(vbfenxing(m)0)thenif(vbh(m)vbl(lastfenxing)then滿足條件頂?shù)譴astfenxing=melse不滿足條件頂?shù)變蓚€全置為0,并查下一個vbfenxing(m)=0v

18、bfenxing(lastfenxing)=0m=m+1dowhile(vbfenxing(m)=0)m=m+1if(mnlast)thenExitDoendiflooplastfenxing=mendifelseif(vbl(m)vbh(lastfenxing)then滿足條件底頂lastfenxing=melse不滿足條件底nlast)thenExitDoendiflooplastfenxing=mendifendifendifnexti=0form=0tonlastif(vbfenxing(m)0)theni=i+1vbfennumber(m)=iendifnextvbfennumber

19、(nlast)=0vbfenxing(nlast)=-vbfenxing(lastfenxing)x1=0 x2=0 x3=0 x4=0 x5=0 x6=0 x7=0bi=0maxbi=0zhsh=0先取三個分型數(shù)據(jù),然后進入循環(huán)處理a=0DoWhile(vbfenxing(a)=0anda=nlast)DoWhile(anlast)if(vbfenxing(a)0)thenexitdoendifa=a+1Loopx1=aa=x1+1DoWhile(anlast)if(vbfenxing(a)0)thenexitdoendifa=a+1Loopx2=aa=x2+1DoWhile(anlast)

20、if(vbfenxing(a)0)thenexitdoendifa=a+1Loopx3=aa=x3+1bi=0zhshbegin=x1zzg=0zzd=0zgg=0zdd=0zg=0zd=0gg=0dd=0FORm=aTOnlast(1)開始按照找出不能形成線段(中樞)的連續(xù)三筆中的中間那筆是兩個線段(中樞)的分界標志其它則是不同級別的中樞和線段的思路設計在大盤和指數(shù)中分筆與1分中1分級別要大一些,在個股中1分要大一些因有的個股1分鐘內可能無成交if(vbfenxing(m)0)then(2)begin只在分型不為0時進行處理,即:是分型時處理bi=bi+1x4=mif(zhshbegin=0

21、)thenzhshbegin=x4endifif(vbfenxing(x1)0)then以頂分型開始,xl,x3取高點x2,x4取低點，線段及中樞區(qū)間取高點中的低者，低點中的高者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取高點xl,x3取低點zg=min(vbh(x2),vbh(x4)臨時中樞高點zd=max(vbl(x1),vbl(x3)臨時中樞低點gg=max(vbh(x2)

22、,vbh(x4)臨時中樞高高點dd=min(vbl(x1),vbl(x3)臨時中樞低低點endifif(zdzg)then(3)中樞低點大于高點,即未形成中樞，要將x2,x3的位置記錄出來vbweibi(x2)=1vbweibi(x3)=2msgbox(當前的vbweibi(x3):&cstr(vbweibi(x3)maxbi=max(maxbi,bi)vbbicount(x2)=bibi=-1zhshbegin=0else(3)中樞低點小于等于高點,即形成中樞,不用記錄位置endif(3)結束，將xl,x2,x3的值分別換成x2,x3,x4的值，也即向前推進一個分型，然后再返回進行比較x1=

23、x2x2=x3x3=x4endif(2)結束NEXT(1)結束找出所有連續(xù)三筆無重疊的位置,即不能形成中樞的候選位置,以下要對這些位置進行篩選并逐個分析,看圖時要特別注意這些位置以下為自定義函數(shù)部分Functionmax(a,b)If(a=b)Thenmax=aElsemax=bEndIfEndFunctionFunctionmin(a,b)If(aFOXXIAN:=LING;FOXXIANG:=LING;FOXXIAND:=LING;FOXTEG:=LING;FOXTED:=LING;FOXTEGX:=LING;FOXTEG1:=LING;FOXTED1:=LING;FOXTEGX1:=LI

24、NG;FOXDATATYPE:=DATATYPE;FOXTEBAO:=LING;FOXTEBAO1:=LING;FOXTEGUANXI1:=LING;FOXFENNUMXIAN:=LING;FOXZQDM:=STRLEFT(STKLABEL,2);FOXXIAOSHU:=0;=0ORvbdatanumber=1)THENIF(vbdatanumber=0ORvbdatanumber=1)and(vbzqdm=88orvbzqdm=1borvbzqdm=1Borvbzqdm=1aorvbzqdm=1Aorvbzqdm=39)THENELSEFORm=0TOnlastif(vbfenxing(m)

25、0)thenvbxian(m)=vbfenxing(m)vbxiang(m)=vbh(m)vbxiand(m)=vbl(m)endifNEXTENdIF筆的數(shù)據(jù)是按K線數(shù)據(jù)自動計算的即:vbfenxing初始計算相關數(shù)據(jù)置為0當數(shù)據(jù)類型為0和1即分筆和1分鐘時要按筆-線段的過程組成中樞其它級別(指5分鐘及以上)時用筆組成中樞此時要將筆的數(shù)據(jù)即:分型位置代入線段數(shù)組中IF(vbdatanumber=0ORvbdatanumber=1)THENIF(vbdatanumber=0ORvbdatanumber=1)and(vbzqdm=88orvbzqdm=1borvbzqdm=1Borvbzqdm=

26、1aorvbzqdm=1Aorvbzqdm=39)THEN(1)分筆和1分鐘計算線段數(shù)據(jù)vbzqdm=0為指數(shù)公式還未考慮開始連續(xù)三筆無重疊不能形成線段的處理,纏論中對此也未明確不能形成線段的筆應發(fā)生屬于那個線段對走勢中間連續(xù)三筆無重疊不能形成線段的處理也未明確不能形成線段的筆應屬于那個線段纏論中規(guī)定線段是連續(xù)的且以不同的分型作為兩個端點即:不能頂?shù)巾敽偷椎降?此規(guī)定要考慮的i=0ex=0DoWhile(i=nlast)If(vbfenxing(i)0)thenexitdoendifi=i+1Loopx1=ixianbegin=x1i=x1+1DoWhile(i=nlast)If(vbfenx

27、ing(i)0)thenexitdoendifi=i+1Loopx2=ii=x2+1DoWhile(i=nlast)If(vbfenxing(i)0)thenexitdoendifi=i+1Loopx3=ii=x3+1DoWhile(ex=0)()if(x3nlastorx2nlast)thenmsgbox(當前的1x2:&cstr(x2)&當前的1x3:&cstr(x3)&當前的nlast:&cstr(nlast)exitdoendifif(vbweibi(x2)=0orvbweibi(x3)=0orvbweibi(x3)=1orvbweibi(x2)=2)thenmsgbox(當前的1x2

28、:&cstr(x2)&當前的1x3:&cstr(x3)&當前的nlast:&cstr(nlast)exitdoelsex1=x2x2=x3DoWhile(i=nlast)If(vbfenxing(i)0)thenexitdoendifi=i+1Loopx3=ii=x3+1endifloop()i=x3+1xianbegin=x1tewei=x2if(x3=nlast)thenIf(vbfenxing(x1)=1)Thenxianfang=-1以頂分型開始,線段方向向下vbted(tewei)=vbl(tewei)vbteg(tewei)=vbh(x3)Elsexianfang=-1以底分型開始

29、,線段方向向上vbteg(tewei)=vbl(tewei)vbted(tewei)=vbh(x3)EndIfvbtegx(tewei)=xianfang定義出第一個特征序列,及關系即:是上升的還是下降的endiftewei=x4tenumber=0i=x3+1vbxian(xianbegin)=vbfenxing(xianbegin)vbxiang(xianbegin)=vbh(xianbegin)vbxiand(xianbegin)=vbl(xianbegin)vbxiang(xianbegin)=ggvbxiand(xianbegin)=ddForm=iTonlast(2)DoWhile

30、(m=nlast)If(vbfenxing(m)0)thenexitdoendifm=m+1Loopx4=mm=x4+1DoWhile(m=nlast)If(vbfenxing(m)0)thenexitdoendifm=m+1Loopx5=mm=x5+1newtewei=x4if(x5nlast)thenexitforendifIf(xianfang=-1)Thenxianfang=-1以頂分型開始,線段方向向下vbted(newtewei)=vbl(newtewei)vbteg(newtewei)=vbh(x5)Elsexianfang=1以底分型開始,線段方向向上vbteg(newtewe

31、i)=vbh(newtewei)vbted(newtewei)=vbl(x5)EndIf判斷方向/缺口及包含vbtegx(newtewei)=xianfangtenumber=1+tenumberif(tenumber=1)thenIf(vbted(newtewei)vbted(tewei)Andvbteg(newtewei)vbteg(tewei)Orvbted(newtewei)vbted(tewei)Andvbteg(newtewei)vbted(tewei)Andvbteg(newtewei)vbteg(tewei)Then(4)特征序列的方向向上tefang=1Elsetefang=

32、-1(4)特征序列的方向向下EndIfvbtegx(newtewei)=tefangIf(xianfangtefang)Then(5)線段方向與特征序列的方向不同,即:出現(xiàn)了特征序列的分型線段方向與特征序列關系不同,出現(xiàn)分型,首先判斷自tewei(x2)開始的三筆是否構成線段，構成線段則下一步，不構成線段返回原線段繼續(xù),再判斷第一個(tewei的前一個特征序列)與第二個(tewei)之間是否有缺口if(vbweibi(x4)=0orvbweibi(x3)=0orvbweibi(x4)=1orvbweibi(x3)=2)thenif(vbweibi(x6)=0orvbweibi(x5)=0)th

33、en構成線段,新線段從newtewei開始,原線段在newtewei處結束還要判斷頂是否大于底if(tenumber=1)then(tenumber)此情況發(fā)生在三筆構成線段但線段的兩端不是其最高點或最低點的情況,當下只有三筆不能開始新線段否則就出現(xiàn)一筆構成一個線段的現(xiàn)象了i=mDoWhile(i=nlast)If(vbfenxing(i)0)thenexitdoendifi=i+1Loopx6=iif(x6nlast)thenmsgbox(當前的x6：&cstr(x6)&當前的nlast：&cstr(nlast)exitforendif再判斷x5,x6是否構成線段,構成則新線段否則原線段繼續(xù)

34、if(vbweibi(x6)=0orvbweibi(x5)=0orvbweibi(x6)=1orvbweibi(x5)=2)then開始構成新線段,新線段在newtewei開始xianbegin=newteweivbxian(xianbegin)=vbfenxing(xianbegin)vbxiang(xianbegin)=vbh(xianbegin)vbxiand(xianbegin)=vbl(xianbegin)x2=x5x3=x6tewei=x2m=x6+1If(vbfenxing(xianbegin)=1)Thenxianfang=-1以頂分型開始,線段方向向下vbted(tewei)

35、=vbl(tewei)vbteg(tewei)=vbh(x3)Elsexianfang=1以底分型開始,線段方向向上vbteg(tewei)=vbh(tewei)vbted(tewei)=vbl(x3)EndIfvbtegx(tewei)=xianfangtenumber=0elseelse原線段繼續(xù)tewei=newteweivbtegx(newtewei)=xianfangx2=x4x3=x5m=x5+1endif開始結束else(tenumber)tenumber=0bao=0 xianbegin=teweivbxian(xianbegin)=vbfenxing(xianbegin)vb

36、xiang(xianbegin)=vbh(xianbegin)vbxiand(xianbegin)=vbl(xianbegin)x2=X3x3=x4tewei=x2If(vbfenxing(xianbegin)=1)Thenxianfang=-1以頂分型開始,線段方向向下vbted(tewei)=vbl(tewei)vbteg(tewei)=vbh(x3)Elsexianfang=1以底分型開始,線段方向向上vbteg(tewei)=vbh(tewei)vbted(tewei)=vbl(x3)EndIfvbtegx(tewei)=xianfangm=x3+1endif(tenumber)els

37、e不構成線段,原線段繼續(xù)tewei=newteweivbtegx(newtewei)=xianfangx2=x4x3=x5m=x5+1endifElse(5)線段方向與特征序列關系相同，未出現(xiàn)分型tewei的值更新為newteweitenumber=1+tenumbervbtegx(newtewei)=xianfangtewei=newteweix2=x4x3=x5EndIf(5)Else(3)包含vbtegx(newtewei)=xianfangIf(vbted(tewei)=vbted(newtewei)Andvbteg(tewei)=0)If(vbteg(temp)0)thenexitd

38、oendiftemp=temp-1Loopif(temp=2Orvbtebao(temp)=-2Orvbtegx(temp)xianfang)Thenex=1Elsebao=bao+1EndIftemp=temp-1Loop有幾個連續(xù)包含，指大于三個K線的包含,BAO的值是包含的K線數(shù)減2,當只有兩個連續(xù)K線包含時BAO為0temp=tewei-1Fori=1TobaoDoWhile(temp=0)If(vbteg(temp)0)thenexitdoendiftemp=temp-1Loopif(temp0)If(vbteg(temp)0)thenexitdo&cstr(nlast)endift

39、emp=temp&cstr(nlast)msgbox(當前的12temp:&cstr(temp)&當前的nlast:exitforendifvbtebao(temp)=-3temp=temp-1EndIfNexttewei=newteweix2=x4x3=x5m=x5+1EndIf(3)Next(2)Fori=0TonlastIf(vbtebao(i)=-2)Thenvbtebao(i)=2EndIfIf(vbtebao1(i)=-2)Thenvbtebao1(i)=2EndIfNext包含關系標準化,即結束標志都為2及以上處理線段的兩個端點滿足條件頂=底i=0dowhile(vbxian(i

40、)=0)i=i+1if(inlast)thenExitDoendiflooplastfenxing=iform=lastfenxing+1+nlasttonlastif(vbxian(m)0)thenif(vbxian(m)0)thenif(vbxiang(m)=vbxiand(lastfenxing)then滿足條件頂=底lastfenxing=melse不滿足條件頂nlast)thenExitDoendiflooplastfenxing=mendifelseif(vbxiand(m)=vbxiang(lastfenxing)then滿足條件底頂lastfenxing=melse不滿足條件底nlast)thenExitDoendiflooplastfenxing=mendifendi