殷富擒龙战法之周月线CCI选妖股副图

DRAWGBK(CLOSE>1,RGB(0,0,0),RGB(220,20,60),0,0,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(YCCIZCCI,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;

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)),DOTLINE,COLORGREEN;

WR10:=100*(HHV(HIGH,10)-CLOSE)/(HHV(HIGH,10)-LLV(LOW,10)),DOTLINE,COLORRED;

WR20:=100*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20)),DOTLINE,COLORYELLOW;

WR5:=100*(HHV(HIGH,N0)-CLOSE)/(HHV(HIGH,N0)-LLV(LOW,N0)),DOTLINE,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)),DOTLINE,COLORFFFF00;

LWR3:-100*(HHV(V1,60)-V1)/(HHV(V1,60)-LLV(V1,60)),DOTLINE,COLORGREEN;

LWR1:-100*(HHV(V1,10)-V1)/(HHV(V1,10)-LLV(V1,10)),DOTLINE,COLORYELLOW;

LWR2:-100*(HHV(V1,20)-V1)/(HHV(V1,20)-LLV(V1,20)),DOTLINE,COLORMAGENTA;

LWR0:-100*(HHV(V1,5)-V1)/(HHV(V1,5)-LLV(V1,5)),DOTLINE,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=REF(LWR0,1) AND ((CROSS(WR20,WR5) AND WR20

 OR CROSS(WR250,WR5) AND WR250

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 ((LWR0REF(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;

小浪底:=CROSS(20,WR5) AND CROSS(LWR0,-20);

STICKLINE(小浪底,240,260,3,0),COLOR000099;

STICKLINE(小浪底,240,260,2.2,0),COLOR0000CC;

STICKLINE(小浪底,240,260,1.5,0),COLORRED;

STICKLINE(小浪底,240,260,0.5,0),COLORCC66FF;

STICKLINE(小浪底,240,260,0.5,0),COLORYELLOW;

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);

{CCI,COLORRED,LINETHICK6;

（TYP-TYP的14日移动平均）/0.015* TYP的14日平均绝对误差}

{ZCCI,COLORYELLOW,LINETHICK6;

DRAWBAND(CCI,RGB(155,0,0),ZCCI,RGB(0,0,155));}

{（TYP-TYP的70日移动平均）/0.015* TYP的70日平均绝对误差

YCCI,COLORGREEN,LINETHICK6;}

0,DOTLINE; {画一条0线，虚线}

LWR4,DOTLINE,COLORBLUE;

LWR3,DOTLINE,COLORGREEN;

LWR1,DOTLINE,COLORRED;

LWR2,DOTLINE,COLORYELLOW;

LWR0,DOTLINE,COLORWHITE;

{WR1:(C-LLV(L,N1))/(HHV(H,N1)-LLV(L,N1))*100,DOTLINE,COLORRED;

WR2:(C-LLV(L,N2))/(HHV(H,N2)-LLV(L,N2))*100,

WR3:(C-LLV(L,N3))/(HHV(H,N3)-LLV(L,N3))*100,DOTLINE,COLORGREEN;}

-20,COLORWHITE;

20,COLORWHITE;

0,LINETHICK3,COLORRED;

60,COLORYELLOW;

100,COLORGREEN,LINETHICK3;

-100,COLORWHITE,LINETHICK3;

200,COLORMAGENTA,LINETHICK3;

WR60,COLORFF0080,LINETHICK3;

WR250,COLOR000040,LINETHICK3;

DRAWTEXT(ISLASTBAR,WR60,'★价60'),COLORFF0080;

DRAWTEXT(ISLASTBAR,WR250,'★价250'),COLOR000040;

DRAWTEXT(ISLASTBAR,-20,'★量能区(0-负100'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,20,'★价格区(0-100'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,100,'★走强区(200-100'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,200,'★牛妖区(200以上'),COLORMAGENTA;

STICKLINE(WR60<20 AND LWR3>-20,-100,-120,3.5,0),COLOR008888;

STICKLINE(WR60<20 AND LWR3>-20,-100,-120,1,0),COLORWHITE;

STICKLINE(WR60<20 AND LWR3>-20,-100,-120,3.5,0),COLOR008888;

STICKLINE(WR60<20 AND LWR3>-20,-100,-120,1.6,0),COLOR00AAAA;

STICKLINE(WR60<20 AND LWR3>-20,-100,-120,0.8,0),COLOR00CCCC;

STICKLINE(WR60<20 AND LWR3>-20,-100,-120,0.2,0),COLOR00FFFF;

MA5:=MA(C,5);

MA20:=MA(C,20);

A51:= REF(MA5,1)*0.98;

A52:= REF(MA5,2)*0.98;

B52:= BARSLAST(REF(C,2)>=REF(MA5,2) AND REF(C,1)

B51:= BARSLAST(REF(C,2)>=REF(MA5,2) AND REF(C,1)

DZ:=IF((REF(C,2)>=REF(MA5,2)) AND (REF(C,1)=REF(MA5,2) AND REF(C,1)0,IF(REF(MA5, B52)< REF(MA5, B51),REF(MA5,B51)*0.98, REF(MA5,B52)*0.98), REF(MA5,1)));

A201:= REF(MA20,1)*0.98;

A202:= REF(MA20,2)*0.98;

B202:= BARSLAST(REF(C,2)>=REF(MA20,2) AND REF(C,1)

B201:= BARSLAST(REF(C,2)>=REF(MA20,2) AND REF(C,1)

ZZ:=IF((REF(C,2)>=REF(MA20,2)) AND (REF(C,1)=REF(MA20,2) AND REF(C,1)0,IF(REF(MA20, B202)< REF(MA20, B201),REF(MA20,B201)*0.98, REF(MA20,B202)*0.98), REF(MA20,1)));

短止:=DZ,COLORWHITE,LINETHICK2;

紫线:=ZZ,COLORMAGENTA;

绿线:=LLV(REF(LOW,1),2)+(HHV(REF(HIGH,1),2)-LLV(REF(LOW,1),2))/2,COLORGREEN;

黄线:=MA(CLOSE,25)+MA(CLOSE,25)*6/100,COLORYELLOW,LINETHICK2;

白轨:=MA(CLOSE,25)+MA(CLOSE,25)*20/100,COLORWHITE;

影子线:=MA(CLOSE,25)+MA(CLOSE,25)*13/100,COLORGRAY;

AZZ:=LLV(REF(LOW,1),2)+(HHV(REF(HIGH,1),2)-LLV(REF(LOW,1),2))/2,COLORGREEN;

DRAWICON(REF(C,1)=DZ AND C>AZZ ,LOW*0.99,1);

DRAWICON(REF(C,1)=AZZ,LOW*0.99,1);

AXX:=((((MA(C,10) > MA(C,25)) && CROSS(C,MA(C,5))) && (V > MA(V,10))) && (MA(C,10) > REF(MA(C,10),1)));

ASS:=C>=黄线 AND AXX ;

角度黄线:=ATAN((黄线/REF(黄线,1)-1)*100)*180/3.1416,NODRAW;

涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);

NT:=12;

DG:=1.2;

YLX:=0;

ZCX:=0;

A1:=REF(C,NT)=HHV(C,2*NT+1); B1:=FILTER(A1,NT); 

A2:=REF(C,NT)=LLV(C,2*NT+1); B2:=FILTER(A2,NT);

{DRAWTEXT_FIX(C>O,0.01,0.41,0,'更多精彩指标公式，请关注微信公众号：短线指标公式'),COLORYELLOW;}

获利比例:=WINNER(C)*100,NODRAW,COLORRED;

DRAWTEXT_FIX(1,0.5,0.12,0,STRCAT(STRCAT('获利比例 ',CON2STR(获利比例,0)),' %')),COLORRED;

板块排序:=HORCALC('板块指数',105,1,0),NODRAW,COLORRED;

DRAWTEXT_FIX(1,0.5,0.16,0,STRCAT(STRCAT('板块排序第 ',CON2STR(板块排序,0)),'名')),COLORRED;

BIAS:=(O-黄线)/黄线*100,NODRAW,COLORRED;

倍量:=(V/REF(V,1)>=1.90 AND COUNT(C>O,1)) OR (L>REF(H,1) AND COUNT(O>C,1) AND V/REF(V,1)>=1.90);

{板块排名}

TAX:=HORCALC(HYBLOCK,105,1,DRAWNULL);

TAA:=STRCAT(HYBLOCK,'      排名 ：');

DRAWTEXT_FIX(ISLASTBAR,0.70,0.005,0,STRCAT(TAA,CON2STR(TAX,0)));

TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));

MTIME:=MOD(FROMOPEN,TOTAL);

CTIME:=IF(MTIME<0.5,TOTAL,MTIME);

{倍量柱} 

冠军:=HORCALC(HYBLOCK,105,1,DRAWNULL)=1,NODRAW,COLORRED;

DRAWTEXT_FIX(1,0.2,0.16,0,STRCAT(STRCAT('个股排序第',CON2STR(冠军,0)),'     名')),COLORRED;

亚军:=HORCALC(HYBLOCK,105,1,DRAWNULL)=2,NODRAW,COLORYELLOW;

DRAWTEXT_FIX(1,0.2,0.16,0,STRCAT(STRCAT('个股排序第    ',CON2STR(亚军,0)),' 名')),COLORYELLOW;

季军:=HORCALC(HYBLOCK,105,1,DRAWNULL)=3,NODRAW,COLORWHITE;

DRAWTEXT_FIX(1,0.2,0.16,0,STRCAT(STRCAT('个股排序第  ',CON2STR(季军,0)),'   名')),COLORWHITE;