-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;{1日wr}WR:100-100*(HHV(HIGH,5*8)-CLOSE)/(HHV(HIGH,5*8)-LLV(LOW,5*8)),COLORFFFFFF,NODRAW;WR2日:=EMA(WR,5),COLORF933C2;WR4日:=EMA(WR,9),COLORLIRED;DRAWICON(WR2日>=REF(WR2日,1),45,38);DRAWICON(WR2日<REF(WR2日,1),45,39);DRAWTEXT(CURRBARSCOUNT=1,44,' 1日WR '),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,' 1日LWR改良 '),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,' 1日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,' 1日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,' 1日控盘 '),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,' 1日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,' 1日SRSI '),COLOR3E9EFF;日RSI1:="RSI.RSI1#DAY"(7);日RSI2:="RSI.RSI2#DAY"(7);DRAWICON(日RSI1>=日RSI2,5,38);DRAWICON(日RSI1<日RSI2,5,39);DRAWTEXT(CURRBARSCOUNT=1,4,' 日R金叉 '),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;{KDJ2日}RSV2:=(CLOSE-LLV(LOW,9*2))/(HHV(HIGH,9*2)-LLV(LOW,9*2))*100;K2:=SMA(RSV2,3*2,1);D2:=SMA(K2,3*2,1);J2:=3*K2-2*D2;DRAWICON(J2>=REF(J2*1,1),-5,1);DRAWICON(J2<REF(J2*1,1),-5,2);DRAWTEXT(CURRBARSCOUNT=1,-6,' 2日KDJ '),COLOR3E9EFF;{2日MACD}DIF2:=EMA(CLOSE,9*2)-EMA(CLOSE,21*2);DEA2:=EMA(DIF2,9*2);DRAWICON(DIF2>=REF(DIF2,1),-10,1);DRAWICON(DIF2<REF(DIF2,1),-10,2);DRAWTEXT(CURRBARSCOUNT=1,-11,' 2日MACD '),COLOR3E9EFF;{共振力度}DRAWICON(CCI3日均>=REF(CCI3日均,1) AND WR2日>=REF(WR2日,1) AND LWR1>=REF(LWR1,1) AND D>=REF(D*0.95,1) AND DIF>=REF(DIF,1) AND DIF120>=DEA120 ,59,25);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 J2>=REF(J2*1,1) AND DIF2>=REF(DIF2,1),55,26);
