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;{//主力控盘筹码比率}
ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);
{股票指标网}
VAR1X:=IF(MONTH<12,1,1);
VAR3X:=(2*CLOSE+HIGH+LOW)/4;
VAR4X:=LLV(LOW,34);
VAR5X:=HHV(HIGH,34);
主力进退线:EMA((VAR3X-VAR4X)/(VAR5X-VAR4X)*100,8)*VAR1X,LINETHICK2,COLORRED;
庄家: MA(WINNER(CLOSE*0.99)*100,3),COLORYELLOW,LINETHICK1,NODRAW;
IF(庄家>=REF(庄家,1),庄家,DRAWNULL), COLORMAGENTA,LINETHICK2,NODRAW;
VAR1Y:=EMA(EMA(CLOSE,13),13);
控盘:= (VAR1Y-REF(VAR1Y,1))/REF(VAR1Y,1)*2000,COLORFFCCCC,POINTDOT,NODRAW;
STICKLINE(控盘<0,控盘,0,2,0),COLORFFCCCC;
无庄控盘:控盘<0,COLORWHITE,NODRAW;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,2,1),COLORRED;
有庄控盘: 控盘>REF(控盘,1) AND 控盘>0,COLORRED;
VAR2Y:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,2,0),COLOR00FF00;
主力出货: 控盘<REF(控盘,1) AND 控盘>0,COLOR00FF00,NODRAW;
STICKLINE(VAR2Y>50 AND COST(85)<CLOSE AND 控盘<20,控盘,0,2,0),COLORFF00FF;
高度控盘: VAR2Y>50 AND COST(85)<CLOSE AND 控盘<20,COLORFF00FF,;
A10:=CROSS(控盘,0);
开始控盘:IF(A10,20,0),COLORYELLOW;
A8A:=(C+O+L+H)/4;
B8B:=REF(CLOSE,A8A);
处女线:=SMA(MAX(CLOSE-B8B,0),2,1)/SMA(ABS(CLOSE-B8B),2,1)*100;
DZ1:=处女线>REF(处女线,1) AND 处女线>89;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
CCI修正1:=EMA(EMA(EMA(CCI,2),2),2);
CCI修正2:=EMA(EMA(EMA(CCI,3),2),2);
DZ2:=CCI修正1>100;
T:=CLOSE*1.0+LOW*0.0+HIGH*0.0;
SL:=(T/REF(T,1)-1)*1000;
快:=XMA(XMA(XMA(SL,3),3),3);
慢:=XMA(XMA(XMA(SL,5),5),5);
X:=快-慢;
增速1:=X;
WWW:=REF(增速1,1)<0;
DZ4:=增速1>3 AND WWW;
DZ:=DZ1 AND DZ2 AND DZ4;
STICKLINE(DZ,0,10,2,0),COLOR00FFFF;
DRAWTEXT(DZ,10,'天牛'),COLOR00FFFF;
和谐一号:= EMA(0.667*REF(主力进退线,1)+0.333*主力进退线,2);
众赢一号:和谐一号,COLORWHITE,LINETHICK2;
X1:STICKLINE(CROSS(主力进退线,20) AND 和谐一号<主力进退线,主力进退线+19,主力进退线-10,4,1),COLORRED;
X2:DRAWTEXT(CROSS(主力进退线,20) AND 和谐一号<主力进退线,主力进退线-5,'←主力建仓 '),LINETHICK3, COLORMAGENTA ;
金砖:STICKLINE(和谐一号<主力进退线,主力进退线,和谐一号,2.5,1),COLORRED;
瓦砾:STICKLINE(和谐一号>主力进退线,主力进退线,和谐一号,2.5,1),COLORBLUE;
选股:=CROSS(主力进退线,30) AND 和谐一号<主力进退线;
一叉:DRAWICON(CROSS(主力进退线,和谐一号),和谐一号,5);
二叉:DRAWICON(CROSS(和谐一号,主力进退线),和谐一号,15);
{铁底出现}
ZYX1:="DMI.PDI"(12,6);
ZYX2:="DMI.MDI"(12,6);
ZYX3:=ZYX1>65 AND ZYX1>REF(ZYX1,1);
ZYX4:=LLV(ZYX1,0);
ZYX5:=BARSLAST(ZYX4=ZYX1);
ZYX6:=(0-REF(ZYX2,4))/(ZYX4-REF(ZYX2,ZYX5))>2;
ZYX7:=ZYX1>REF(ZYX1,1);
ZYX8:=VOL>2*MA(VOL,30);
ZYX9:="DMI.ADX"(12,6);
ZYXA:="DMI.ADXR"(12,6);
ZYXB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
ZYXC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
ZYXD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
{ZYXE:=0-"MACD.DIFF"(7,21,3);}
ZYXF:=TROUGHBARS(3,15,1)<4;
ZYX10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
ZYX11:=IF(ZYXF=1,50,0),NODRAW;
ZYX12:=CROSS(ZYX2,ZYX1) AND CROSS(ZYXA,ZYX9),NODRAW;
ZYX13:=CROSS(ZYX2,ZYX1) AND CROSS(ZYX9,ZYXA),NODRAW;
ZYX14:=ZYXB AND ZYXC AND ZYXD AND ZYX10 AND ZYX6 AND ZYX7 AND ZYX8*50,NODRAW;
ZYX15:=BARSLAST(CROSS(ZYX2,ZYX1)=1);
ZYX16:=BARSLAST(CROSS(ZYX1,ZYX2)=1);
ZYX17:=HHV(ZYX1,ZYX16),NODRAW;
ZYX18:=BARSLAST(ZYX1=ZYX17),NODRAW;
ZYX19:=ZYX3 OR ZYX12 OR ZYX13*100;
ZYX1A:=ZYX13*100;
DRAWICON(FILTER(ZYXF=1,3),15,1),COLORYELLOW;
DRAWTEXT(FILTER(ZYXF=1,3),15,'↖铁底出现'),COLORYELLOW;
VAR8:=VOL>2*MA(VOL,30);
VAR9:="DMI.ADX"(10,6);
VARA:="DMI.ADXR"(10,6);
VARB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
VARC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
VARD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
N:=9;6
;M1:=3;
M2:=3;
P:=9;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
JJ:=P*(3*D-2*K);
J:=((3 * K) - (2 * D));
MAIRU:= CROSS(K,D) AND K<20;
MAICHU:= CROSS(D,K) AND D>80;
VAR2:=REF(LOW,1);
VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;
VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3);
VAR5:=LLV(LOW,13);
VAR6:=HHV(VAR4,13);
VAR7:=IF(MA(CLOSE,34),1,0);
VAR8Y:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
VAR9Y:=IF(VAR8Y>100,100,VAR8Y);
吸筹:VAR9Y,LINETHICK2,COLORF00FF0;
STICKLINE(VAR9Y>-120,0,VAR9Y,8,1),COLORYELLOW;
