帮忙编写一下多空变色

 来源:程序化99

参考：

K:=(C+H+L)/3;
D:=EMA(K,8);
N1:EMA(EMA(C,8),3),COLORGRAY;
N2:EMA(EMA(EMA(C,8),3),3),COLORGRAY;
N3:EMA(EMA(EMA(EMA(C,8),3),3),3),COLORGRAY;
N4:EMA(EMA(EMA(EMA(EMA(C,8),3),3),3),3),COLORGRAY;
N5:EMA(EMA(EMA(EMA(EMA(EMA(C,8),3),3),3),3),3),COLORGRAY;
N6:EMA(EMA(EMA(EMA(EMA(EMA(EMA(C,8),3),3),3),3),3),3),COLORGRAY;
DRAWCOLORLINE(N1>REF(N1,1),N1,COLORRED,COLORGREEN);
DRAWCOLORLINE(N2>REF(N2,1),N2,COLORRED,COLORGREEN);
DRAWCOLORLINE(N3>REF(N3,1),N3,COLORRED,COLORGREEN);
DRAWCOLORLINE(N4>REF(N4,1),N4,COLORRED,COLORGREEN);
DRAWCOLORLINE(N5>REF(N5,1),N5,COLORRED,COLORGREEN);
DRAWCOLORLINE(N6>REF(N6,1),N6,COLORRED,COLORGREEN);