机构专用，自动画顶底分型指标源码

主图指标 通达信

机构专用，自动画顶底分型指标源码

M20:MA(C,20),COLORMAGENTA,LINETHICK2;
判:IF(M20 REF(HHV(H,4),1),4);
顶部信号确认:=BACKSET(顶部信号初判=0 AND REF(顶部信号初判,1)=1,2);
顶部信号:=IF(顶部信号确认=1 AND REF(顶部信号确认,1)=0,1,0);
区间方向:=IF(L>REF(H,1),1,IF(HREF(距底天数,1) AND LLV(L,距顶天数+1)=4 OR LLV(区间方向,距顶天数)=-1 OR LLV(L,距底天数+2)REF(HHV(H,55),1);
新低:=L=LLV(L,55) AND LLV(L,55)REF(最低区间,距底天数+1) AND 最高区间>REF(最低区间,距底天数) AND 最高区间>REF(最高区间,距顶天数),1,0);
顶突破A:=IF(顶部信号=1 AND REF(距底天数,1)>REF(距底天数,1) AND HHV(H,距底天数+1)>REF(HHV(H,距底天数+1),1),1,0);
顶突破B:=IF(顶部信号=1 AND REF(距底天数,1)<=REF(距底天数,1) AND REF(底分型,距底天数)=-1 AND (距底天数>=4 OR HHV(区间方向,距底天数)=1),1,0);
顶信号1:=IF((顶确认=1 OR 顶突破A=1 OR 顶突破B=1) AND H>REF(L,距底天数+1),1,0);
底过滤:=IF((距顶天数<4 AND HHV(区间方向,距顶天数)!=1) OR REF(顶信号1,距顶天数)=0,1,0);
底确认:=IF(底部信号=-1 AND REF(距顶天数,1)<=REF(距底天数,1) AND 底过滤=1 AND 最低区间>REF(最高区间,距顶天数+1) AND 最低区间>REF(最高区间,距顶天数) AND 最低区间>REF(最低区间,距底天数),-1,0);
底突破A:=IF(底部信号=-1 AND REF(距顶天数,1)>REF(距底天数,1) AND LLV(L,距顶天数+1)=4 OR LLV(区间方向,距顶天数)=-1 OR 底确认=-1),-1,0);
底信号1:=IF((底突破A=-1 OR 底突破B=-1) AND LREF(最低区间,距底天数1+1) AND 最高区间>REF(最低区间,距底天数1) AND 最高区间>REF(最高区间,距顶天数1),1,0);
顶突破A1:=IF(顶部信号=1 AND REF(距底天数1,1)>REF(距底天数1,1) AND HHV(H,距底天数1+1)>REF(HHV(H,距底天数1+1),1),1,0);
顶突破B1:=IF(顶部信号=1 AND REF(距底天数1,1)<=REF(距底天数1,1) AND REF(底信号1,距底天数1)=-1 AND (距底天数1>=4 OR HHV(区间方向,距底天数1)=1),1,0);
顶信号2:=IF((顶确认1=1 OR 顶突破A1=1 OR 顶突破B1=1) AND H>REF(L,距底天数1+1),1,0);
底过滤1:=IF((距顶天数1<4 AND HHV(区间方向,距顶天数1)!=1) OR REF(顶信号1,距顶天数1)=0,1,0);
底确认1:=IF(底部信号=-1 AND REF(距顶天数1,1)<=REF(距底天数1,1) AND 底过滤1=1 AND 最低区间>REF(最高区间,距顶天数1+1) AND 最低区间>REF(最高区间,距顶天数1) AND 最低区间>REF(最低区间,距底天数1),-1,0);
底突破A1:=IF(底部信号=-1 AND REF(距顶天数1,1)>REF(距底天数1,1) AND LLV(L,距顶天数1+1)=4 OR LLV(区间方向,距顶天数1)=-1 OR 底确认1=-1),-1,0);
底信号2:=IF((底突破A1=-1 OR 底突破B1=-1) AND LREF(最低区间,距底天数2+1) AND 最高区间>REF(最低区间,距底天数2) AND 最高区间>REF(最高区间,距顶天数2),1,0);
顶突破A2:=IF(顶部信号=1 AND REF(距底天数2,1)>REF(距底天数2,1) AND HHV(H,距底天数2+1)>REF(HHV(H,距底天数2+1),1),1,0);
顶突破B2:=IF(顶部信号=1 AND REF(距底天数2,1)<=REF(距底天数2,1) AND REF(底信号2,距底天数2)=-1 AND (距底天数2>=4 OR HHV(区间方向,距底天数2)=1),1,0);
顶信号3:=IF((顶确认2=1 OR 顶突破A2=1 OR 顶突破B2=1) AND H>REF(L,距底天数2+1),1,0{量化社区：WWW.GUSHI.IN});
底过滤2:=IF((距顶天数2<4 AND HHV(区间方向,距顶天数2)!=1) OR REF(顶信号2,距顶天数2)=0,1,0);
底确认2:=IF(底部信号=-1 AND REF(距顶天数2,1)<=REF(距底天数2,1) AND 底过滤2=1 AND 最低区间>REF(最高区间,距顶天数2+1) AND 最低区间>REF(最高区间,距顶天数2) AND 最低区间>REF(最低区间,距底天数2),-1,0);
底突破A2:=IF(底部信号=-1 AND REF(距顶天数2,1)>REF(距底天数2,1) AND LLV(L,距顶天数2+1)=4 OR LLV(区间方向,距顶天数2)=-1 OR 底确认2=-1),-1,0);
底信号3:=IF((底突破A2=-1 OR 底突破B2=-1) AND LREF(H,REF(距顶天数2,1)+2),1,IF(顶信号3=1 AND 底信号3=-1 AND L转折高点1值 AND 转折低点2确认>转折高点1天数 AND 转折高点1天数>转折低点1天数 AND 转折高点2>转折低点2确认 AND CONST(C)>转折低点2值;
画线起点A:=IF(信号分类A AND CONST(C)<转折高点1值,转折高点2确认,DRAWNULL);
画线终点A:=IF(信号分类A AND CONST(C)<转折高点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点A,CONST(C),转折低点2值,0,0),COLORLIMAGENTA;
STICKLINE(画线终点A,CONST(C),转折低点2值,0,0),COLORLIMAGENTA;
DRAWLINE(画线起点A=1,CONST(C),画线终点A=1,CONST(C),0),DOTLINE,COLORLIMAGENTA;
DRAWLINE(画线起点A=1,转折低点2值,画线终点A=1,转折低点2值,0),COLORLIMAGENTA;
画线起点B:=IF(信号分类A AND CONST(C)>=转折高点1值,转折高点2确认,DRAWNULL);
画线终点B:=IF(信号分类A AND CONST(C)>=转折高点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点B,转折高点1值,转折低点1值,0,0),COLORLIMAGENTA;
STICKLINE(画线终点B,转折高点1值,转折低点1值,0,0),COLORLIMAGENTA;
DRAWLINE(画线起点B=1,转折高点1值,画线终点B=1,转折高点1值,0),COLORLIMAGENTA;
DRAWLINE(画线起点B=1,转折低点1值,画线终点B=1,转折低点1值,0),COLORLIMAGENTA;
信号分类B:=转折低点1值>转折低点2值 AND 转折高点1值>转折高点2值 AND 转折低点1天数>转折高点1天数 AND 转折高点2>转折低点1天数 AND 转折低点2确认>转折高点2 AND CONST(C)<转折低点2值;
画线起点C:=IF(信号分类B AND CONST(C)>转折低点1值,转折高点2确认,DRAWNULL);
画线终点C:=IF(信号分类B AND CONST(C)>转折低点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点C,CONST(C),转折高点2值,0,0),COLORGREEN;
STICKLINE(画线终点C,CONST(C),转折高点2值,0,0),COLORGREEN;
DRAWLINE(画线起点C=1,转折高点2值,画线终点C=1,转折高点2值,0),COLORGREEN;
DRAWLINE(画线起点C=1,CONST(C),画线终点C=1,CONST(C),0),DOTLINE,COLORGREEN;
画线起点D:=IF(信号分类B AND CONST(C)<=转折低点1值,转折高点2确认,DRAWNULL);
画线终点D:=IF(信号分类B AND CONST(C)<=转折低点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点D,转折高点2值,转折低点1值,0,0),COLORGREEN;
STICKLINE(画线终点D,转折高点2值,转折低点1值,0,0),COLORGREEN;
DRAWLINE(画线起点D=1,转折高点2值,画线终点D=1,转折低点1值,0),COLORGREEN;
DRAWLINE(画线起点D=1,转折低点1值,画线终点D=1,转折低点1值,0),COLORGREEN;
信号分类C:=转折低点1值>转折低点2值 AND 转折高点2值>转折高点1值 AND 转折低点2确认>转折高点1天数 AND 转折高点1天数>转折低点1天数 AND 转折高点2>转折低点2确认 AND CONST(C)>转折低点1值;
画线起点E:=IF(信号分类C AND CONST(C)<转折高点1值,转折高点2确认,DRAWNULL);
画线终点E:=IF(信号分类C AND CONST(C)<转折高点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点E,CONST(C),转折低点1值,0,0),COLORYELLOW;
STICKLINE(画线终点E,CONST(C),转折低点1值,0,0),COLORYELLOW;
DRAWLINE(画线起点E=1,CONST(C),画线终点E=1,CONST(C),0),DOTLINE,COLORYELLOW;
DRAWLINE(画线起点E=1,转折低点1值,画线终点E=1,转折低点1值,0),COLORYELLOW;
画线起点F:=IF(信号分类C AND CONST(C)>=转折高点1值,转折高点2确认,DRAWNULL);
画线终点F:=IF(信号分类C AND CONST(C)>=转折高点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点F,转折高点1值,转折低点1值,0,0),COLORYELLOW;
STICKLINE(画线终点F,转折高点1值,转折低点1值,0,0),COLORYELLOW;
DRAWLINE(画线起点F=1,转折高点1值,画线终点F=1,转折高点1值,0),COLORYELLOW;
DRAWLINE(画线起点F=1,转折低点1值,画线终点F=1{量化社区：WWW.GUSHI.IN},转折低点1值,0),COLORYELLOW;
信号分类D:=转折低点1值>转折低点2值 AND 转折高点1值<转折高点2值 AND 转折低点1天数>转折高点1天数 AND 转折高点2>转折低点1天数 AND 转折低点2确认>转折高点2 AND CONST(C)<转折高点1值;
画线起点G:=IF(信号分类D AND CONST(C)>转折低点1值,转折高点2确认,DRAWNULL);
画线终点G:=IF(信号分类D AND CONST(C)>转折低点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点G,CONST(C),转折高点1值,0,0),COLORLICYAN;
STICKLINE(画线终点G,CONST(C),转折高点1值,0,0),COLORLICYAN;
DRAWLINE(画线起点G=1,转折高点1值,画线终点G=1,转折高点1值,0),COLORLICYAN;
DRAWLINE(画线起点G=1,CONST(C),画线终点G=1,CONST(C),0),DOTLINE,COLORLICYAN;
画线起点H:=IF(信号分类D AND CONST(C)<=转折低点1值,转折高点2确认,DRAWNULL);
画线终点H:=IF(信号分类D AND CONST(C)<=转折低点1值,ISLASTBAR,DRAWNULL);
STICKLINE(画线起点H,转折高点1值,转折低点1值,0,0),COLORLICYAN;
STICKLINE(画线终点H,转折高点1值,转折低点1值,0,0),COLORLICYAN;
DRAWLINE(画线起点H=1,转折高点1值,画线终点H=1,转折低点1值,0),COLORLICYAN;
DRAWLINE(画线起点H=1,转折低点1值,画线终点H=1,转折低点1值,0),COLORLICYAN;
PL10:=ZIG(3,10);
EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3);
EX2:=PL10=REF(PL10,2) AND REF(PL10,2)>=REF(PL10,3);
PL20:=ZIG(3,20);
EN3:=PL20>REF(PL20,1) AND REF(PL20,1)<=REF(PL20,2) AND REF(PL20,2)<=REF(PL20,3);
走强3:=BARSLAST(PL20REF(PL20,1));
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);
DTJZ10:=IF(PL20REF(PL20,1) AND ZTJD10=1,H*1.03,'[2卖]'),LINETHICK2,COLORFFFFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.97,'[2买]'),LINETHICK2,COLORFFFFFF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.03,'[1卖]'),LINETHICK3,COLORFFFFFF;