薛斯通道主图－精品通达信指标公式源码分享

{薛斯通道主图 M1: 80,120,102 M2: 2,20,7 N: 1,1000,120}   

AAA:=MA((2*CLOSE+HIGH+LOW)/4,5);    

通道1:AAA*M1/100;    

通道2:AAA*(200-M1)/100;    

CCC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);    

DDD:=DMA(CLOSE,CCC);    

通道3:(1+M2/100)*DDD;    

通道4:(1-M2/100)*DDD;   

{BBI}   

涨:IF(MA(BBI,1)>REF(MA(BBI,1),1),MA(BBI,1),DRAWNULL),COLORRED,LINETHICK2;   

平:IF(MA(BBI,1)=REF(MA(BBI,1),1),MA(BBI,1),DRAWNULL),COLOR00FFFF,LINETHICK3;   

跌:IF(MA(BBI,1)<REF(MA(BBI,1),1),MA(BBI,1),DRAWNULL),COLORGREEN,LINETHICK2;     

K:=BARSLAST(CURRBARSCOUNT=N);   

GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));   

DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));   

KJ:=GD-DD;   

GD4:=IF(CURRBARSCOUNT<=N/2,GD,DRAWNULL);   

平衡:IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;   

压力:IF(CURRBARSCOUNT<=N,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;   

支撑:IF(CURRBARSCOUNT<=N,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;   

高:IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLOR00FFFF,POINTDOT;   

低:IF(CURRBARSCOUNT<=N,DD,DRAWNULL),COLOR00FF00,POINTDOT;   

低涨:IF(CURRBARSCOUNT<=N,(C/LLV(LOW,K)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;   

天数:BARSLAST(L=DD),COLORCYAN,NODRAW;   

MCST:DMA((AMOUNT/(VOL*100)),VOL/CAPITAL),COLORWHITE,POINTDOT,LINETHICK4;   

{以下设置主图显示方式}   

STICKLINE(CURRBARSCOUNT=N,GD,DD,0,-1),COLORGREEN;   

STICKLINE(CURRBARSCOUNT=N/2,GD,DD,0,-1),COLORGREEN;   

STICKLINE(CURRBARSCOUNT=1,GD,DD,0,-1),COLORGREEN;   

STICKLINE(CURRBARSCOUNT<=N,平衡,平衡,3,-1),COLORWHITE;   

STICKLINE(CURRBARSCOUNT<=N/2,压力,压力,3,-1),COLORRED;   

STICKLINE(CURRBARSCOUNT<=N/2,支撑,支撑,3,-1),COLORGREEN;   

{彩色K线}   

TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);   

TYX4:=MA((C+L+O+H)/4,13);   

TYX5:=EMA((C+L+O+H)/4,21);   

{空心红}   

STICKLINE(C<TYX5 AND C>O,H,L,0,0),COLORRED;   

STICKLINE(C<TYX5 AND C>O,C,O,3,1),COLORRED;    

{深绿}   

STICKLINE(C<TYX5 AND C<O,H,L,0,0),COLOR007700;   

STICKLINE(C<TYX5 AND C<O,C,O,3,0),COLOR005500;   

STICKLINE(C<TYX5 AND C<O,C,O,2,0),COLOR006600;   

STICKLINE(C<TYX5 AND C<O,C,O,1,0),COLOR007700;   

{蓝}   

STICKLINE(C>TYX5 AND C<O,H,L,0,0),COLORFFDD44;   

STICKLINE(C>TYX5 AND C<O,C,O,3,0 ),COLORFF7700;   

STICKLINE(C>TYX5 AND C<O,C,O,2,0 ),COLORFFAA22;   

STICKLINE(C>TYX5 AND C<O,C,O,1 ,0 ),COLORFFDD44;    

{黄}   

STICKLINE(C>TYX5 AND C>O,H,L,0,0 ),COLOR00EEFF;   

STICKLINE(C>TYX5 AND C>O,C,O,3,0 ),COLOR00AAFF;    

STICKLINE(C>TYX5 AND C>O,C,O,2,0 ),COLOR00CCFF;    

STICKLINE(C>TYX5 AND C>O,C,O,1,0 ),COLOR00EEFF;   

{粉红}   

STICKLINE(C>TYX4 AND C>O,H,L,0,0),COLORFF66AA;   

STICKLINE(C>TYX4 AND C>O,C,O,3,0 ),COLORFF11FF;   

STICKLINE(C>TYX4 AND C>O,C,O,2,0 ),COLORFF44FF;   

STICKLINE(C>TYX4 AND C>O,C,O,1,0 ),COLORFF66FF;    

{亮灰}   

STICKLINE(C>TYX4 AND C<O,H,L,0,0),COLOR999999;   

STICKLINE(C>TYX4 AND C<O,C,O,3,0),COLOR555555;   

STICKLINE(C>TYX4 AND C<O,C,O,2,0),COLOR777777;   

STICKLINE(C>TYX4 AND C<O,C,O,1,0),COLOR999999;   

{深红}   

STICKLINE(C>TYX3 AND C>O,H,L,0,0),COLOR0000DD;    

STICKLINE(C>TYX3 AND C>O,C,O,3,0),COLOR000099;   

STICKLINE(C>TYX3 AND C>O,C,O,2,0),COLOR0000BB;   

STICKLINE(C>TYX3 AND C>O,C,O,1,0),COLOR0000DD;   

{涨跌停K线}   

STICKLINE((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,1,0),COLORYELLOW;   

STICKLINE((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,1,0),COLORWHITE;   

{突破}   

STICKLINE(REF(COUNT(C<TYX3,5)=5,1) AND C>TYX3 AND C>O,C,O,1,0),COLOR00CCFF;