ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散户筹码估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//散户套牢筹码比率}
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盘筹码比率}
主力控盘系数:=INTPART(ZZLKP),COLORCYAN;
轴:=50,COLORGREEN,DOTLINE,LINETHICK1;
DRAWTEXT(CROSS(主力控盘系数,轴),轴+10,'高控盘'),COLORYELLOW;
{指标说明:资金流入强度下穿0轴,股票必抛};
N:=10;
AN:=MA(C,N);
AN12:=MA(AN,12);
A1:=L<AN;
A2:=C>AN;
A3:=C/REF(C,1)<AN;
A4:=CROSS(C,AN) AND V/REF(MA(V,5),1)>1.016;
XG:=A1 AND A2 AND A3 AND A4;
STICKLINE(AN>=AN12 AND XG,H,L,2,0),COLORLIRED;
STICKLINE(AN<AN12 AND XG,H,L,2,0),COLORLIGREEN;
{DRAWICON(XG,H,13);}
DDKP:=EMA((WINNER(CLOSE) * 70),3);
WWKP:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),3);
主力控盘:=((DDKP / (DDKP + WWKP)) * 100),LINETHICK1,COLORWHITE;
顶:97, LINETHICK2 ,COLORRED;
风险:80,,COLORYELLOW; 平衡:50,COLORGREEN DOTLINE;
安全:=20,DOTLINE;
底:0, LINETHICK2 ,COLORWHITE;
A10:=MA(-100*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20)),13);
A25:=MA(-100*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20)),25);
A:=MA(-100*(HHV(HIGH,25)-CLOSE)/(HHV(HIGH,25)-LLV(LOW,25)),25);
B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
D:=EMA(-100*(HHV(HIGH,30)-CLOSE)/(HHV(HIGH,30)-LLV(LOW,30)),3);
波动10线:=A10+100,COLOR9900FF,LINETHICK2 COLORRED;
波动25线:=A25+100,COLOR9900FF,LINETHICK2 COLORMAGENTA;
长线:A+100,COLOR9900FF,LINETHICK2 COLORWHITE;
秒线:B+100,COLOR888888;
短线:D+100,COLORYELLOW,LINETHICK2;
见顶:=REF(短线,1)>85 AND REF(秒线,1)>85 AND REF(长线,1)>65 AND CROSS(长线,秒线);
顶域:=(短线<REF(短线,1) AND REF(短线,1)>80) AND (REF(秒线,1)>95 OR REF(秒线,2)>95 )
AND 长线>60 AND 秒线<83.5
AND 秒线<短线 AND 秒线<长线+4,COLORGREEN;
顶部:=FILTER(顶域,4);
STICKLINE( {见顶 OR} 顶部,100,105,20,1 ),COLORGREEN,LINETHICK2;
底域:=(长线<12 AND 短线<8 AND (秒线<7.2 OR REF(秒线,1)<5) AND (短线>REF(短线,1) OR
秒线>REF(秒线,1)))OR (长线<8 AND 短线<7 AND 秒线<15 AND 秒线>REF(秒线,1))
OR (长线<10 AND 短线<7 AND 秒线<1) ,COLORGREEN;
STICKLINE( 底域,-4,0,22,0 ),COLORRED;
低位金叉:50*(长线<15 AND REF(长线,1)<15 AND 短线<18 AND 秒线>REF(秒线,1)
AND CROSS(秒线,长线) AND 秒线>短线 AND (REF(秒线,1)<5 OR REF(秒线,2)<5 )
AND (短线>=长线 OR REF( 秒线,1)<1 )),COLORRED;
涨停:=CLOSE/REF(CLOSE,1)>=1.0965;
VAR400:=EMA(VAR300,5);
操盘:=3*VAR300-2*VAR400;
AB1:=CROSS(操盘,VAR300) AND VAR300<2.1 AND C>O;
IF(AB1,50,0),COLORMAGENTA LINETHICK2;
DRAWTEXT(AB1,56,'共振'),COLORMAGENTA;
SHORT:=12;LONG:=26;MID:=9;
EE:=MACD-REF(MACD,1)>0.05 AND COUNT(C/REF(C,1)>1.09,16)<2 AND C=HHV(H,60) AND
C/REF(C,1)>1.07 AND NOT(H=L) AND COUNT(C>O,6)<=4 AND C/REF(C,9)<1.2,NODRAW;
STICKLINE(FILTER(EE,20),ABS(MACD)+1,80,1,0),COLORLIMAGENTA;
DRAWBAND(EE,RGB(255,0,0),0,RGB(0,255,0));
DRAWTEXT(EE,81,'吃三年'),COLORYELLOW;
SS:=MA((LOW+HIGH+CLOSE)/3,5)>REF(MA((LOW+HIGH+CLOSE)/3,5),1) AND
REF(MA((LOW+HIGH+CLOSE)/3,5),1)<REF(MA((LOW+HIGH+CLOSE)/3,5),2);
SC:=L<HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND
H>HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND C>REF(C,1) AND C>O;
MR:=SC AND COUNT(SS,2);
买:=MR AND NOT(REF(MR,1)),COLORYELLOW;
STICKLINE(买,L,L*0.95,1,0),COLORRED;
DRAWTEXT(买,L*0.95, '必涨'),COLORRED;
20;