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

 
-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日均 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日 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 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 DRAWTEXT(CURRBARSCOUNT=1,34,'  1日KDJ '),COLORFF00FF;
{1日MACD WWW.GSZB.COM/}
DIF:=EMA(CLOSE,9)-EMA(CLOSE,21);
DEA:=EMA(DIF,9);
DRAWICON(DIF>=REF(DIF,1),30,38);
DRAWICON(DIF 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 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(控盘程度 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 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 DRAWTEXT(CURRBARSCOUNT=1,14,'  1日OBV '),COLOR3E9EFF;
{1日SRSI}
VALUE1:=C-O;
VALUE2:=H-L;
VALUE3:=IF(VALUE2=0,0,VAL