通达信做红K线主图指标(源码)

M13:MA(C,13),COLORWHITE;
MZ:=(CLOSE-LLV(CLOSE,89))/(HHV(CLOSE,89)-LLV(CLOSE,89))*100;
DRAWICON(MZ 98,C*1.02,6);
DRAWICON(MZ 6 ,C*0.98,17);
AMV:=SMA(V,10,1)/300000;
SP:=AMV*C/10,LINETHICK0;
KP:=REF(SP,1),LINETHICK0;
STICKLINE(SP KP,L,H,0,0),COLORRED;
STICKLINE(SP =KP ,C,O,3,1),COLORRED;
STICKLINE(SP KP ,C,O,3,0),COLORGREEN;
STICKLINE(SP KP,H,L,0,0),COLORGREEN;
STICKLINE(SP KP,L,H,0,0),COLORRED;
STICKLINE(SP =KP AND M3 REF(M3,1) ,C,O,3,1),COLORRED;
STICKLINE(SP =KP AND M7 REF(M7,1) ,C,O,3,1),COLORGREEN;
STICKLINE(SP =KP AND M7 REF(M7,1) ,L,H,0,0),COLORGREEN;
STICKLINE(SP KP ,C,O,3,0),COLORGREEN;
STICKLINE(SP KP,H,L,0,0),COLORGREEN;
STICKLINE(REF(M3,2) REF(M3,1) AND M3 =REF(M3,1),C,O,3,0),COLOR00FFFF;
STICKLINE(REF(M3,2) REF(M3,1) AND M3 =REF(M3,1),L,H,0,0),COLOR00FFFF;
IF(M3 =REF(M3,1),M3,DRAWNULL),COLORFF00FF,LINETHICK3;
IF(M3 REF(M3,1),M3,DRAWNULL),COLOR33FF00;
IF(M7 =REF(M7,1),M7,DRAWNULL),COLOR00FFFF,LINETHICK1;
IF(M7 REF(M7,1),M7,DRAWNULL),COLOR33FF00;
IF(M13 =REF(M13,1),M13,DRAWNULL),COLOR00AABB,LINETHICK1;
IF(M13 REF(M13,1),M13,DRAWNULL),COLOR33FF00;