通达信受金老师的启发博易CCI通达信主图显示
通达信受金老师的启发博易CCI通达信主图显示
原码奉上：
{CCI}
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
NN:=120;
HH:=HHV(V*TT,NN);
LL:=LLV(V,NN);
最高:=CONST(HH);
最低:=CONST(LL);
最高2:=CONST(HHV(H,NN));
最低2:=CONST(LLV(L,NN));
PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,20)),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,50)),0.7,0.6)),NODRAW;
RCC1:=最高2*0.85-(最高2-最低2)*PP;
最低3:=MIN(RCC1,最低2);
AAD:=最低3;
{CCI}
M:=14;
N:=20;
TYP := (HIGH + LOW + CLOSE)/3;
WCCI:=(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)),COLORWHITE,LINETHICK2;
CCI:=(TYP-MA(TYP,M))/(0.015*AVEDEV(TYP,M)),COLOR008000;
ARRAY:=CCI;
HIGHBARS:=BARSLAST(NOT(ARRAY>0));
LOWBARS:=BARSLAST(NOT(ARRAY<0));
UPCONDITION:=BARSLAST(HIGHBARS>=6 AND SUM(ARRAY>100,5)>0);
DNCONDITION:=BARSLAST(LOWBARS>=6 AND SUM(ARRAY<-100,5)>0);
UPTREND:=ARRAY>0 AND UPCONDITION<DNCONDITION;
DNTREND:=ARRAY<0 AND UPCONDITION>DNCONDITION;
TRTREND:=HIGHBARS>=5 AND NOT(UPTREND) OR LOWBARS>=5 AND NOT(DNTREND);
{蓝色}
STICKLINE(UPTREND,AAD+CCI/500,AAD,3,0),COLORFF2200;
STICKLINE(UPTREND,AAD+CCI/500,AAD,2,0),COLORFF4400;
STICKLINE(UPTREND,AAD+CCI/500,AAD,1,0),COLORFF6600;
STICKLINE(UPTREND,AAD+CCI/500,AAD,0.1,0),COLORFF8800;
{绿色}
STICKLINE(DNTREND,AAD+CCI/500,AAD,3,0),COLOR004400;
STICKLINE(DNTREND,AAD+CCI/500,AAD,2,0),COLOR008800;
STICKLINE(DNTREND,AAD+CCI/500,AAD,1,0),COLOR00AA00;
STICKLINE(DNTREND,AAD+CCI/500,AAD,0.1,0),COLOR00CC00;
{紫色}
STICKLINE(TRTREND,AAD+CCI/500,AAD,3,0),COLORFF0055;
STICKLINE(TRTREND,AAD+CCI/500,AAD,2,0),COLORFF0077;
STICKLINE(TRTREND,AAD+CCI/500,AAD,1,0),COLORFF0099;
STICKLINE(TRTREND,AAD+CCI/500,AAD,0.1,0),COLORFF00FF;
STICKLINE(NOT(UPTREND OR DNTREND OR TRTREND),AAD+CCI/500,AAD,3,0),COLOR003333;
STICKLINE(NOT(UPTREND OR DNTREND OR TRTREND),AAD+CCI/500,AAD,2,0),COLOR004444;
STICKLINE(NOT(UPTREND OR DNTREND OR TRTREND),AAD+CCI/500,AAD,2,0),COLOR005555;
STICKLINE(NOT(UPTREND OR DNTREND OR TRTREND),AAD+CCI/500,AAD,0.1,0),COLOR00FFFF;
