通达信做基础—做一个源码副图

DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);     DEA1:=EMA(DIF1,9);

DIA:DIF1*15; IF(DIA>=0,DIA,DRAWNULL)COLORLIMAGENTA,LINETHICK4;      DIB:DEA1*15;

DRAWBAND(DIA,RGB(500,280,180),DIB,RGB(500,180,280));

{www.gszb.com柱状线}

AAA1:=(DIF1-DEA1)*2*60;                  

AAA12:=((DIF1-DEA1)*2*60)/2;

AAA上:IF(AAA12>REF(AAA12,1),AAA12,DRAWNULL),STICK,COLORLIRED,LINETHICK1;

AAA下:IF(AAA12<REF(AAA12,1),AAA12,DRAWNULL),STICK,COLORYELLOW,LINETHICK1;

买入线:15,COLORWHITE,DOTLINE;  买出线:-15,COLORWHITE,DOTLINE;  -8,COLORWHITE,DOTLINE;  8,COLORWHITE,DOTLINE;

判研:AAA1-REF(AAA1,1),COLORLIGRAY,LINETHICK2;

DRAWICON(CROSS(判研,14.5),买入线,1);

DRAWICON(CROSS(-14.5,判研),-15,2);

{www.gszb.com判研8:=IF(判研<=ABS(判研,8),-10,-8)COLORLIMAGENTA LINETHICK2;}

绝对值:=((判研<=8) AND (判研>=-8));

统计8:= COUNT(绝对值,89)>=60;

IF(判研<=-8,判研,DRAWNULL),COLORGREEN,LINETHICK2;

IF(判研>=8,判研,DRAWNULL),COLORRED,LINETHICK2;

重心:=(C+0.618*REF(C,1)+0.382*REF(C,1)+0.236*REF(C,3)+0.146*REF(C,4))/2.382; 

操盘线:=EMA(((SLOPE(C,22)*20)+C),55),COLORYELLOW,LINETHICK3;

DRAWICON(CROSS(判研,7.5),17,27);

DRAWICON((CROSS(判研,7.5) AND (H>=操盘线 AND L<=操盘线 AND 重心>=操盘线 ))

OR 判研>=18,22,26);