通达信顺势而为副图源码
2016-11-16 11:35:55点击:
{顺势而为}
DRAWGBK(C>0, RGB(25,25,112),RGB(25,25,112),0,0,1);
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*400-200;
K:SMA(RSV,3,1),COLORYELLOW,NODRAW;
D:=SMA(K,3,1);
J:3*K-2*D,COLORYELLOW,NODRAW;
DRAWBAND(J,RGB(128,0,0),K,RGB(0,0,255));
LC:=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*400-200,COLORMAGENTA,NODRAW;
RSI2:SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*400-200,COLORMAGENTA,NODRAW;
DRAWBAND(RSI1,RGB(184,134,11),RSI2,RGB(70,130,180));
DI:=(EMA(CLOSE,12)-EMA(CLOSE,26))*100;
DE:=EMA(DI,9);
MD:=2*(DI-DE);
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,1.0,0),COLOR0000AB;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.8,0),COLOR0000BB;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.6,0),COLOR0000CD;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0,4),COLOR0000DD;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.2,0),COLOR0000EC;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.1,0),COLOR0000FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,1.0,0),COLOR00C3FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.8,0),COLOR00CFFF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.6,0),COLOR00D8FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.4,0),COLOR00E2FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.2,0),COLOR00F0FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.1,0),COLOR00FFFF;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,1.0,0),COLORFF00BB;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.8,0),COLORFF00D1;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.6,0),COLORFF00DB;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.4,0),COLORFF00EA;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.2,0),COLORFF00F3;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.1,0),COLORFF00FF;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,1.0,0),COLORFFA400;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.8,0),COLORFFB700;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.6,0),COLORFFC800;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.4,0),COLORFFDB00;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.2,0),COLORFFF000;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.1,0),COLORFFFF00;
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100,COLORLIMAGENTA,LINETHICK1;
DEA:EMA(DIF,9),COLORLIBLUE,LINETHICK1;
MACD:2*(DI-DE),NODRAW;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),COLORWHITE,LINETHICK2;
DRAWICON(CROSS(J,K) AND CROSS(RSI1,RSI2) AND (CROSS(CCI,-100) OR CROSS(CCI,100)),0,9);
200,COLORGREEN,DOTLINE;
150,COLORWHITE,POINTDOT;
100,COLORWHITE,DOTLINE;
0,COLORGRAY,LINETHICK2;
-100,COLORWHITE,DOTLINE;
-150,COLORWHITE,POINTDOT;
-200,COLORGREEN,DOTLINE;
DRAWICON(CROSS(J,K),K,1);
DRAWICON(CROSS(K,J),K,2);
DRAWICON(CROSS(RSI1,RSI2),RSI2,1);
DRAWICON(CROSS(RSI2,RSI1),RSI2,2);
DRAWICON(CROSS(CCI,-100) OR CROSS(CCI,100),CCI,1);
DRAWICON(CROSS(100,CCI),CCI,2);
DRAWTEXT_FIX(ISLASTBAR,0,0.1,0,'顺势而为(KDJ+MACD+CCI+RSI)'),COLORYELLOW;
DRAWGBK(C>0, RGB(25,25,112),RGB(25,25,112),0,0,1);
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*400-200;
K:SMA(RSV,3,1),COLORYELLOW,NODRAW;
D:=SMA(K,3,1);
J:3*K-2*D,COLORYELLOW,NODRAW;
DRAWBAND(J,RGB(128,0,0),K,RGB(0,0,255));
LC:=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*400-200,COLORMAGENTA,NODRAW;
RSI2:SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*400-200,COLORMAGENTA,NODRAW;
DRAWBAND(RSI1,RGB(184,134,11),RSI2,RGB(70,130,180));
DI:=(EMA(CLOSE,12)-EMA(CLOSE,26))*100;
DE:=EMA(DI,9);
MD:=2*(DI-DE);
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,1.0,0),COLOR0000AB;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.8,0),COLOR0000BB;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.6,0),COLOR0000CD;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0,4),COLOR0000DD;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.2,0),COLOR0000EC;
STICKLINE(MD>0 AND MD>=REF(MD,1),0,MD,0.1,0),COLOR0000FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,1.0,0),COLOR00C3FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.8,0),COLOR00CFFF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.6,0),COLOR00D8FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.4,0),COLOR00E2FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.2,0),COLOR00F0FF;
STICKLINE(MD>0 AND MD<REF(MD,1),0,MD,0.1,0),COLOR00FFFF;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,1.0,0),COLORFF00BB;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.8,0),COLORFF00D1;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.6,0),COLORFF00DB;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.4,0),COLORFF00EA;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.2,0),COLORFF00F3;
STICKLINE(MD<0 AND MD>=REF(MD,1),0,MD,0.1,0),COLORFF00FF;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,1.0,0),COLORFFA400;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.8,0),COLORFFB700;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.6,0),COLORFFC800;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.4,0),COLORFFDB00;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.2,0),COLORFFF000;
STICKLINE(MD<0 AND MD<REF(MD,1),0,MD,0.1,0),COLORFFFF00;
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100,COLORLIMAGENTA,LINETHICK1;
DEA:EMA(DIF,9),COLORLIBLUE,LINETHICK1;
MACD:2*(DI-DE),NODRAW;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),COLORWHITE,LINETHICK2;
DRAWICON(CROSS(J,K) AND CROSS(RSI1,RSI2) AND (CROSS(CCI,-100) OR CROSS(CCI,100)),0,9);
200,COLORGREEN,DOTLINE;
150,COLORWHITE,POINTDOT;
100,COLORWHITE,DOTLINE;
0,COLORGRAY,LINETHICK2;
-100,COLORWHITE,DOTLINE;
-150,COLORWHITE,POINTDOT;
-200,COLORGREEN,DOTLINE;
DRAWICON(CROSS(J,K),K,1);
DRAWICON(CROSS(K,J),K,2);
DRAWICON(CROSS(RSI1,RSI2),RSI2,1);
DRAWICON(CROSS(RSI2,RSI1),RSI2,2);
DRAWICON(CROSS(CCI,-100) OR CROSS(CCI,100),CCI,1);
DRAWICON(CROSS(100,CCI),CCI,2);
DRAWTEXT_FIX(ISLASTBAR,0,0.1,0,'顺势而为(KDJ+MACD+CCI+RSI)'),COLORYELLOW;
- 上一篇:涨停回马枪系列三 笑红尘(通达信源码) 2016/11/16
- 下一篇:刀小推荐之二——交易机器人——气宇轩昂! 2016/11/16