帮我写一个KD金叉K线 变红KD死叉K线变绿的看盘 公式。

代人发帖

请教：帮我写一个KD金叉K线 变红KD死叉K线变绿的看盘 公式。

技术009

[PEL] 复制代码

input:n(9,1,100,10),p1(3,2,40,4),p2(3,2,40,4)；//参数设置
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,P1,1);
D:=SMA(K,P2,1);
J:=3*K-2*D,NODRAW;
kdjjc:=cross(k,d),NODRAW;//kdj金叉
kdjsc:=cross(d,k),NODRAW;
 
 
cd:=c>=o;//区分阴阳线的，与上面条件无关
STICKLINE(kdjjc ,C,o,8,if(cd,1,0),COLORRED);//绘制柱体
//绘制上下影线
STICKLINE(kdjjc,if(not(cd),O,c),h,0,if(cd,1,0),COLORRED);
STICKLINE(kdjjc,if(cd,O,c),L,0,if(cd,1,0),COLORRED);

STICKLINE(kdjsc ,C,o,8,if(cd,1,0),COLORGREEN);//绘制柱体
//绘制上下影线
STICKLINE(kdjsc,if(not(cd),O,c),h,0,if(cd,1,0),COLORGREEN);
STICKLINE(kdjsc,if(cd,O,c),L,0,if(cd,1,0),COLORGREEN);