-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}{九毛八公式指标网www.9m8.cn}
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);
