通达信变幻色条KDJ副图指标 源码

[复制链接]
查看152 | 回复0 | 2022-7-24 08:31:18 | 显示全部楼层 |阅读模式

通达信变幻色条KDJ副图指标 源码

源码如下:

变幻色条KDJ副图指标
A4:=MA(CLOSE,20);
A5:=(CLOSE>MA(CLOSE,5));
A6:=(MA(CLOSE,5)>MA(CLOSE,10));
A7:=(CLOSE>MA(CLOSE,10));
A8:=(MA(CLOSE,5)>MA(CLOSE,20));
A9:=(CLOSE>MA(CLOSE,20));
A10:=REF(A4,1);
A11:=(A4> A10);
AVX:(((((IF(A5,10,(0 - 10)) + IF(A6,10,(0 - 10))) + IF(A7,10,(0 -10))) +
IF(A8,10,(0 - 10))) + IF(A9,10,(0 - 10))) + IF(A11,10,(0 -10)))+50,COLORFF00FF;
DRAWBAND(AVX,RGB(180,0,180),50,RGB(130,130,130));
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,31,1);
D:SMA(K,3,1),COLORFFFF00,LINETHICK2;
J:3*K-2*D,COLOR00FF00,LINETHICK2;
IF(D>=REF(D,1),D,DRAWNULL),COLOR0000FF,LINETHICK2;
STICKLINE(D>=REF(D,1) AND J>=REF(J,1),J,D,0,0),COLORRED;
STICKLINE(D>=REF(D,1) AND J<REF(J,1),J,D,0,0),COLOR00FF00;
STICKLINE(D<=REF(D,1) AND J>=REF(J,1),J,D,0,0),COLORFF00FF;
STICKLINE(D<=REF(D,1) AND J<REF(J,1),J,D,0,0),COLORFFFFFF;
DRAWICON(CROSS(K,D),D,13);
DRAWICON(CROSS(D,K),D,14);
DRAWICON(CROSS(K,D) AND K<=20,20,23);
0;100;
STICKLINE(1,20,20,2,0),COLORFFFF00;
STICKLINE(1,80,80,2,0),COLOR00FF00;
STICKLINE(1,50,50,2,0),COLORFF0000;
IF(D>=REF(D,1),D,DRAWNULL),COLOR0000FF,LINETHICK2;
IF(J>=REF(J,1),J,DRAWNULL),COLOR0000FF,LINETHICK2;
 

89222261.jpg

89222261.jpg

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则