通达信成交量KDJ公式(原创 副图 原码 贴图)
成交量KDJ (原创),并分级显示换手率,公式原理及使用方法与kdj相似
{量KDJ}
量:V,VOLSTICK;
RSV:=MA(V,7)*1.5;
K:SMA(RSV,3,1),COLORFFFFFF,LINETHICK1;
D:SMA(K,3,1),COLORYELLOW,LINETHICK1;
J:(3*K-2*D),COLORFF00FF,LINETHICK1;
IF(K<D,K,DRAWNULL),COLOR00FF00,LINETHICK1;
IF(K<D,D,DRAWNULL),COLORFFFF00,LINETHICK1;
IF(K<D,J,DRAWNULL),COLOR008000,LINETHICK1;
换手率: HSL,COLORYELLOW;
{分级显示换手率}
开关1:=IF(HSL<=1,1,0);
开关2:=IF(HSL>1 AND HSL<=3,1,0);
开关3:=IF(HSL>3 AND HSL<=5,1,0);
开关4:=IF(HSL>5 AND HSL<=8,1,0);
开关5:=IF(HSL>8 AND HSL<=10,1,0);
开关6:=IF(HSL>10 AND HSL<=15,1,0);
开关7:=IF(HSL>15 AND HSL<=25,1,0);
开关8:=IF(HSL>25,1,0);
DRAWTEXT_FIX(1,0.5,0,0,'█████████████'),COLOR3C3C3C;{,COLORBROWN背景}
QQ1:=STRCAT(STRCAT('(0,1]换手低迷:● ',CON2STR(HSL,2)),0);
QQ2:=STRCAT(STRCAT('(1,3]换手温和:● ',CON2STR(HSL,2)),0);
QQ3:=STRCAT(STRCAT('(3,5]换手异动:■ ',CON2STR(HSL,2)),0);
QQ4:=STRCAT(STRCAT('(5,8]换手活跃:■ ',CON2STR(HSL,2)),0);
QQ5:=STRCAT(STRCAT('(8,10]换手非常活跃:▲ ',CON2STR(HSL,2)),0);
QQ6:=STRCAT(STRCAT('(10,15]换手高度活跃:▲ ',CON2STR(HSL,2)),0);
QQ7:=STRCAT(STRCAT('(15,25]换手极度活跃:★ ',CON2STR(HSL,2)),0);
QQ8:=STRCAT(STRCAT('(25,...)巨量换手:★ ',CON2STR(HSL,2)),0);
换手开关:=IF(开关1,QQ1,IF(开关2,QQ2,IF(开关3,QQ3,IF(开关4,QQ4,IF(开关5,QQ5,IF(开关6,QQ6,IF(开关7,QQ7,QQ8)))))));
DRAWTEXT_FIX(ISLASTBAR,0.5,0,0,换手开关),COLORYELLOW;