通达信周月CCI抓妖选股指标 源码 贴图

S1:=IF(CODELIKE('688'),0,1) OR IF(CODELIKE('82'),0,1)
OR IF(CODELIKE('830'),0,1) OR IF(CODELIKE('831'),0,1)
OR IF(CODELIKE('832'),0,1) OR IF(CODELIKE('833'),0,1)
OR IF(CODELIKE('834'),0,1) OR IF(CODELIKE('835'),0,1)
OR IF(CODELIKE('836'),0,1) OR IF(CODELIKE('837'),0,1)
OR IF(CODELIKE('838'),0,1) OR IF(CODELIKE('839'),0,1)
OR IF(CODELIKE('870'),0,1) OR IF(CODELIKE('871'),0,1)
OR IF(CODELIKE('872'),0,1) OR IF(CODELIKE('873'),0,1);
S2:=IF(NAMELIKE('S'),0,1);
S3:=IF(NAMELIKE('*'),0,1);
S4:=DYNAINFO(17)>0;
去掉:=S1 AND (S2 AND S3 AND S4 AND CAPITAL/1000000<30 AND INBLOCK('融资融券')=0);
TYP:=(HIGH+LOW+CLOSE)/3; {最高价、最低价、收盘价之平均数}
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),COLORRED,LINETHICK3;
{（TYP-TYP的14日移动平均）/0.015* TYP的14日平均绝对误差}
ZCCI:=(TYP-MA(TYP,70))/(0.015*AVEDEV(TYP,70)),COLORYELLOW,LINETHICK3;
{DRAWBAND(CCI,RGB(155,0,0),ZCCI,RGB(0,0,155));}
{（TYP-TYP的70日移动平均）/0.015* TYP的70日平均绝对误差}
YCCI:=(TYP-MA(TYP,308))/(0.015*AVEDEV(TYP,308)),COLOR004000,LINETHICK3;
{DRAWBAND(ZCCI,RGB(155,55,0),YCCI,RGB(0,55,155));}
{（TYP-TYP的308日移动平均）/0.015* TYP的308日平均绝对误差}
CCI底线:=IF(YCCI<IF(CCI>ZCCI,ZCCI,CCI),YCCI,IF(CCI>ZCCI,ZCCI,CCI)),COLORMAGENTA;
{DRAWBAND(ZCCI,RGB(150,0,0),200,RGB(0,0,150));
DRAWBAND(YCCI,RGB(200,0,0),200,RGB(0,0,200));
DRAWBAND(CCI,RGB(50,0,0),100,RGB(0,0,50));
STICKLINE(CCI底线>100,60,100,3,0),COLOR000099;
STICKLINE(CCI底线>100,60,100,2.2,0),COLOR0000CC;
STICKLINE(CCI底线>100,60,100,1.5,0),COLORRED;
STICKLINE(CCI底线>100,60,100,0.5,0),COLORCC66FF;
STICKLINE(CCI底线>100,60,100,0.5,0),COLORYELLOW;}
N0:=5;N1:=13;N2:=34;N3:=89;{公式网 WWW.GPXIAZAI.COM}
WR250:=100*(HHV(HIGH,250)-CLOSE)/(HHV(HIGH,250)-LLV(LOW,250)),COLORFFFF00,LINETHICK3;
WR60:=100*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60)),COLORGREEN;
WR89:=100*(HHV(HIGH,89)-CLOSE)/(HHV(HIGH,89)-LLV(LOW,89)),COLORGREEN;
WR10:=100*(HHV(HIGH,10)-CLOSE)/(HHV(HIGH,10)-LLV(LOW,10)),COLORRED;
WR20:=100*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20)),COLORYELLOW;
WR5:=100*(HHV(HIGH,N0)-CLOSE)/(HHV(HIGH,N0)-LLV(LOW,N0)),COLORWHITE;
{DRAWBAND(WR10,RGB(0,22,222),WR89,RGB(222,22,2));
DRAWBAND(WR5,RGB(0,11,111),60,RGB(111,11,1));
DRAWBAND(20,RGB(255,155,0),WR5,RGB(0,155,255));
DRAWBAND(20,RGB(255,255,0),WR60,RGB(0,255,255));
DRAWBAND(WR60,RGB(0,60,120),WR250,RGB(120,60,0));
DRAWBAND(WR5,RGB(0,100,100),WR20,RGB(150,150,0));}
V1:=IF(C/REF(C,1)>1.094 AND C=H AND C=O,HHV(V,20),V);
LWR4:=-100*(HHV(V1,250)-V1)/(HHV(V1,250)-LLV(V1,250)),COLORFFFF00;
LWR3:=-100*(HHV(V1,60)-V1)/(HHV(V1,60)-LLV(V1,60)),COLORGREEN;
LWR1:=-100*(HHV(V1,10)-V1)/(HHV(V1,10)-LLV(V1,10)),COLORYELLOW;
LWR2:=-100*(HHV(V1,20)-V1)/(HHV(V1,20)-LLV(V1,20)),COLORMAGENTA;
LWR0:=-100*(HHV(V1,5)-V1)/(HHV(V1,5)-LLV(V1,5)),COLORRED;
{DRAWBAND(LWR1,RGB(222,22,2),LWR3,RGB(2,22,222));
DRAWBAND(LWR3,RGB(222,222,1),-20,RGB(1,222,222));
DRAWBAND(LWR0,RGB(155,55,5),LWR2,RGB(5,55,155));}
启动:=LWR0>-20 AND WR5<20 AND CCI>100;
除此:=((WR60<=REF(WR60,1) OR WR250<=REF(WR250,1)) AND WR5<20);
进:=WR60<80 AND WR5<WR60 AND LWR0>=REF(LWR0,1) AND ((CROSS(WR20,WR5) AND WR20<REF(WR20,1)) OR (CROSS(WR60,WR5) AND WR60<REF(WR60,1))
OR CROSS(WR250,WR5) AND WR250<REF(WR250,1)) OR (CROSS(20,WR20) AND WR20<REF(WR20,1));
{STICKLINE(进,240,220,0,0),COLOR0022FF;
STICKLINE(进,240,220,3.2,0),COLOR002288;
STICKLINE(进,240,220,2.6,0),COLOR0033AA;
STICKLINE(进,240,220,1.9,0),COLOR0044CC;
STICKLINE(进,240,220,1.2,0),COLOR0055EE;
STICKLINE(进,240,220,0.6,0),COLOR0077FF;
STICKLINE(进,240,220,0.3,0),COLOR0088FF;}
预备跑:=WR60>20 AND (WR60>REF(WR60,1) OR WR250>REF(WR250,1)) AND ((CROSS(WR5,20) AND LWR0>=REF(LWR0,1)) OR CROSS(WR5,WR20) OR CROSS(WR20,20)
OR CROSS(WR5,WR60) OR CROSS(WR5,WR250)) ;
{STICKLINE(预备跑,240,220,0,0),COLOR00FF00;
STICKLINE(预备跑,240,220,3,0),COLOR009900;
STICKLINE(预备跑,240,220,2,0),COLOR00BB00;
STICKLINE(预备跑,240,220,1,0),COLOR00DD00;
STICKLINE(预备跑,240,220,0.3,0),COLOR00FF00;}
出逃:=( WR5>REF(WR5,1) AND WR60>REF(WR60,1) AND WR250>REF(WR250,1) AND WR5>WR60 AND WR60>WR250 AND REF(WR5,1)<20) OR (WR60>20 AND (WR60>REF(WR60,1) OR WR250>REF(WR250,1)) AND ((LWR0<REF(LWR0,1) AND REF(LWR0,1)>REF(LWR0,2) AND CROSS(WR5,20)) OR (LWR0>=REF(LWR0,1) AND (WR5<20 AND WR5>REF(WR5,1) OR CROSS(WR5,WR20) OR CROSS(WR5,WR60)
OR CROSS(WR5,WR250)))));
{STICKLINE(出逃,240,220,0,1),COLORFF8800;
STICKLINE(出逃,240,220,3.2,0),COLORFF2200;
STICKLINE(出逃,240,220,2.6,0),COLORFF4400;
STICKLINE(出逃,240,220,1.9,0),COLORFF6600;
STICKLINE(出逃,240,220,1.1,0),COLORFF8800;
STICKLINE(出逃,240,220,0.3,0),COLORFFAA00;}
{DRAWTEXT(启动 AND COUNT(启动,10)=1,200,'★'),COLORYELLOW;
DRAWTEXT(启动 AND COUNT(启动,10)=1,210,'★'),COLORRED;
DRAWTEXT(启动 AND COUNT(启动,10)=1,220,'★'),COLORMAGENTA;
DRAWICON(启动 AND COUNT(启动,10)=1,230,25);}
(CROSS(ZCCI,200) OR CROSS(YCCI,200) OR 启动) AND 去掉;