你好老师，能写一个选股程序吗？Macd水上金叉，K线一阳串三线，均线粘合！

编码如下（限制条件稍微放宽一点点儿:
ST0:=NAMELIKE('*ST')=0 AND
NAMELIKE('ST')=0 AND
NAMELIKE('SST')=0;
MDIF:=MACD.DIF;
MDEA:=MACD.DEA;
A0:=MDIF>0 AND MDEA>0 AND C>MDIF AND C>MDEA AND CROSS(MDIF,MDEA);
A1:=CROSS(C,MA(C,5)) AND CROSS(C,MA(C,10)) AND CROSS(C,MA(C,20));
A2:=MAX(MAX(MA(C,5),MA(C,10)),MA(C,20))/MIN(MIN(MA(C,5),MA(C,10)),MA(C,20))O AND A0 AND A1 AND A2;
COUNT(XG,3)=1;