CLG:=ma(C,5);
CLD:=MA(C,10);
CLHH:=REF(H,5)=HHV(H,11);
CLLL:=REF(L,5)=LLV(L,11);
CLFG01:=BacKSET(CLHH,6)>BACKSET(CLHH,5) ;
CLFD01:=BACKSET(CLLL,6)>BACKSET(CLLL,5) ;
CLFG02:=IF(BArslAST(CLFG01)=BARSLAST(CLFD01) AND CLG>CLD,CLFG01,
IF(BARSLAST(CLFD01)>BARSLAST(CLFG01),CLFG01,0));
CLFD02:=IF(BARSLAST(CLFG01)=BARSLAST(CLFD01) AND CLD>CLG,CLFD01,
IF(BARSLAST(CLFG01)>BARSLAST(CLFD01),CLFD01,0));
CLFG0:=CLFG02 AND H=HHV(H,BARSLAST(CLFD02));
CLFD0:=CLFD02 AND L=LLV(L,BARSLAST(CLFG02));
CLGP:=IF(CLFG0,H,DRAWNULL),CIRCLEDOT,COLORGREEN;
CLDP:=IF(CLFD0,L,DRAWNULL),CIRCLEDOT,COLORGREEN;
CLGQ:=L>REF(H,1) AND DAY!=REF(DAY,1);
CLDQ:=H<REF(L,1) AND DAY!=REF(DAY,1);
CLGQL:=REF(L,BARSLAST(CLGQ));
CLDQH:=REF(H,BARSLAST(CLDQ));
CLFGH:=REF(H,BARSLAST(CLFG0));
CLFGL:=REF(L,BARSLAST(CLFG0));
CLFGH1:=REF(H,BARSLAST(CLFG0)+1);
CLFGL1:=REF(L,BARSLAST(CLFG0)+1);
CLFGH2:=REF(H,BARSLAST(CLFG0)+2);
CLFGL2:=REF(L,BARSLAST(CLFG0)+2);
CLFDH:=REF(H,BARSLAST(CLFD0));
CLFDL:=REF(L,BARSLAST(CLFD0));
CLFDH1:=REF(H,BARSLAST(CLFD0)+1);
CLFDL1:=REF(L,BARSLAST(CLFD0)+1);
CLFDH2:=REF(H,BARSLAST(CLFD0)+2);
CLFDL2:=REF(L,BARSLAST(CLFD0)+2);
CLFGZH:=IF(CLFGL<=CLFGL1,CLFGH2,CLFGH1);
CLFGZL:=IF(CLFGH1<CLFGL,CLFGL,IF(CLFGL<=CLFGL1,CLFGL2,CLFGL1));
CLFDZH:=IF(CLFDL1>CLFDH,CLFDH,IF(CLFDH>=CLFDH1,CLFDH2,CLFDH1));
CLFDZL:=IF(CLFDH>=CLFDH1,CLFDL2,CLFDL1);
CLFG1:=CLFGH>CLFDZH AND CLFG0;
CLFD1:=CLFDL<CLFGZL AND CLFD0;
CLFG:=CLFG1 AND CLFGH>CLFDH AND CLFGL>CLFDL AND CLFGL1>CLFDL;
CLFD:=CLFD1 AND CLFDL<CLFGL AND CLFDH<CLFGH AND CLFDH1<CLFGH;
CLBH0:=(H<=REF(H,1) AND L>=REF(L,1)) OR (H>=REF(H,1) AND L<=REF(L,1));
CLBHG:=COUNT(CLBH0,BARSLAST(CLFD0));
CLBHD:=COUNT(CLBH0,BARSLAST(CLFG0));
CLBGQ:=COUNT(CLGQ,BARSLAST(CLFD0));
CLBDQ:=COUNT(CLDQ,BARSLAST(CLFG0));
CLBK0:=IF(CLBHG>0,CLBHG+2+1,IF(CLBHD,CLBHD+2+1,3));
CLBK:=IF(CLBGQ,CLBK0-CLBGQ,IF(CLBDQ,CLBK0-CLBDQ,CLBK0));
CLG1X:=(CLFG AND BARSLAST(CLFD)>CLBK);
CLD1X:=(CLFD AND BARSLAST(CLFG)>CLBK);
CLG1:=(CLFG0 AND REF(H,BARSLAST(CLFG0))>=REF(H,BARSLAST(CLG1X)) AND BARSLAST(CLD1X)>BARSLAST(CLG1X)) OR (CLFG1 AND COUNT(CLGQ,BARSLAST(CLFD1))>0 AND REF(H,BARSLAST(CLFG1))>REF(H,BARSLAST(CLG1X)));
CLD1:=(CLFD0 AND REF(L,BARSLAST(CLFD0))<=REF(L,BARSLAST(CLD1X)) AND BARSLAST(CLG1X)>BARSLAST(CLD1X)) OR (CLFD1 AND COUNT(CLDQ,BARSLAST(CLFG1))>0 AND REF(L,BARSLAST(CLFD1))<REF(H,BARSLAST(CLD1X)));
CLG1H:=IF(BARSLAST(CLD1)>BARSLAST(CLG1),REF(H,BARSLAST(CLG1)),REF(H,BARSLAST(CLD1))),;
CLD1L:=IF(BARSLAST(CLG1)>BARSLAST(CLD1),REF(L,BARSLAST(CLD1)),REF(L,BARSLAST(CLG1)));
CLG2:=CLG1 AND H=HHV(CLG1H,BARSLAST(CLD1)+1) AND H>REF(H,1) AND BARSLAST(CLD1)>BARSLAST(CLG1);
CLD2:=CLD1 AND L=LLV(CLD1L,BARSLAST(CLG1)+1) AND L<REF(L,1) AND BARSLAST(CLG1)>BARSLAST(CLD1);
CLG3:=CLG2 OR (CLFG0 AND REF(H,BARSLAST(CLFG0))>REF(H,BARSLAST(CLG2)) AND BARSLAST(CLD2)>BARSLAST(CLG2));
CLD3:=CLD2 OR (CLFD0 AND REF(L,BARSLAST(CLFD0))<REF(L,BARSLAST(CLD2)) AND BARSLAST(CLG2)>BARSLAST(CLD2));
CLGPB:=IF(CLG1X,H,DRAWNULL),CIRCLEDOT,COLORBLUE;
CLDPB:=IF(CLD1X,L,DRAWNULL),CIRCLEDOT,COLORBLUE;
{画线}
CLNN:=CLG3;
CLUU:=CLD3;
DRAWLINE(CLUU,L,CLNN, H,0),COLORBLUE,DOTLINE;
DRAWLINE(CLNN,H,CLUU, L,0),COLORRED,DOTLINE;{缠论中枢};
