CCI背离K线副图

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);
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;
PARTLINE(rJ>ref(rJ,1),rJ),Color0000FF;
PARTLINE(rJ<ref(rJ,1),rJ),,Color00FF00;
头:=390+REVERSE(EMA(rJ, 1));
底:=-290+REVERSE(EMA(rJ,1));
抛:if(rJ>头,200,300),COLORGREEN;
吸:if(rJ<底,-200,-300),colorred;