同花顺KD强弱副图指标 KDJ另一种形式表达 源码

{"求KDJ值";}
N:=9;
VAR4:=LLV(LOW,N);
VAR5:=HHV(HIGH,N);
rsv:=(CLOSE-VAR4)/(VAR5-VAR4)*100;
K:SMA(rsv,3,1),coloryellow,nodraw;
D:SMA(K,3,1),colorliblue,NODRAW;
PARTLINE(D,D>REF(D,1),coloryellow,D<=REF(D,1),colorliblue),LINETHICK1;
J:=3*K-2*D;
IF(J<0) J=0;
IF(J>100) J=100;
J9:J,colormagenta;
{"增加5日的J线";}
RSV5=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
KA5:=SMA(RSV5,3,1);
DA5:=SMA(KA5,3,1);
JA5:=3*KA5-2*DA5;
IF(JA5<0) JA5=0;
IF(JA5>100) JA5=100;
J5:JA5,colorgray;
{"K值柱状线";}
STICKLINE(K>REF(K,1),K ,REF(K,1),6,0),colorred;
STICKLINE(K<=REF(K,1),K ,REF(K,1),6,0),colorgreen;
STICKLINE(CROSS(k,d),k,REF(k,1),6,0),coloryellow;
STICKLINE(CROSS(D,K),k,REF(k,1),6,0),colorblue;
{"强弱分区";}
//顶:105,colorgray,DRAWNULL;
强势区:80,colorgray;
强弱分界:50,coloryellow;
弱势区:20,colorgray;
//底:0,DRAWNULL;
K值企稳:IF((K>REF(K,1)) AND (REF(K,1)<=REF(K,2)) AND (REF(K,2)<=REF(K,3)),5,0),coloryellow;//COLOR99CC99;
K值低位:IF((K>REF(K,1)) AND (REF(K,1)<=REF(K,2)) AND REF(K,1)<20,-5,0),colorred,LINETHICK1;
高位下跌:IF((D<REF(D,1)) AND (REF(D,1)>=REF(D,2)) AND REF(K,1)>80,95,100),colorgreen,Linethick1;
{"均线系统一,操盘线BBI";}
VAR1:=(2*C+H+L+O)/5;
VAR2:=(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,20)+MA(CLOSE,30))/4;
操盘线:IF(VAR2,0,DRAWNULL),colorgray,LINETHICK3;
红买1:IF(VAR1>VAR2,0,DRAWNULL), colorred,LINETHICK3;
蓝卖:IF(VAR1<VAR2,0,DRAWNULL),colorFFFF00,LINETHICK3;
{"均线系统二,30日均线";}
VAR6:=(2*C+H+L+O)/5;
MA30:=MA(C,30);
生命线:IF(MA30,100,DRAWNULL),colorgray,LINETHICK3;
红买2:IF(VAR6>MA30,100,DRAWNULL), colorred,LINETHICK3;
绿卖:IF(VAR6<MA30,100,DRAWNULL),colorgreen,LINETHICK3;
{"ZIG未来函数";}
VARC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND
(REF(ZIG (3,5),2)<=REF(ZIG(3,5),3));
VARD:=(ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND
(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3));
//STICKLINE((VARC=1),100,105,10,1),colorred;
//STICKLINE((VARD=1),100,105,10,1),colorgreen;
DRAWTEXT(VARC,106,"B"),colorred;
DRAWTEXT(VARD,106,"S"),colorgreen;
//DRAWICON(VARc,109,7);
//DRAWICON(VARd,109,8);
{"资金标枪bias线平均";}{"6日乖离5日平均再平均使其圆滑";}
//VARX:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;{"6日的BIAS";}
//指标BIAS:EMA(EMA(VARX,5),5)*4, COLORSTICK;{"原放大参数是3";}

原理解析：
{"求KDJ值"
}N赋值:9
VAR4赋值:N日内最低价最低值
VAR5赋值:N日内最高价最高值
RSV赋值:(收盘价-VAR4)/(VAR5-VAR4)*100
RSV的3日[1日权重]移动平均
K的3日[1日权重]移动平均
PARTLINE(D,D>1日前的D,画黄色,D<=1日前的D,COLORLIBLUE),LINETHICK1
J赋值:3*K-2*D
IF(J<0) J=0
IF(J>100) J=100
J9:J,画洋红色
{"增加5日的J线"
}RSV5=(收盘价-5日内最低价最低值)/(5日内最高价最高值-5日内最低价最低值)*100
RSV5的3日[1日权重]移动平均
KA5的3日[1日权重]移动平均
JA5:=3*KA5-2*DA5
IF(JA5<0) JA5=0
IF(JA5>100) JA5=100
J5:JA5,COLORGRAY
{"K值柱状线"
}STICKLINE(K>1日前的K,K ,1日前的K,6,0),COLORRED
STICKLINE(K<=1日前的K,K ,1日前的K,6,0),画绿色
STICKLINE(K上穿D,K,1日前的K,6,0),画黄色
STICKLINE(D上穿K,K,1日前的K,6,0), 画蓝色
{"强弱分区"
输出}//顶:105,COLORGRAY,DRAWNULL
输出强势区:80,COLORGRAY
输出强弱分界:50,画黄色
输出弱势区:20,COLORGRAY
输出//底:0,DRAWNULL
K值企稳:IF((K>1日前的K) AND (1日前的K<=2日前的K) AND (2日前的K<=3日前的K),5,0),画黄色
//COLOR99CC99
K值低位:IF((K>1日前的K) AND (1日前的K<=2日前的K) AND 1日前的K<20,-5,0),COLORRED,LINETHICK1
输出高位下跌:IF((D<1日前的D) AND (1日前的D>=2日前的D) AND 1日前的K>80,95,100),画绿色,LINETHICK1
{"均线系统一,操盘线BBI"
}VAR1赋值:(2*C+H+L+O)/5
VAR2赋值:(收盘价的5日简单移动平均+收盘价的10日简单移动平均+收盘价的20日简单移动平均+收盘价的30日简单移动平均)/4
如果VAR2返回0否则返回DRAWNULL
如果VAR1>VAR2返回0否则返回DRAWNULL
如果VAR1{"均线系统二,30日均线"
}VAR6赋值:(2*C+H+L+O)/5
MA30赋值:C的30日简单移动平均
如果MA30返回100否则返回DRAWNULL
如果VAR6>MA30返回100否则返回DRAWNULL
如果VAR6{"ZIG未来函数"
}VARC赋值:(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND(REF(ZIG (3,5),2)<=REF(ZIG(3,5),3))
VARD赋值:(ZIG(3,5)=REF(ZIG(3,5),2)) AND(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3))
//STICKLINE((VARC=1),100,105,10,1),COLORRED
//STICKLINE((VARD=1),100,105,10,1),画绿色
当满足条件VARC时,在106和"B"位置书写文字
当满足条件VARD时,在106和"S"位置书写文字
当满足条件VARC时,在109和7之间画图标
当满足条件VARD时,在109和8之间画图标
{"资金标枪BIAS线平均"
}{"6日乖离5日平均再平均使其圆滑"
}//VARX赋值:(收盘价-收盘价的6日简单移动平均)/收盘价的6日简单移动平均*100
{"6日的BIAS"
输出}//指标BIAS:VARX的5日指数移动平均,5)*4, COLORSTICK
{"原放大参数是3"
}