将该大智慧MACD月线选股公式改为通达信

编写要求：

月线选股，源码如下： ST:=STRFIND(stkname,'ST',1)>0; S:=STRFIND(stkname,'S',1)>0; A:=CROSS(C,MA(C,60)) AND "MACD.MACD">REF("MACD.MACD",1) AND REF("MACD.MACD",1)>REF("MACD.MACD",2) AND BETWEEN("MACD.MACD",0,8); B:=BETWEEN((MA(C,60)-C)/C*100,0,8) AND "MACD.MACD">REF("MACD.MACD",1) AND REF("MACD.MACD",1)>REF("MACD.MACD",2) AND BETWEEN("MACD.MACD",0,8); XG:A AND not(ST) and not(S) OR B AND not(ST) and not(S);

股票网解答：

XX:=IF(NAMELIKE('S'),1,0);

YY:=IF(NAMELIKE('ST'),1,0);

A:=CROSS(C,MA(C,60)) AND "MACD.MACD">REF("MACD.MACD",1) AND REF("MACD.MACD",1)>REF("MACD.MACD",2) AND BETWEEN("MACD.MACD",0,8);

B:=BETWEEN((MA(C,60)-C)/C*100,0,8) AND "MACD.MACD">REF("MACD.MACD",1) AND REF("MACD.MACD",1)>REF("MACD.MACD",2) AND BETWEEN("MACD.MACD",0,8);

XG:A AND XX=0 and YY=0 OR B AND XX=0 and YY=0;

 

>