通达信最准分笔公式

{通达信最准分笔公式，2016版⽼笔:=1}

N:=4;⽼笔:=0;

HH:=REF(H,N)=HHV(H,2*N+1);LL:=REF(L,N)=LLV(L,2*N+1);

FG01:=BACKSET(HH,N+1)>BACKSET(HH,N) ;FD01:=BACKSET(LL,N+1)>BACKSET(LL,N) ;

FG02:=IF(BARSLAST(FG01)=BARSLAST(FD01),FG01,IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0));FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01),FD01,IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0));FG0:=FG02 AND H=HHV(H,BARSLAST(FD02));FD0:=FD02 AND L=LLV(L,BARSLAST(FG02));

GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORCYAN;DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORCYAN;GQ:=L>REF(H,1) AND DAY!=REF(DAY,1);DQ:=HGQL:=REF(L,BARSLAST(GQ));DQH:=REF(H,BARSLAST(DQ));

BH0:=(H<=REF(H,1) AND L>=REF(L,1)) OR (H>=REF(H,1) AND L<=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,BHG+2+⽼笔,3);

BK:=IF(BGQ,BK0-BGQ,IF(BDQ,BK0-BDQ,BK0));G1X:=(FG0 AND BARSLAST(FD0)>BK);D1X:=(FD0 AND BARSLAST(FG0)>BK);

G1:=(FG0 AND REF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G1X)) AND BARSLAST(D1X)>BARSLAST(G1X));D1:=(FD0 AND REF(L,BARSLAST(FD0))<=REF(L,BARSLAST(D1X)) AND BARSLAST(G1X)>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:=G1 AND H=HHV(G1H,BARSLAST(D1)+1) AND H>REF(H,1) AND BARSLAST(D1)>BARSLAST(G1);D2:=D1 AND L=LLV(D1L,BARSLAST(G1)+1) AND LBARSLAST(D1);

G3:=G2 OR (FG0 AND REF(H,BARSLAST(FG0))>REF(H,BARSLAST(G2)) AND BARSLAST(D2)>BARSLAST(G2));D3:=D2 OR (FD0 AND REF(L,BARSLAST(FD0))BARSLAST(D2));FGH:=REF(H,BARSLAST(G3));FGL:=REF(L,BARSLAST(G3));

FGH1:=REF(H,BARSLAST(G3)+1);FGL1:=REF(L,BARSLAST(G3)+1);FGH2:=REF(H,BARSLAST(G3)-1);FGL2:=REF(L,BARSLAST(G3)-1);FDH:=REF(H,BARSLAST(D3));FDL:=REF(L,BARSLAST(D3));

FDH1:=REF(H,BARSLAST(D3)+1);FDL1:=REF(L,BARSLAST(D3)+1);FDH2:=REF(H,BARSLAST(D3)-1);FDL2:=REF(L,BARSLAST(D3)-1);

FGZH:=MAX(MAX(FGH,FGH2),FGH1);FGZL:=MIN(MIN(FGL1,FGL),FGL2);FDZH:=MAX(MAX(FDH,FDH2),FDH1);

FDZL:=MIN(MIN(FDL1,FDL),FDL2);{=IF(FDH>=FDH1,FDL2,FDL1);}FG1:=FGH>FDZH AND G3;

FD1:=FDLFGX:=FGZL>FDZL AND REF(G1X,1) AND FGZH>FDZH;FDX:=FDZHFG:=BACKSET(FGX,2)>BACKSET(FGX,1);FD:=BACKSET(FDX,2)>BACKSET(FDX,1);G4:=G3 AND FG;D4:=D3 AND FD;

GQ1:=(FG0 AND COUNT(GQ,BARSLAST(D4))>0 AND REF(H,BARSLAST(FG0))>REF(H,BARSLAST(G4)));

DQ1:=(FD0 AND COUNT(DQ,BARSLAST(G4))>0 AND REF(L,BARSLAST(FD0))G2X:=G4 OR GQ1;D2X:=D4 OR DQ1;GPB:IF(G2X,H,DRAWNULL),CIRCLEDOT,COLORRED;

DPB:IF(D2X,L,DRAWNULL),CIRCLEDOT,COLORGREEN;

GZ1:=(FG0 AND REF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G2X)) AND BARSLAST(D2X)>BARSLAST(G2X));DZ1:=(FD0 AND REF(L,BARSLAST(FD0))<=REF(L,BARSLAST(D2X)) AND BARSLAST(G2X)>BARSLAST(D2X));GZ1H:=IF(BARSLAST(DZ1)>BARSLAST(GZ1),REF(H,BARSLAST(GZ1)),REF(H,BARSLAS

T(DZ1))),;

DZ1L:=IF(BARSLAST(GZ1)>BARSLAST(DZ1),REF(L,BARSLAST(DZ1)),REF(L,BARSLAST(GZ1)));

GZ2:=GZ1 AND H=HHV(GZ1H,BARSLAST(DZ1)+1) AND H>REF(H,1) AND BARSLAST(DZ1)>BARSLAST(GZ1);DZ2:=DZ1 AND L=LLV(DZ1L,BARSLAST(GZ1)+1) AND LBARSLAST(DZ1);

GZ3:=GZ2 OR (FG0 AND REF(H,BARSLAST(FG0))>REF(H,BARSLAST(GZ2)) ANDBARSLAST(DZ2)>BARSLAST(GZ2));

DZ3:=DZ2 OR (FD0 AND REF(L,BARSLAST(FD0))BARSLAST(DZ2));{DRAWICON(D2X,L,1);}NN:=GZ3;UU:=DZ3;L1:DRAWLINE(UU,L,NN, H,0),COLORRED;L2:DRAWLINE(NN,H,UU, L,0),COLORYELLOW;DN:=IF (PERIOD=0,1,IF(PERIOD=1,1.001,IF(PERIOD<5,1.002,IF (PERIOD=5,1.01,1.02))));

DRAWNUMBER(L1 AND L2 AND NN ,H*DN,H),COLORLIRED;DRAWNUMBER(L1 AND L2 AND UU,L,L),COLORLIMAGENTA;