通达信高抛低吸主图(源码 贴图)

此指标可用于主图和副图
源码如下
P:=(HIGH + LOW + CLOSE)/3;{CCI}
CCI:=(P-MA(P,14))*100/(1.5*AVEDEV(P,14));
RK:SMA(CCI,3,1);RD:SMA(RK,3,1);RJ:3*RK-2*RD;
LO := REF(OPEN,1);
CCIO:=(LO-MA(LO,14))*100/(1.5*AVEDEV(LO,14));
LC := REF(CLOSE,1);
CCIC:=(LC-MA(LC,14))*100/(1.5*AVEDEV(LC,14));
LH := REF(HIGH,1);
CCIH:=(LH-MA(LH,14))*100/(1.5*AVEDEV(LH,14));
LL := REF(LOW,1);{本文来源:'www.028588.com' }
CCIL:=(LL-MA(LL,14))*100/(1.5*AVEDEV(LL,14));
开:CCIO, LINETHICK0;
收:CCIC, LINETHICK0 ;
高:CCIH, LINETHICK0 ;
低:CCIL, LINETHICK0;
STICKLINE(收>开,开,低,0.5,1),COLORRED;
STICKLINE(收>开,高,收,0.5,1),COLORRED;
STICKLINE(收>开,收,开,5,1),COLORRED;
STICKLINE(收<开,高,开,0.5,1),COLORGREEN;
STICKLINE(收<开,低,收,0.5,0),COLORGREEN;
STICKLINE(收<开,收,开,5,0),COLORGREEN;

头:=390+REVERSE(EMA(RJ, 1));
底:=-290+REVERSE(EMA(RJ,1));
抛:IF(RJ>头,200,300),COLORGREEN;
吸:IF(RJ<底,-200,-300),COLORRED;