VAR9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(VAR9,3,1);
D:SMA(K,3,1),COLOR00FF00,DOTLINE,LINETHICK0;
J:(3*K-2*D)*1.5,COLORFF9900,LINETHICK1;
IF(J>REF(J,1),J,DRAWNULL),COLORRED,LINETHICK2;
{CCI}
TYB:= (HIGH + LOW + 2*CLOSE)/4;
CCIA:=(TYB-MA(TYB,14))/(0.015*AVEDEV(TYB,14));
CCIB:=(TYB-MA(TYB,28))/(0.015*AVEDEV(TYB,28));
CCIC:=(TYB-MA(TYB,42))/(0.015*AVEDEV(TYB,42));
CCI:WMA((CCIA*2+CCIB+CCIC)/4,3),COLOR00FF00,LINETHICK2;
IF(CCI>REF(CCI,1),CCI,DRAWNULL),COLORRED,LINETHICK2;
{大盘CCI}
TYBDP:= (INDEXH + INDEXL + 2*INDEXC)/4;
CCIADP:=(TYBDP-MA(TYBDP,14))/(0.015*AVEDEV(TYBDP,14));
CCIBDP:=(TYBDP-MA(TYBDP,28))/(0.015*AVEDEV(TYBDP,28));
CCICDP:=(TYBDP-MA(TYBDP,42))/(0.015*AVEDEV(TYBDP,42));
CCIDP:=WMA((CCIADP*2+CCIBDP+CCICDP)/4,3);
IF(CCIDP>REF(CCIDP,1),CCIDP,DRAWNULL),COLORRED,DOTLINE;
IF(CCIDP<REF(CCIDP,1),CCIDP,DRAWNULL),COLOR00FF00,DOTLINE;
IF(CCIDP>REF(CCIDP,1),CCIDP,DRAWNULL),COLORRED,POINTDOT,LINETHICK6;
IF(CCIDP<REF(CCIDP,1),CCIDP,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK6;
{高抛低吸}
SJ:=WMA(((2*C+H+L)/4-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2);
ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2);
DRAWTEXT(CROSS(SJ,ZJ) AND SJ<30,-20, ' ▲吸'),COLOR00FF00,LINETHICK2;
DRAWTEXT(CROSS(ZJ,SJ) AND SJ>70,120, ' ▲抛'),COLOR0000FF,LINETHICK2;
{BOLL顶底}
MID:=WMA(TYB,18);
UPPER:=MID + 2*STD(TYB,18);
LOWER:=MID - 2*STD(TYB,18);
布顶:STICKLINE(CROSS(C,UPPER) ,60 ,100 ,4, 0),COLOR0000FF;
DRAWTEXT(CROSS(C,UPPER) ,90,'顶'),COLOR00FFFF,LINETHICK1;
布底:STICKLINE(CROSS(C,LOWER) ,-60 ,-100 ,4, 0),COLORFF9900;
DRAWTEXT(CROSS(C,LOWER) ,-70,'底'),COLOR00FFFF,LINETHICK1;
倍量:STICKLINE(V>REF(V,1)*2 ,0 ,30 ,4, 1),COLOR00FFFF;
DRAWTEXT(V>REF(V,1)*2 ,20,'倍'),COLOR00FFFF,LINETHICK1;
{标记BSI.KDJ}
LC:=REF(C,1);
RSI:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;
DRAWTEXT( CURRBARSCOUNT=1 AND RSI,160,'RSI'),COLOR00FF00,LINETHICK2;
DRAWNUMBER(CURRBARSCOUNT=1 AND RSI,150, RSI),COLOR0077FF;
DRAWNUMBER(CURRBARSCOUNT=1 AND J,J,J),COLOR00FF00;
