DRAWGBK(CLOSE,COLORRGB(10,160,0),COLORRGB(25,15,0),1);
A1:="KD.K#DAY"(9,3,3);
A2:="KD.D#DAY"(9,3,3);
A3:="KD.K#WEEK"(9,3,3);
A4:="KD.D#WEEK"(9,3,3);
A5:="KD.K#MONTH"(9,3,3);
A6:="KD.D#MONTH"(9,3,3);
STICKLINE( A1>A2,70 ,100 ,10 ,0 ),Color000085;
STICKLINE( A1<A2,70 ,100 ,10 ,0 ),Color008500;
STICKLINE( A3>A4,70 ,30 ,10 ,0 ),Color000085;
STICKLINE( A3<A4,70,30 ,10 ,0 ),Color008500;
STICKLINE( A5>A6,0 ,30 ,10 ,0 ),Color000085;
STICKLINE( A5<A6,0 ,30 ,10 ,0 ),Color008500;
STICKLINE( CLOSE>0,70 ,70 ,10 ,0 ),COLORBLACK;
STICKLINE( CLOSE>0,30,30,10,0 ),COLORBLACK;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,P1,1),colorwhite,LINETHICK2;
D:SMA(K,P2,1),coloryellow,LINETHICK2;
J:(3*K-2*D),colorff00ff,LINETHICK3;
上面日Ｋ:A1,coloryellow,linethick0;
日Ｄ:A2,coloryellow,linethick0;
中间周Ｋ:A3,colorwhite,linethick0;
周Ｄ:A4,colorwhite,linethick0;
下面月Ｋ:A5,colorgreen,linethick0;
月Ｄ:A6,colorgreen,linethick0;

周J:=(3*A3-2*A4),colorff00ff,LINETHICK3;
月J:=(3*A5-2*A6),colorff00ff,LINETHICK3;

var1w:=1;

EXPLAIN(c>0  ,'            迈克会员VIP指标解盘  '),ColorFFFF;

EXPLAIN(c>0  ,'        〓 日周月 KDJ 形态分析 〓 '),ColorMAGENTA;
{---------------------------------------------------------------}
var1w:=1;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
日K:=SMA(RSV,P1,1),colorwhite,LINETHICK2;
日D:=SMA(K,P2,1),coloryellow,LINETHICK2;
日J:=(3*K-2*D),colorff00ff,LINETHICK3;
A1:="KD.K#DAY"(9,3,3);
A2:="KD.D#DAY"(9,3,3);
A3:="KD.K#WEEK"(9,3,3);
A4:="KD.D#WEEK"(9,3,3);
A5:="KD.K#MONTH"(9,3,3);
A6:="KD.D#MONTH"(9,3,3);
周J:=(3*A3-2*A4),colorff00ff,LINETHICK3;
月J:=(3*A5-2*A6),colorff00ff,LINETHICK3;
explainex(日J and var1w,'日J：',日J,1,0),colorff;
explainex(周J and var1w,'周J：',周J,1,0),colorff;
explainex(月J and var1w,'月J：',月J,1,0),colorff;
EXPLAIN(日J>REF(日J,1),'日J:向上'),colorFF;
EXPLAIN(日J<REF(日J,1)*0.985,'日J:向下'),colorFFFFFF;
EXPLAIN(周J>REF(周J,5),'周J:向上'),colorFF;
EXPLAIN(周J<REF(周J,5)*0.985,'周J:向下'),colorFFFFFF;
EXPLAIN(月J>REF(月J,20),'月J:向上'),colorFF;
EXPLAIN(月J<REF(月J,20)*0.985,'月J:向下'),colorFFFFFF;
explain(c>0 and var1w,'******************************************************');
explain(日J>日D  and var1w,'日线                 金叉中'),colorff;
explain(日J<日D  and var1w,'日线                 死叉中'),colorffffff;
explain(周J>A4  and var1w,'周线                  金叉中'),colorff;
explain(周J<A4  and var1w,'周线                  死叉中'),colorffffff;
explain(月J>A6  and var1w,'月线                  金叉中'),colorff;
explain(月J<A6  and var1w,'月线                  死叉中'),colorffffff;
explain(c>0 and var1w,'******************************************************');