通达信自定义主图指标 MA_QD

MA5:MA(CLOSE,5),COLORBLUE,LINETHICK2;
MA10:MA(CLOSE,10),COLORWHITE,LINETHICK2;
 
{彩色五日均线 10日均线以上}
NOTEXTMAC5:IF(MA5>MA10 AND ((CLOSE>MA5 OR MA5>REF(MA5,1)) OR (CLOSE<MA5 AND MA5>REF(MA5,1)) OR (CLOSE<MA5 AND REF(MA5,1)>REF(MA5,2))),MA5,DRAWNULL),COLORMAGENTA,LINETHICK2;
{10日均线以上股价低于5日均线，深蓝色}
NOTEXTMAC5_1:IF((MA5>MA10 AND ((CLOSE<MA5 OR MA5<REF(MA5,1)) OR (CLOSE>MA5 AND MA5<REF(MA5,1)))) OR (MA5<MA10 AND REF(MA5,1)>REF(MA10,1)),MA5,DRAWNULL),COLORGRAY,LINETHICK3;
{最后交易日，10日均线以上股价低于5日均线，绿色}
NOTEXTMAC5_2:IF(MA5>MA10 AND ((CLOSE<MA5 OR MA5<REF(MA5,1)) OR (CLOSE>MA5 AND MA5<REF(MA5,1))) AND ISLASTBAR,MA5,DRAWNULL),COLORGREEN,LINETHICK2;
{彩色五日均线 10日均线以下}
NOTEXTMAC5_3:IF((MA5<MA10 AND CLOSE>MA5) OR (MA5<MA10 AND MA5>REF(MA5,1)) OR (MA5>MA10 AND REF(MA5,1)<REF(MA10,1)),MA5,DRAWNULL),COLORYELLOW,LINETHICK3;
 
{金叉标记}
DRAWICON(CROSS(MA5,MA10) AND CURRBARSCOUNT<40,IF(LOW<MA5,LOW*0.95,MA5*0.95),38);
 
{死叉标记}
{DRAWICON(CROSS(MA10,MA5) AND CURRBARSCOUNT<40,IF(HIGH>MA10,HIGH*1.05,MA10*1.05),39)};
{DRAWSL(CROSS(MA10,MA5),H*1.03,10000,500,0),COLORGREEN};
 
{收盘价处水平线}
NOTEXTCLOSE:DRAWSL(ISLASTBAR,CLOSE,0,500,2),COLORGRAY;
 
BR_INFO:=STRCAT(STRCAT(CON2STR(COUNT((CLOSE-OPEN)/OPEN>=0.03,100),0),'/'),STRCAT(CON2STR(COUNT((CLOSE-OPEN)/OPEN<=-0.03,100),0),'　'));
DRAWTEXT_FIX(1,1,1,1,BR_INFO),COLORGRAY;
 
{标记是否选定}
DRAWICON(ISLASTBAR AND FINDSTR(ZDBLOCK(),'买'),L*0.95,9);
 
{彩色60日均线}
MA_CLR:=MA(CLOSE,60);{需彩色的均线}
 
{彩色均线，上涨彩色区分}
{本色、底色}
NOTEXTMA:MA_CLR,COLORGREEN,LINETHICK3;
{彩色、替换}
NOTEXTMCLR:IF((MA_CLR>REF(MA_CLR,1) AND (CLOSE>MA_CLR OR (CLOSE<MA_CLR AND REF(CLOSE,1)>REF(MA_CLR,1)))),MA_CLR,DRAWNULL),COLORRED,LINETHICK3;
NOTEXTMCLR2:IF((MA_CLR>REF(MA_CLR,1) AND (CLOSE<MA_CLR OR (CLOSE>MA_CLR AND REF(CLOSE,1)<REF(MA_CLR,1)))),MA_CLR,DRAWNULL),COLOR52228B,LINETHICK3;