出现第一个红柱时改选股

编写要求：

股票网解答：

网友求助：

请高手在出现第一个红柱的时候改个选股 谢谢
源码

AAA:=MAX(DYNAINFO(3),DYNAINFO(5));
BBB:=MIN(DYNAINFO(3),DYNAINFO(6));
CCC:=AAA-BBB;
中轨:=(AAA+BBB)/2,COLOR999900;
DIFF:=(EMA(CLOSE,12)-EMA(CLOSE,26))*500/EMA(CLOSE,26);
DEAA:=EMA(DIFF,9);MACD:=(DIFF-DEAA)/4;
STICKLINE(MACD>=REF(MACD,1)AND MACD<=0,中轨,中轨+MACD,2,1),COLOR009999;
STICKLINE(MACD>REF(MACD,1)AND MACD>=0,中轨,中轨+MACD,2,1),COLOR0000DD;
STICKLINE(MACD<REF(MACD,1)AND MACD<0,中轨,中轨+MACD,2,0)COLORDDDD00;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,中轨,中轨+MACD,2,0),COLORDDDD00;
阻力:=BBB+CCC*7/8,COLOR00DD00;
支撑:=BBB+CCC*1/8,COLOR00DD00;
上顶:=BBB+CCC*2/3,COLOR999900;
下底:=BBB+CCC/3,COLOR999900;
价:=C,COLOR00FFFF;

解答如下：

AAA:=MAX(DYNAINFO(3),DYNAINFO(5));
BBB:=MIN(DYNAINFO(3),DYNAINFO(6));
中轨:=(AAA+BBB)/2,COLOR999900;
DIFF:=(EMA(CLOSE,12)-EMA(CLOSE,26))*500/EMA(CLOSE,26);
DEAA:=EMA(DIFF,9);
MACD:=(DIFF-DEAA)/4;
TJ:=MACD>REF(MACD,1)AND
MACD>=0;
XG:TJ AND NOT(REF(TJ,1));

>