通达信周月CCI抓妖选股指标 源码 贴图 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 {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.72GU.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 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 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 去掉;
|
