纏論公式（最完美自動畫筆公式）主圖

*纏論公式（最完美自動畫筆公式）主圖纏中說禪筆定理：任何的當(dāng)下，在任何時間周期的K線圖中，走勢必然落在一確定的具有明確方向的筆當(dāng)中（向上筆或向下筆），而在筆當(dāng)中的位置，必然只有兩種情況：1、在分型構(gòu)造中。2、分型構(gòu)造確認(rèn)后延伸為筆的過程中。纏論定義示意圖：總結(jié)：按照股市中所有走勢都是筆于筆的連接，編寫的此公式，（公式中也參考了別的同修的成果），應(yīng)該是網(wǎng)絡(luò)中最完美的了，本人把5日戰(zhàn)法也一塊編寫了進(jìn)去，花費(fèi)了不少精力，希望大家看到也傳播出去，希望能幫助到一些人。有緣得之吧！公式源碼：老筆:=0;M5:MA(CLOSE,5),COLORRED,LINETHICK3;MA20:MA(CLOSE,20),COLORLIBLUE,LINETHICK1.5;MA60:MA(CLOSE,50),COLORRED,LINETHICK3;M250:MA(CLOSE,200),COLORBLUE,LINETHICK4;IF(C>=M5,M5,DRAWNULL),COLORRED,LINETHICK3;IF(C<M5,M5,DRAWNULL),COLORGREEN,LINETHICK3;IF(C>=MA60,MA60,DRAWNULL),COLORRED,LINETHICK3;IF(C<MA60,MA60,DRAWNULL),COLORGREEN,LINETHICK3;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)ANDG>D,FG01,IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0));FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01)ANDD>G,FD01,IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0));FG0:=FG02ANDH=HHV(H,BARSLAST(FD02));FD0:=FD02ANDL=LLV(L,BARSLAST(FG02));GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORCYAN;DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORCYAN;GQ:=L>REF(H,1)ANDDAY!=REF(DAY,1);DQ:=H<REF(L,1)ANDDAY!=REF(DAY,1);GQL:=REF(L,BARSLAST(GQ));DQH:=REF(H,BARSLAST(DQ));FGH:=REF(H,BARSLAST(FG0));FGL:=REF(L,BARSLAST(FG0));FGH1:=REF(H,BARSLAST(FG0)+1);FGL1:=REF(L,BARSLAST(FG0)+1);FGH2:=REF(H,BARSLAST(FG0)+2);FGL2:=REF(L,BARSLAST(FG0)+2);FDH:=REF(H,BARSLAST(FD0));FDL:=REF(L,BARSLAST(FD0));FDH1:=REF(H,BARSLAST(FD0)+1);FDL1:=REF(L,BARSLAST(FD0)+1);FDH2:=REF(H,BARSLAST(FD0)+2);FDL2:=REF(L,BARSLAST(FD0)+2);FGZH:=IF(FGL<=FGL1,FGH2,FGH1);FGZL:=IF(FGH1<FGL,FGL,IF(FGL<=FGL1,FGL2,FGL1));FDZH:=IF(FDL1>FDH,FDH,IF(FDH>=FDH1,FDH2,FDH1));FDZL:=IF(FDH>=FDH1,FDL2,FDL1);FG1:=FGH>FDZHANDFG0;FD1:=FDL<FGZLANDFD0;FG:=FG1ANDFGH>FDHANDFGL>FDLANDFGL1>FDL;FD:=FD1ANDFDL<FGLANDFDH<FGHANDFDH1<FGH;BH0:=(H<=REF(H,1)ANDL>=REF(L,1))OR(H>=REF(H,1)ANDL<=REF(L,1));BHG:=COUNT(BH0,BARSLAST(FD0));BHD:=COUNT(BH0,BARSLAST(FG0));BGQ:=COUNT(GQ,BARSLAST(FD0));BDQ:=COUNT(DQ,BARSLAST(FG0));BK0:=IF(BHG>0,BHG+2+老筆,IF(BHD,BHD+2+老筆,3));BK:=IF(BGQ,BK0-BGQ,IF(BDQ,BK0-BDQ,BK0));G1X:=(FGANDBARSLAST(FD)>BK);D1X:=(FDANDBARSLAST(FG)>BK);G1:=(FG0ANDREF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G1X))ANDBARSLAST(D1X)>BARSLAST(G1X))OR(FG1ANDCOUNT(GQ,BARSLAST(FD1))>0ANDREF(H,BARSLAST(FG1))>REF(H,BARSLAST(G1X)));D1:=(FD0ANDREF(L,BARSLAST(FD0))<=REF(L,BARSLAST(D1X))ANDBARSLAST(G1X)>BARSLAST(D1X))OR(FD1ANDCOUNT(DQ,BARSLAST(FG1))>0ANDREF(L,BARSLAST(FD1))<REF(H,BARSLAST(D1X)));G1H:=IF(BARSLAST(D1)>BARSLAST(G1),REF(H,BARSLAST(G1)),REF(H,BARSLAST(D1))),;D1L:=IF(BARSLAST(G1)>BARSLAST(D1),REF(L,BARSLAST(D1)),REF(L,BARSLAST(G1)));G2:=G1ANDH=HHV(G1H,BARSLAST(D1)+1)ANDH>REF(H,1)ANDBARSLAST(D1)>BARSLAST(G1);D2:=D1ANDL=LLV(D1L,BARSLAST(G1)+1)ANDL<REF(L,1)ANDBARSLAST(G1)>BARSLAST(D1);G3:=G2OR(FG0ANDREF(H,BARSLAST(FG0))>REF(H,BARSLAST(G2))ANDBARSLAST(D2)>BARSLAST(G2));D3:=D2OR(FD0ANDREF(L,BARSLAST(FD0))<REF(L,BARSLAST(D2))ANDBARSLAST(G2)>BARSLAST(D2));GPB:IF(G1X,H,DRAWNULL),CIRCLEDOT,COLORYELLOW;DPB:IF(D1X,L,DRAWNULL),CIRCLEDOT,COLORYELLOW;{畫線}NN:=G3;UU:=D3;L1:DRAWLINE(UU,L,NN,H,0),COLORLIGREEN,LINETH