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

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第一個(gè)包含的位置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分型預(yù)處理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以上分型預(yù)處理form=0tonlastvbfenxing1(m)=vbfenxing(m)vbfenxing1(m)=0nexti=0dowhile(vbfenxing(i)=0)i=i+1if(inlast)thenExitDoendiflooplastfenxing=i取第一個(gè)分型位置下面去掉連續(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頂要高的底要低的相等時(shí)要選時(shí)間在前面的vbfenxin

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

12、henbao=bao+1elseif(vbbaohan1(m)=2)thenn=n+1endifendifvbfenxing1(m)=bao+n包含關(guān)系只視為一個(gè)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頂要高的底要低的相等時(shí)要選時(shí)間在前面的en

14、dif將上一個(gè)分開型位置數(shù)據(jù)更新為當(dāng)下位置else分型間距離小于4要看情況若與前分型不同且破壞前筆,可保留其它情況要去掉破壞前筆即相鄰分型不同且高于上上個(gè)頂或低于上上個(gè)底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取第一個(gè)分型位置下面去掉連續(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ù)變蓚€(gè)全置為0,并查下一個(gè)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先取三個(gè)分型數(shù)據(jù),然后進(jìn)入循環(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ù)三筆中的中間那筆是兩個(gè)線段(中樞)的分界標(biāo)志其它則是不同級(jí)別的中樞和線段的思路設(shè)計(jì)在大盤和指數(shù)中分筆與1分中1分級(jí)別要大一些,在個(gè)股中1分要大一些因有的個(gè)股1分鐘內(nèi)可能無成交if(vbfenxing(m)0)then(2)begin只在分型不為0時(shí)進(jìn)行處理,即:是分型時(shí)處理bi=bi+1x4=mif(zhshbegin=0

21、)thenzhshbegin=x4endifif(vbfenxing(x1)0)then以頂分型開始,xl,x3取高點(diǎn)x2,x4取低點(diǎn)，線段及中樞區(qū)間取高點(diǎn)中的低者，低點(diǎn)中的高者zg=min(vbh(x1),vbh(x3)臨時(shí)中樞高點(diǎn)zd=max(vbl(x2),vbl(x4)臨時(shí)中樞低點(diǎn)gg=max(vbh(x1),vbh(x3)臨時(shí)中樞高高點(diǎn)dd=min(vbl(x2),vbl(x4)臨時(shí)中樞低低點(diǎn)else以底分型開始,x2,x4取高點(diǎn)xl,x3取低點(diǎn)zg=min(vbh(x2),vbh(x4)臨時(shí)中樞高點(diǎn)zd=max(vbl(x1),vbl(x3)臨時(shí)中樞低點(diǎn)gg=max(vbh(x2)

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

23、x2x2=x3x3=x4endif(2)結(jié)束NEXT(1)結(jié)束找出所有連續(xù)三筆無重疊的位置,即不能形成中樞的候選位置,以下要對(duì)這些位置進(jìn)行篩選并逐個(gè)分析,看圖時(shí)要特別注意這些位置以下為自定義函數(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ù)自動(dòng)計(jì)算的即:vbfenxing初始計(jì)算相關(guān)數(shù)據(jù)置為0當(dāng)數(shù)據(jù)類型為0和1即分筆和1分鐘時(shí)要按筆-線段的過程組成中樞其它級(jí)別(指5分鐘及以上)時(shí)用筆組成中樞此時(shí)要將筆的數(shù)據(jù)即:分型位置代入線段數(shù)組中IF(vbdatanumber=0ORvbdatanumber=1)THENIF(vbdatanumber=0ORvbdatanumber=1)and(vbzqdm=88orvbzqdm=1borvbzqdm=1Borvbzqdm=

26、1aorvbzqdm=1Aorvbzqdm=39)THEN(1)分筆和1分鐘計(jì)算線段數(shù)據(jù)vbzqdm=0為指數(shù)公式還未考慮開始連續(xù)三筆無重疊不能形成線段的處理,纏論中對(duì)此也未明確不能形成線段的筆應(yīng)發(fā)生屬于那個(gè)線段對(duì)走勢(shì)中間連續(xù)三筆無重疊不能形成線段的處理也未明確不能形成線段的筆應(yīng)屬于那個(gè)線段纏論中規(guī)定線段是連續(xù)的且以不同的分型作為兩個(gè)端點(diǎn)即:不能頂?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(當(dāng)前的1x2:&cstr(x2)&當(dāng)前的1x3:&cstr(x3)&當(dāng)前的nlast:&cstr(nlast)exitdoendifif(vbweibi(x2)=0orvbweibi(x3)=0orvbweibi(x3)=1orvbweibi(x2)=2)thenmsgbox(當(dāng)前的1x2

28、:&cstr(x2)&當(dāng)前的1x3:&cstr(x3)&當(dāng)前的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定義出第一個(gè)特征序列,及關(guān)系即:是上升的還是下降的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)了特征序列的分型線段方向與特征序列關(guān)系不同,出現(xiàn)分型,首先判斷自tewei(x2)開始的三筆是否構(gòu)成線段，構(gòu)成線段則下一步，不構(gòu)成線段返回原線段繼續(xù),再判斷第一個(gè)(tewei的前一個(gè)特征序列)與第二個(gè)(tewei)之間是否有缺口if(vbweibi(x4)=0orvbweibi(x3)=0orvbweibi(x4)=1orvbweibi(x3)=2)thenif(vbweibi(x6)=0orvbweibi(x5)=0)th

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

34、if(vbweibi(x6)=0orvbweibi(x5)=0orvbweibi(x6)=1orvbweibi(x5)=2)then開始構(gòu)成新線段,新線段在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開始結(jié)束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不構(gòu)成線段,原線段繼續(xù)tewei=newteweivbtegx(newtewei)=xianfangx2=x4x3=x5m=x5+1endifElse(5)線段方向與特征序列關(guān)系相同，未出現(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有幾個(gè)連續(xù)包含，指大于三個(gè)K線的包含,BAO的值是包含的K線數(shù)減2,當(dāng)只有兩個(gè)連續(xù)K線包含時(shí)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(當(dāng)前的12temp:&cstr(temp)&當(dāng)前的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包含關(guān)系標(biāo)準(zhǔn)化,即結(jié)束標(biāo)志都為2及以上處理線段的兩個(gè)端點(diǎn)滿足條件頂=底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