通达信行业指数 特殊顶底分型信号提示副图指标公式源码

特殊顶 是 顶分型右包含关系;
特殊顶2 是 顶分型左包含关系;
特殊顶3 是 顶分型包含4根关系

特殊底 是 底分型包含关系;
底 是 底分型上破5日线;
底3 是 底分型上破3日线;
底5 是 底分型上破5日线;

A:=REF(HY_INDEXC,1);
涨幅:IF(A 0,(HY_INDEXC-A)*100/A,0),NODRAW;
HYDB:DRAWKLINE(HY_INDEXH,HY_INDEXO,HY_INDEXL,HY_INDEXC);

MA3:=MA(HY_INDEXC,3);
MA5:=MA(HY_INDEXC,5);
H1:=HY_INDEXH;
L1:=HY_INDEXL;
C1:=HY_INDEXC;
O1:=HY_INDEXO;
V1:=HY_INDEXV;
多引用:=CALCSTOCKINDEX(HYZSCODE,'多空引用',1),NODRAW;{多引用}
空引用:=CALCSTOCKINDEX(HYZSCODE,'多空引用',2),NODRAW;{空引用}

指数低点:=EMA(EMA((H1+L1+O1+C1)/4,5),5)*0.965,DOTLINE,COLORLIMAGENTA;
指数顶点:=EMA(EMA((H1+L1+O1+C1)/4,5),5)*1.035,DOTLINE,COLORLIGREEN;

顶5:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND H1 REF(H1,1) AND REF(H1,1) REF(H1,2) AND REF(H1,1) H1 AND C1 MA5 AND REF(C1 多引用,1) AND REF(HHV(H1,7),2) REF(H1,1),NODRAW ;
顶3:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND H1 REF(H1,1) AND REF(H1,1) REF(H1,2) AND REF(H1,1) H1 AND C1 MA3 AND REF(C1 多引用,1) AND REF(HHV(H1,7),2) REF(H1,1),NODRAW ;
顶:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND H1 =REF(H1,1) AND REF(H1,1) REF(H1,2) AND REF(H1,1) H1 AND REF(C1 多引用,1) AND REF(HHV(H1,7),2) =REF(H1,1) ;

大顶:=IF(顶5=1 AND 顶3=1 AND 顶=1,顶5,DRAWNULL);
DRAWTEXT(大顶,H1*1.005,'大顶'), COLORGREEN;
次顶:=IF(顶5=0 AND 顶3=1 AND 顶=1,顶3,DRAWNULL);
DRAWTEXT(次顶,H1*1.005,'顶3'), COLORGREEN;
小顶:=IF(顶5=0 AND 顶3=0 AND 顶=1,顶,DRAWNULL);
DRAWTEXT(小顶,H1*1.005,'顶'), COLORGREEN;

特殊顶:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND REF(L1,2) REF(L1,3) AND H1 REF(H1,2) AND REF(H1,1) REF(H1,2) AND REF(HHV(H1,7),3) REF(H1,2);
DRAWTEXT(特殊顶,H1*1.005,'特殊顶'),COLORCYAN; {顶分型右包含关系};

特殊顶2:=L1 REF(L1,2) AND REF(L1,2) REF(L1,3) AND REF(L1,1) REF(L1,2) AND REF(H1,1) H1 AND REF(H1,1) REF(H1,2) AND REF(H1,2) REF(H1,3) AND REF(HHV(H1,7),2) REF(H1,1);
DRAWTEXT(特殊顶2,H1*1.005,'特殊顶2'),COLORCYAN; {顶分型左包含关系};

特殊顶3:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND REF(L1,2) REF(L1,3) AND REF(L1,3) REF(L1,4) AND H1 REF(H1,3) AND REF(H1,1) REF(H1,3) AND REF(H1,2) REF(H1,3) AND REF(H1,3) REF(H1,4) AND REF(HHV(H1,7),4) REF(H1,3);
DRAWTEXT(特殊顶3,H1*1.005,'特殊顶3'),COLORCYAN; {顶分型包含4根关系};

底5:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND H1 REF(H1,1) AND REF(H1,1) REF(H1,2) AND REF(H1,1) H1 AND C1 MA5 AND REF(C1 空引用,1) AND REF(LLV(L1,7),2) REF(L1,1) AND C1 REF(C1,1) AND C1 REF(O1,1);
DRAWTEXT(底5,L1*0.992,'底5'),COLORRED; {底分型上破5日线}

底3:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND H1 REF(H1,1) AND REF(H1,1) REF(H1,2) AND REF(H1,1) H1 AND C1 MA3 AND REF(C1 空引用,1) AND REF(LLV(L1,7),2) REF(L1,1) AND C1 REF(C1,1) AND C1 REF(O1,1);
DRAWTEXT(底3,L1*0.992,'底3'),COLORRED; {底分型上破3日线}

底:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND H1 REF(H1,1) AND REF(H1,1) REF(H1,2) AND REF(H1,1) H1 AND REF(C1 空引用,1) AND REF(LLV(L1,7),2) REF(L1,1) AND C1 REF(C1,1) AND C1 REF(O1,1);
DRAWTEXT(底,L1*0.992,'底'),COLORRED; {底分型上破5日线}

特殊底:=L1 REF(L1,1) AND REF(L1,1) REF(L1,2) AND REF(L1,2) REF(L1,3) AND H1 REF(H1,1) AND REF(H1,1) REF(H1,2) AND REF(LLV(L1,7),3) REF(L1,2);
DRAWTEXT(特殊底,L1*0.992,'特殊底'),COLORYELLOW; {底分型包含关系};

{抛物线}
抛物线:=CALCSTOCKINDEX(HYZSCODE,'抛物线值引用',1),NODRAW;
空:IF(抛物线 =H1,抛物线,DRAWNULL),COLORWHITE,DOTLINE;
多:IF(抛物线 =L1,抛物线,DRAWNULL),COLORMAGENTA,DOTLINE;

抛物线2:=CALCSTOCKINDEX(HYZSCODE,'抛物线值引用',2),NODRAW;
空2:=IF(抛物线2 =H1,抛物线2,DRAWNULL),COLORWHITE;
多2:=IF(抛物线2 =L1,抛物线2,DRAWNULL),COLORMAGENTA;

行业转多天数:=CALCSTOCKINDEX(HYZSCODE,'多空天数引用',1),NODRAW;
行业转空天数:=CALCSTOCKINDEX(HYZSCODE,'多空天数引用',2),NODRAW;
DRAWTEXT_FIX(1,0.915,0.9,0,'注:行业指数展示'),COLORYELLOW;

行业破3:=CALCSTOCKINDEX(HYZSCODE,'跌破引用',1),NODRAW;
行业破5:=CALCSTOCKINDEX(HYZSCODE,'跌破引用',2),NODRAW;
走弱3:IF(行业破3=3,H1*1.02,DRAWNULL),CIRCLEDOT,COLORGREEN;{介于3 5画线};
走弱5:IF(行业破5=5,H1*1.02,DRAWNULL),CIRCLEDOT,COLORBLUE;

行业上3:=CALCSTOCKINDEX(HYZSCODE,'跌破引用',5),NODRAW;
走强3:IF(行业上3=3,L1*0.98,DRAWNULL),CIRCLEDOT,COLORLIRED;

{行业模型信号引用}
行业多引用:=CALCSTOCKINDEX(HYZSCODE,'波段多引用5',3),NODRAW;{行业首次转多}
STICKLINE(行业多引用,C1,O1,0.8,0),COLORYELLOW;
行业空引用:=CALCSTOCKINDEX(HYZSCODE,'波段空引用5',3),NODRAW;{行业首次转空}
STICKLINE(行业空引用,C1,O1,0.8,0),COLORGREEN;

{阳胜，阴胜}
双阳胜:=C1 REF(O1,1) AND REF(C1 O1,1) AND V1 REF(V1,1);
阳胜:=C1 REF(C1,1) AND REF(C1 O1,1) AND C1 REF(O1,1) AND V1 REF(V1,1);
量胜:=C1 REF(C1,1) AND REF(C1 O1,1) AND V1 REF(V1,1) AND REF(O1,1)
单阳胜:=IF(阳胜 OR 量胜,1,0);

STICKLINE((双阳胜) AND BETWEEN(C,0,4000),O1,O1+(C1-O1)/10,3,0),COLORMAGENTA;
STICKLINE((单阳胜) AND BETWEEN(C,0,4000),O1+(C1-O1)/3,O1+(C1-O1)/3,3,0),COLORMAGENTA;

双阴胜:=C1 REF(O1,1) AND REF(C1 O1,1) AND V1 REF(V1,1);
价阴胜:=REF(C1 O1,1) AND C1 REF(O1,1) AND V1 REF(V1,1);
量阴胜:=REF(C1 O1,1) AND C1 REF(O1,1) AND V1 REF(V1,1) AND C1 O1 AND C1 REF(C1,1);
单阴胜:=IF(价阴胜 OR 量阴胜,1,0);

STICKLINE((双阴胜) AND BETWEEN(C1,0,4000),O1,O1+(C1-O1)/10,3,0),COLORBLUE;
STICKLINE((单阴胜) AND BETWEEN(C1,0,4000),O1+(C1-O1)/2,O1+(C1-O1)/2,3,0),COLORBLUE;