通达信天堂分笔主图指标公式

老笔:=0;
G:=MA(C5);D:=MA(C10);
HH:=REF(H5)=HHV(H11);
LL:=REF(L5)=LLV(L11);
FG01:=BACKSET(HH6)>BACKSET(HH5) ;
FD01:=BACKSET(LL6)>BACKSET(LL5) ;
FG02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND G>DFG01
IF(BARSLAST(FD01)>BARSLAST(FG01)FG010));
FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND D>GFD01
IF(BARSLAST(FG01)>BARSLAST(FD01)FD010));
FG0:=FG02 AND H=HHV(HBARSLAST(FD02));
FD0:=FD02 AND L=LLV(LBARSLAST(FG02));
GP:IF(FG0HDRAWNULL)CIRCLEDOTCOLORCYAN;
DP:IF(FD0LDRAWNULL)CIRCLEDOTCOLORCYAN;
GQ:=L>REF(H1) AND DAY!=REF(DAY1);
DQ:=H<REF(L1) AND DAY!=REF(DAY1);
GQL:=REF(LBARSLAST(GQ));
DQH:=REF(HBARSLAST(DQ));
FGH:=REF(HBARSLAST(FG0));
FGL:=REF(LBARSLAST(FG0));
FGH1:=REF(HBARSLAST(FG0)+1);
FGL1:=REF(LBARSLAST(FG0)+1);
FGH2:=REF(HBARSLAST(FG0)+2);
FGL2:=REF(LBARSLAST(FG0)+2);
FDH:=REF(HBARSLAST(FD0));
FDL:=REF(LBARSLAST(FD0));
FDH1:=REF(HBARSLAST(FD0)+1);
FDL1:=REF(LBARSLAST(FD0)+1);
FDH2:=REF(HBARSLAST(FD0)+2);
FDL2:=REF(LBARSLAST(FD0)+2);
FGZH:=IF(FGL<=FGL1FGH2FGH1);
FGZL:=IF(FGH1<FGLFGLIF(FGL<=FGL1FGL2FGL1));
FDZH:=IF(FDL1>FDHFDHIF(FDH>=FDH1FDH2FDH1));
FDZL:=IF(FDH>=FDH1FDL2FDL1);
FG1:=FGH>FDZH AND FG0;
FD1:=FDL<FGZL AND FD0;
FG:=FG1 AND FGH>FDH AND FGL>FDL AND FGL1>FDL;
FD:=FD1 AND FDL<FGL AND FDH<FGH AND FDH1<FGH;
BH0:=(H<=REF(H1) AND L>=REF(L1)) OR (H>=REF(H1) AND L<=REF(L1));
BHG:=COUNT(BH0BARSLAST(FD0));
BHD:=COUNT(BH0BARSLAST(FG0));
BGQ:=COUNT(GQBARSLAST(FD0));
BDQ:=COUNT(DQBARSLAST(FG0));
BK0:=IF(BHG>0BHG+2+老笔IF(BHDBHD+2+老笔3));
BK:=IF(BGQBK0-BGQIF(BDQBK0-BDQBK0));
G1X:=(FG AND BARSLAST(FD)>BK);
D1X:=(FD AND BARSLAST(FG)>BK);
G1:=(FG0 AND REF(HBARSLAST(FG0))>=REF(HBARSLAST(G1X)) AND BARSLAST(D1X)>BARSLAST(G1X))
OR (FG1 AND COUNT(GQBARSLAST(FD1))>0 AND REF(HBARSLAST(FG1))>REF(HBARSLAST(G1X)));
D1:=(FD0 AND REF(LBARSLAST(FD0))<=REF(LBARSLAST(D1X)) AND BARSLAST(G1X)>BARSLAST(D1X))
OR (FD1 AND COUNT(DQBARSLAST(FG1))>0 AND REF(LBARSLAST(FD1))<REF(HBARSLAST(D1X)));
G1H:=IF(BARSLAST(D1)>BARSLAST(G1)REF(HBARSLAST(G1))REF(HBARSLAST(D1)));
D1L:=IF(BARSLAST(G1)>BARSLAST(D1)REF(LBARSLAST(D1))REF(LBARSLAST(G1)));
G2:=G1 AND H=HHV(G1HBARSLAST(D1)+1) AND H>REF(H1) AND BARSLAST(D1)>BARSLAST(G1);
D2:=D1 AND L=LLV(D1LBARSLAST(G1)+1) AND L<REF(L1) AND BARSLAST(G1)>BARSLAST(D1);
G3:=G2 OR (FG0 AND REF(HBARSLAST(FG0))>REF(HBARSLAST(G2)) AND BARSLAST(D2)>BARSLAST(G2));
D3:=D2 OR (FD0 AND REF(LBARSLAST(FD0))<REF(LBARSLAST(D2)) AND BARSLAST(G2)>BARSLAST(D2));
GPB:IF(G1XHDRAWNULL)CIRCLEDOTCOLORYELLOW;
DPB:IF(D1XLDRAWNULL)CIRCLEDOTCOLORYELLOW;
{画线}
NN:=G3;UU:=D3;
L1:DRAWLINE(UULNN H0)COLORLIGREEN;L2:DRAWLINE(NNHUU L0)COLORLIGREEN;
{标示端点数值}
{DRAWNUMBER(L1 AND L2 AND NN HH)COLORLIRED;DRAWNUMBER(L1 AND L2 AND UU LL)COLORLIMAGENTA;};
{【天堂分笔】-接近完美的通达信分笔公式
2011-8-28地藏
最终版
说明：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
参数：老笔＝1，使用老笔定义，默认为0，使用新笔定义
缺口：反向缺口不破前笔，只看成一根K线
包含：使用近似算法可处理80%的情况
运行环境：需要通达信内核为5.68以上
}