通达信KDJ月周日,捕捉大牛股之警告准确率98%

{公式名称: KDJ月周日

公式描述: 捕捉大牛股之预警准确率98%

月KDJ金叉以后周KDJ第一次死叉是一买，周KDJ金叉以后日KDJ第一次死叉二买。

公式源码:}

 

VAR1:=MA(KDJ.K#MONTH(9,3,3),21);

月D:MA(KDJ.D#MONTH(9,3,3),21),COLORLICYAN;

月J:MA(KDJ.J#MONTH(9,3,3),21),COLOR000080;

DRAWBAND(月D,RGB(0,80,80),月J,RGB(120,0,0));

VAR2:=MA(KDJ.K#WEEK(9,3,3),5);

周D:MA(KDJ.D#WEEK(9,3,3),5),COLOR009900;

周J:MA(KDJ.J#WEEK(9,3,3),5),COLOR000099;

DRAWBAND(周D,RGB(0,130,20),周J,RGB(180,0,80));

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

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

D:SMA(VAR4,3,1),COLORYELLOW;

J:3*VAR4-2*D,COLORMAGENTA;

DRAWBAND(D,RGB(0,180,0),J,RGB(250,0,0));

VAR5:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),7);

VAR6:=HIGH-REF(HIGH,1);

VAR7:=REF(LOW,1)-LOW;

VAR8:=SUM(IF(VAR6>0 AND VAR6>VAR7,VAR6,0),7);

VAR9:=SUM(IF(VAR7>0 AND VAR7>VAR6,VAR7,0),7);

VAR10:=VAR8*100/VAR5;

VAR11:=VAR9*100/VAR5;

VAR12:=MA(ABS(VAR11-VAR10)/(VAR11+VAR10)*100,3);

VAR13:=(VAR12+REF(VAR12,3))/2;

VAR14:=VAR8*100/VAR5;

VAR15:=VAR9*100/VAR5;

VAR16:=MA(ABS(VAR15-VAR14)/(VAR15+VAR14)*100,3);

大牛股:IF(VAR12>90 AND VAR10=0,80,0),LINESTICK,COLORYELLOW;