-13;
50;
60;
{1日cci}
P:=(HIGH + LOW + CLOSE)/3;
CCI日:=(P-MA(P,14))*100/(1.5*AVEDEV(P,14)),COLORWHITE,LINETHICK1;
CCI3日均:=MA(CCI日,3),COLOREF03CC,LINETHICK1;
DRAWICON(CCI3日均>=REF(CCI3日均,1),50,38);
DRAWICON(CCI3日均<REF(CCI3日均,1),50,39);
DRAWTEXT(CURRBARSCOUNT=1,49,' CCI3日均 '),COLORFF00FF;
{ddx}
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=vol/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘:=(V9+V8);
卖盘:=(V6+V7);
买卖差:=买盘-卖盘;
DDX:=买卖差;
DX:=MA(买卖差,5)*20;
DDX1:=SMA(DX,3,1);
DDX2:=SMA(DDX1,3,1);
DDX3:=(5*DDX2+4*REF(DDX2,1)+3*REF(DDX2,2)+2*REF(DDX2,3)+REF(DDX2,4))/15;
DRAWICON(DDX1>DDX2,45,38);
DRAWICON(DDX1<DDX2,45,39);
DRAWTEXT(CURRBARSCOUNT=1,44,' DDX '),COLORFF00FF;
{1日改良Lwr}
RSV1:=100- (HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100;
LWR1:=SMA(RSV1,4,1);
LWR2:=SMA(LWR1,4,1);
DRAWICON(LWR1>=REF(LWR1,1),40,38);
DRAWICON(LWR1<REF(LWR1,1),40,39);
DRAWTEXT(CURRBARSCOUNT=1,39,' WR '),COLORFF00FF;
{kdj1日}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
DRAWICON(D>=REF(D*0.95,1),35,38);
DRAWICON(D<REF(D*0.95,1),35,39);
DRAWTEXT(CURRBARSCOUNT=1,34,' kdJ '),COLORFF00FF;
{1日macd}
DIF:=EMA(CLOSE,9)-EMA(CLOSE,21);
DEA:=EMA(DIF,9);
DRAWICON(DIF>=REF(DIF,1),30,38);
DRAWICON(DIF<REF(DIF,1),30,39);
DRAWTEXT(CURRBARSCOUNT=1,29,' MACD '),COLORFF00FF;
{120分MACD}
DIF120:=EMA(CLOSE,9/2)-EMA(CLOSE,21/2);
DEA120:=EMA(DIF120,9/2);
DRAWICON(DIF120>=DEA120,25,34);
DRAWICON(DIF120<DEA120,25,35);
DRAWTEXT(CURRBARSCOUNT=1,24,' 120MACD '),COLORFF00FF;
{1日控盘}
B1:=(HHV(H,20)-C)/(HHV(H,20)-LLV(LOW,20))*100-100;
B2:=SMA(B1,25,1)+100;
B3:=(C-LLV(L,20))/(HHV(H,20)- LLV(L,20))*100;
B4:=SMA(B3,3,1);
B5:=SMA(B4,3,1)+100;
B6:=B5-B2;
控盘程度:=(IF(B6>40,B6-40,0))*2.5,COLORYELLOW;
控盘度:=100,COLOR0037CD;
DRAWICON(控盘程度<REF(控盘程度,1)*1.011,20,43);
DRAWICON(控盘程度<1 AND 控盘程度>=REF(控盘程度,1)*1.011,20,43);
DRAWICON(控盘程度>=1 AND 控盘程度>=REF(控盘程度,1)*1.011,20,42);
DRAWTEXT(CURRBARSCOUNT=1,19,' 主力控盘 '),COLORYELLOW;
{1日obv}
VA:=IF(CLOSE>REF(MAX(O,C),1),VOL, IF(CLOSE<REF(MIN(O,C),1),-VOL, ((C-L)-(H-C))/(H-L)*V));
OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MAOBV1:=MA(OBV,2),COLOR8AD8FD;
MAOBV2:=MA(OBV,3),COLOREF03CC,LINETHICK2;
MAOBV3:=MA(MAOBV2,4),COLORB57826;
DRAWICON(MAOBV2>=REF(MAOBV2,1),15,38);
DRAWICON(MAOBV2<REF(MAOBV2,1),15,39);
DRAWTEXT(CURRBARSCOUNT=1,14,' OBV '),COLOR3E9EFF;
{1日Srsi}
VALUE1:=C-O;
VALUE2:=H-L;
VALUE3:=IF(VALUE2=0,0,VALUE1/VALUE2);
SRSIN:=SUM(VALUE3,7);
SRSI:=SRSIN/7,COLORLIBLUE;
SRSIM:=MA(SRSI,3),COLORF933C2;
SRSIK:=MA(SRSI,6),COLORLIRED;
DRAWICON(SRSIM>=REF(SRSIM*1.005,1),10,38);
DRAWICON(SRSIM<REF(SRSIM*1.005,1),10,39);
DRAWTEXT(CURRBARSCOUNT=1,9,'SRSI '),COLOR3E9EFF;
{1日RSI}
日RSI1:="RSI.RSI1#DAY"(5);
日RSI2:="RSI.RSI2#DAY"(5);
DRAWICON(日RSI1>=日RSI2,5,38);
DRAWICON(日RSI1<日RSI2,5,39);
DRAWTEXT(CURRBARSCOUNT=1,4,' RSI '),COLOR3E9EFF;
VOLUME:=VOL,VOLSTICK;
MAVOL1:=MA(VOLUME,3);
MAVOL2:=MA(VOLUME,7);
DRAWICON(MAVOL1>=MAVOL2,0,38);
DRAWICON(MAVOL1<MAVOL2,0,39);
DRAWTEXT(CURRBARSCOUNT=1,-1,' 成交量 '),COLOR3E9EFF;
{1日bbi}
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
DRAWICON(C>BBI,-5,38);
DRAWICON(C<=BBI,-5,39);
DRAWTEXT(CURRBARSCOUNT=1,-6,' BBI '),COLOR3E9EFF;
{共振力度}
DRAWICON(CCI3日均>=REF(CCI3日均,1) AND DDX1>=REF(DDX2,1) AND LWR1>=REF(LWR1,1) AND D>=REF(D*0.95,1) AND DIF>=REF(DIF,1) AND DIF120>=DEA120 ,59,25);
DRAWICON(CCI3日均<=REF(CCI3日均,1) AND DDX1<=REF(DDX2,1) AND LWR1<=REF(LWR1,1) AND D<=REF(D*0.95,1) AND DIF<=REF(DIF,1) AND BBI<=BBI ,59,15);
DRAWICON(控盘程度>=1 AND 控盘程度>=REF(控盘程度,1)*1.011 AND MAOBV2>=REF(MAOBV2,1) AND 日RSI1>=日RSI2 AND MAVOL1>=MAVOL2 AND SRSIM>=REF(SRSIM*1.005,1) AND BBI>=REF(BBI,1),55,26);
