通达信薛斯双通道箱体叠加指标 XSXT 主图 源码
{牛牛指标网提供:www.tdx001.com}
源码:
CV:=C*V;
BCV:=EMA((EMA(CV,3)/EMA(V,3)+EMA(CV,6)/EMA(V,6)+EMA(CV,12)/EMA(V,12)+EMA(CV,24)/EMA(V,24))/4,13);
IU0:=BCV*1.06;
ID0:=BCV*0.94;
OU0:=EMA(EMA(C,9)*1.14,5);
OD0:=EMA(EMA(C,9)*0.86,5);
DRAWBAND(IU0,RGB(125,000,125),OU0,RGB(125,000,000));
DRAWBAND(IU0,RGB(256,075,075),ID0,RGB(256,075,075));
DRAWBAND(ID0,RGB(000,125,000),OD0,RGB(000,000,125));
DRAWKLINE(H,O,L,C);
AA:=MA((2*C+H+L)/4,5);
CC:=ABS((2*C+H+L)/4-MA(C,20))/MA(C,20);
DD:=DMA(C,CC);
SU:AA*102/100,COLORWHITE;
SD:AA*(200-102)/100,COLORYELLOW;
LU:(1+7/100)*DD,COLORMAGENTA;
LD:(1-7/100)*DD,COLORCYAN;
IU:IU0,COLORWHITE,NODRAW;
ID:ID0,COLORYELLOW,NODRAW;
OU:OU0,COLORMAGENTA,NODRAW;
OD:OD0,COLORCYAN,NODRAW;
XU:IF(PERIOD>2,PEAK(C,IF(PERIOD<5,6,10),1)*0.999,DRAWNULL),COLORGRAY;
XD:IF(PERIOD>2,TROUGH(C,IF(PERIOD<5,6,10),1)*0.999,DRAWNULL),COLORBROWN;
XM:(XU+XD)/2,COLORGRAY,POINTDOT;
DRAWBAND(IF(CROSS(OD0,ID0),OD0,DRAWNULL),RGB(0,0,0),IF(CROSS(OD0,ID0),OD0,DRAWNULL),RGB(0,0,0)),POINTDOT,LINETHICK5,COLORGREEN;
DRAWBAND(IF(CROSS(IU0,OU0),OU0,DRAWNULL),RGB(0,0,0),IF(CROSS(IU0,OU0),OU0,DRAWNULL),RGB(0,0,0)),POINTDOT,LINETHICK5,COLORMAGENTA;
XTB:=XD!=REF(XD,2) && XD=REF(XD,1);
XTS:=XU!=REF(XU,2) && XU=REF(XU,1);
DRAWICON(XTB,MIN(XD,L)*0.99,1);
DRAWICON(XTS,MAX(XU,H)*1.01,2);
04055126.JPG
|