通达信子午多周期共振副图 源码指标公式

 
-13;
50;
60;
{www.gszb.com1日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;
{www.gszb.com1日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;
{www.gszb.com1日改良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;
{www.gszb.comKDJ1日}
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;
{www.gszb.com1日MACD WWW.GSZB.COM/}
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;
{www.gszb.com120分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;
{www.gszb.com1日控盘}
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;
{www.gszb.com1日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;
{www.gszb.com1日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;
{www.gszb.comKDJ2日}
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;
{www.gszb.com2日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;
{www.gszb.com共振力度}
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);