通达信MACDRSI副图源码

以下是通达信MACDRSI副图源码

{R射→→MACD  N:1,100,2}/{射箭封神}

{DRAWBAND(100,RGB(100,100,100),-20,RGB(100,100,100));}

VAR1:=(MA(CLOSE,80)-MA(CLOSE,13)/3);

VAR2:=( MA((CLOSE-VAR1)/VAR1,1));

VAR3:=(CLOSE-LLV(LOW,28))/(HHV(HIGH,28)-LLV(LOW,28))*100;

VAR4:=SMA(VAR3,4,1);

MMA:=EMA(VAR2,12)*0.7;

MMB:=EMA(VAR2,3);

快到底:IF(LLV(MMB-MMA,12)> 0,0,-20),LINETHICK2,COLORGREEN;

底初选股:IF( CROSS(0, LLV(MMB-MMA,12)),10,0),LINETHICK0;

K:=CEILING(C/10);

DIFF:=( EMA(CLOSE,12) - EMA(CLOSE,26))/K*100+50;

DEA:=EMA(DIFF,9);

MACD:= 2*(DIFF-DEA)+50;

20,COLORGRAY,LINETHICK2;

50,POINTDOT,COLORGRAY;

80,COLORGRAY,LINETHICK2;

DRAWBAND(DIFF,RGB(100,00,00),DEA,RGB(00,200,00));

抄底:IF(快到底< 0 AND CROSS(MACD,50) AND VAR4< 18,80,0),COLORCYAN;

DRAWICON( 抄底> 0,35 ,1 );

STICKLINE(MACD< REF(MACD,1)AND MACD> 50,50,MACD,0,1),COLORGREEN;

STICKLINE(MACD< REF(MACD,1)AND MACD< 50,50,MACD,0,1),COLORFFCC33;

STICKLINE(MACD> REF(MACD,1)AND MACD< 50,50,MACD,0,1),COLORYELLOW; 

STICKLINE(MACD> REF(MACD,1)AND MACD> 50,50,MACD,0,1),COLORMAGENTA;

LC:=REF(CLOSE,1);

RSI:((SMA(MAX((CLOSE - LC),0),N,1) / SMA(ABS((CLOSE - LC)),N,1))* 100),COLORMAGENTA,LINETHICK2;

RA1:=REF(RSI,N)=HHV(RSI,N*2+1);  RA2:=REF(RSI,N)=LLV(RSI,N*2+1);  

RB1:=FILTER(RA1,N);        RB2:=FILTER(RA2,N);

RC1:=BACKSET(RB1,N+1);       RC2:=BACKSET(RB2,N+1);

RD1:=FILTER(RC1,N);   RD2:=FILTER(RC2,N);

GD1:=BARSLAST(RD1);    DD1:=BARSLAST(RD2);

GDTS:=IF(RD1,CURRBARSCOUNT,0);

DDTS:=IF(RD2,CURRBARSCOUNT,0);

GDT1:=IF(GD1,REF(GDTS,GD1),GDTS);

DDT1:=IF(DD1,REF(DDTS,DD1),DDTS);

GDCS1:=CONST(GDT1);    DDCS1:=CONST(DDT1);

GINGBUTS1:=REF(GDT1,GD1+1);  DINGBUTS1:=REF(DDT1,DD1+1);

GDCS2:=CONST(GINGBUTS1);  DDCS2:=CONST(DINGBUTS1);

GDCS13:=CONST(REF(RSI,GDCS1-1));  DDCS13:=CONST(REF(RSI,DDCS1-1));

GDCS23:=CONST(REF(RSI,GINGBUTS1-1));  DDCS23:=CONST(REF(RSI,DINGBUTS1-1));

XG1:=BACKSET(ISLASTBAR,GDCS1);  XD1:=BACKSET(ISLASTBAR,DDCS1);

XG2:=BACKSET(ISLASTBAR,GDCS2);  XD2:=BACKSET(ISLASTBAR,DDCS2);

M:=2*N;

RA11:=REF(RSI,M)=HHV(RSI,M*2+1);   RA22:=REF(RSI,M)=LLV(RSI,M*2+1);  

RB11:=FILTER(RA11,M);        RB22:=FILTER(RA22,M);

RC11:=BACKSET(RB11,M+1);       RC22:=BACKSET(RB22,M+1);

RD11:=FILTER(RC11,M);   RD22:=FILTER(RC22,M),NODRAW;

GD11:=BARSLAST(RD11);    DD11:=BARSLAST(RD22);

GDTSS:=IF(RD11,CURRBARSCOUNT,0);

DDTSS:=IF(RD22,CURRBARSCOUNT,0);

GDT11:=IF(GD11,REF(GDTSS,GD11),GDTSS);

DDT11:=IF(DD11,REF(DDTSS,DD11),DDTSS);

GDCS11:=CONST(GDT11);    DDCS11:=CONST(DDT11);   

GINGBUTS11:=REF(GDT11,GD11+1);  DINGBUTS11:=REF(DDT11,DD11+1);

GDCS22:=CONST(GINGBUTS11);  DDCS22:=CONST(DINGBUTS11);

高点压力1:DRAWLINE(CURRBARSCOUNT=GDCS2,RSI,CURRBARSCOUNT=GDCS1,RSI,1) ,COLORRED,LINETHICK1;

低点支撑1:DRAWLINE(CURRBARSCOUNT=DDCS2,RSI,CURRBARSCOUNT=DDCS1,RSI,1),COLORRED,LINETHICK1;

高点压力2:DRAWLINE(CURRBARSCOUNT=GDCS22,RSI,CURRBARSCOUNT=GDCS11,RSI,1) ,COLORYELLOW,LINETHICK1;

低点支撑2:DRAWLINE(CURRBARSCOUNT=DDCS22,RSI,CURRBARSCOUNT=DDCS11,RSI,1),COLORYELLOW,LINETHICK1;

高点压力3:DRAWLINE(CURRBARSCOUNT=GDCS22,RSI,CURRBARSCOUNT=GDCS2,RSI,1) ,COLORGREEN,LINETHICK1;

低点支撑3:DRAWLINE(CURRBARSCOUNT=DDCS22,RSI,CURRBARSCOUNT=DDCS2,RSI,1),COLORGREEN,LINETHICK1;

STICKLINE(XG1,GDCS13,GDCS13,0.5,1),COLORWHITE;

STICKLINE(XG2,GDCS23,GDCS23,0.5,1),COLORYELLOW;

STICKLINE(XD2,DDCS23,DDCS23,0.5,1),COLORMAGENTA;

STICKLINE(XD1,DDCS13,DDCS13,0.5,1),COLORCYAN;