通达信机构专用指标附图

以下是通达信机构专用指标源码

通达信机构专用指标源码：

   HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);

   T:=HHVBARS(HH,0);

   TT:=BArslAst(L=LLV(L,T+1));

   T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);

   XL:=REFX(L,BARSNEXT(T1=0));

   亏损:(REF(C,TT)-REF(C,T+1))/REF(C,T+1)*100NODRAW;

   ZF:=(C-REF(C,T+1))/REF(C,T+1)*100;

   回本:ZFCOLORmaGENTA,NODRAW;

   高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;

   NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.382+XL,ISLASTBAR,REF((HH-XL)*0.382+XL,T),0),DOTLINE,COLORGREEN;

   NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.618+XL,ISLASTBAR,REF((HH-XL)*0.618+XL,T),0),DOTLINE,COLORLIMAGENTA;

   低位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,XL,ISLASTBAR,REF(L,T1),0),COLORRED;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT1*1.04,VARCAT(VARCAT('第一阻力：',VAR2STR(NOTEXT1,2)),'元')),COLORGREEN;

   DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT2*1.04,VARCAT(VARCAT('第二阻力：',VAR2STR(NOTEXT2,2)),'元')),COLORLIMAGENTA;

   {

   选股公式:

   HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);

   T:=HHVBARS(HH,0);

   TT:=BARSLAST(L=LLV(L,T+1));

   T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);

   H1:=REF(H,T);

   H2:=(REF(H,T)-REF(L,T1))*0.382+REF(L,T1);

   H3:=(REF(H,T)-REF(L,T1))*0.618+REF(L,T1);

   XG:crOSS(C,H1)ORCROSS(C,H2)ORCROSS(C,H3);

   }

   MACD2:=2*("MACD.DIF"-"MACD.DEA");

   (CLOSE<0ANDCROSS("MACD.DIF",0),H*1.3),COLOR000080,NODRAW;

   (CLOSE<0ANDCROSS(MACD2,0),H*1.3),COLOR000080,NODRAW;

   (CLOSE<0ANDCROSS(0,"MACD.DIF"),H*1.3),COLOR808080,NODRAW;

   (CLOSE<0ANDCROSS(0,MACD2),H*1.3),COLOR808080,NODRAW;

   DU0:=CROSS("MACD.DIF",0);

   UD0:=CROSS(0,"MACD.DIF");

   TDU0:=BARSLAST(DU0);

   TUD0:=BARSLAST(UD0);

   DU3:=REF(DU0,1);

   UD3:=REF(UD0,1);

   TDU3:=BARSLAST(DU3);

   TUD3:=BARSLAST(UD3);

   UDGLINE:=IF(TDU3<TUD3,REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));

   JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1)ANDCLOSE>UDGLINEANDTDU0<TUD0;

   JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1)ANDCLOSE<UDGLINEANDTUD0<TDU0;

   JDU1:=JDU0ANDCOUNT(JDU0,TDU0)=1;

   JUD1:=JUD0ANDCOUNT(JUD0,TUD0)=1;

   JDU2:=JDU1ANDREF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);

   JUD2:=JUD1ANDREF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);

   JDU3:=JDU1ANDREF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);

   JUD3:=JUD1ANDREF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);

   BSLINE:=IF(BARSLAST(JDU2)<BARSLAST(JUD2),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));

   STICKLINE(MACD2>=0,0,MACD2,2,1),COLORRED;{0上红空心MACD柱}

   STICKLINE(MACD2>=0ANDMACD2<REF(MACD2,1),0,MACD2,2,0),COLORLIRED;{0上粉红实心柱}

   STICKLINE(MACD2<0,0,MACD2,2,0),COLORCYAN;{0下亮蓝实心柱}

   STICKLINE(MACD2<0ANDMACD2>REF(MACD2,1),0,MACD2,2,1),COLORFF8000;{0下蓝空心MACD柱}

   {--------------图标}

   DEFUT:=BARSLAST(CROSS(MACD2,0));

   DEFDT:=BARSLAST(CROSS(0,MACD2));

   DEFUL:=IF(MACD2>=0,HHV(MACD2,DEFUT+1),REF(HHV(MACD2,DEFUT+1),DEFDT+1));

   DEFDL:=IF(MACD2<0,LLV(MACD2,DEFDT+1),REF(LLV(MACD2,DEFDT+1),DEFUT+1));

   DEFU2L:=REF(DEFUL,DEFUT+1);

   DEFD2L:=REF(DEFDL,DEFDT+1);

   DRAWICON(LLV(MACD2,4)>0ANDMACD2<REF(MACD2,1)ANDREF(MACD2,1)>REF(MACD2,2)ANDREF(MACD2,2)>REF(MACD2,3),MACD2,2);

   DRAWICON(HHV(MACD2,4)<0ANDMACD2>REF(MACD2,1)ANDREF(MACD2,1)<REF(MACD2,2)ANDREF(MACD2,2)<REF(MACD2,3),MACD2,1);

   DRAWICON((JUD1ORBARSLAST(JDU1)>BARSLAST(JUD1))ANDMACD2>=0ANDREF(MACD2,1)<REF(DEFU2L,1)ANDMACD2>DEFU2L,MACD2,5);

   DRAWICON((JDU1ORBARSLAST(JDU1)<BARSLAST(JUD1))ANDMACD2<0ANDREF(MACD2,1)>REF(DEFD2L,1)ANDMACD2<DEFD2L,MACD2,3);

   VAR111:=JDU1ORBARSLAST(JDU1)<BARSLAST(JUD1);

   VAR112:=HHV(MACD2,4)<0ANDMACD2>REF(MACD2,1)ANDREF(MACD2,1)<REF(MACD2,2)ANDREF(MACD2,2)<REF(MACD2,3);

   {DIF和DEA线}

   SHORT:=12;LONG:=26;MID:=9;

   VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);

   OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);

   OBV2:=EMA(OBV1,3)-MA(OBV1,9);

   OBV3:=EMA(IF(OBV2>0,OBV2,0),3);

   MAC3:=MA(C,3);

   DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG)COLORYELLOW,LINETHICK2;{黄线}

   DEA:EMA(DIF,MID)COLORBLUE;{蓝线}

   DIF1:IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLOR8000FF,LINETHICK2;{玫红线}

   DIF2:IF(DIF<REF(DIF,1),DIF,DRAWNULL),COLORFF0080,LINETHICK2;{紫线}

   {金叉和背离的标识}

   低位金叉:=CROSS(DIF,DEA)ANDDIF<-0.1;

   DRAWTEXT(低位金叉,-0.5,'★低位金叉'),COLORWHITE;

   JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));

   二次金叉:=CROSS(DIF,DEA)ANDDEA<0ANDCOUNT(JCCOUNT=2,21)=1;

   DRAWICON(二次金叉,DEA*0.9,1);

   DRAWTEXT(二次金叉,0.5,'★二次金叉'),COLORYELLOW;

   A1:=BARSLAST(REF(CROSS(DIF,DEA),1));

   底背离:=REF(CLOSE,A1+1)>CLOSEANDDIF>REF(DIF,A1+1)ANDCROSS(DIF,DEA);

   DRAWTEXT(底背离,-1,'▲底背离'),COLORFF00FF;

   A2:=BARSLAST(REF(CROSS(DEA,DIF),1));

   顶背离:=REF(CLOSE,A2+1)<CLOSEANDREF(DIF,A2+1)>DIFANDCROSS(DEA,DIF);

   DRAWTEXT(顶背离,1,'●顶背离'),COLORGREEN;

   DRAWTEXT(低位金叉AND二次金叉AND底背离,0,'★三项全能'),COLORYELLOW;

通达信机构专用指标截图