将附图指标KDJ金叉或MACD金叉改为选股公式

编写要求：

请老师做个金叉选股公式，选股条件为KDJ周金叉，KDJ月金叉，MACD周金叉，MACD月金叉，这4个任意满足一个或大于一个，通达信用即可，谢谢！公式源码：DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100,COLOR0000FF,LINETHICK2;DEA:EMA(DIF,9),COLORFFFFFF,LINETHICK2;MACD:(DIF-DEA)*2,COLORSTICK;RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:SMA(RSV,3,1),COLORYELLOW;D:SMA(K,3,1),COLORFFFF00;J:3*K-2*D,COLORMAGENTA;DIFW:="MACD.DIF#WEEK";DEAW:="MACD.DEA#WEEK";FCA:=FILTER(CROSS(DIFW,DEAW),0);SCA:=FILTER(CROSS(DEAW,DIFW),0);M周金叉:IF(CROSS("MACD.DIF#WEEK","MACD.DEA#WEEK"),-50,0),COLOR0000FF,LINETHICK2;DRAWTEXT(FCA,-45,' MACD周金叉'),COLOR0000FF;M周死叉:IF(CROSS("MACD.DEA#WEEK","MACD.DIF#WEEK"),-50,0),COLOR00FF00,LINETHICK2;DRAWTEXT(SCA,-45,' MACD周死叉'),COLOR00FF00;DIFM:="MACD.DIF#MONTH";DEAM:="MACD.DEA#MONTH";FCB:=FILTER(CROSS(DIFM,DEAM),0);SCB:=FILTER(CROSS(DEAM,DIFM),0);M月金叉:IF(CROSS("MACD.DIF#MONTH","MACD.DEA#MONTH"),-60,0),COLOR00FFFF,LINETHICK2;DRAWTEXT(FCB,-55,' MACD月金叉'),COLOR00FFFF;M月死叉:IF(CROSS("MACD.DEA#MONTH","MACD.DIF#MONTH"),-60,0),COLORFF6600,LINETHICK2;DRAWTEXT(SCB,-55,' MACD月死叉'),COLORFF6600;KKW:="KD.K#WEEK",COLORRED;KDW:="KD.D#WEEK",COLORYELLOW;KCD:=FILTER(CROSS(KKW,KDW),0);SCD:=FILTER(CROSS(KDW,KKW),0);K周金叉:IF(CROSS("KDJ.K#WEEK","KDJ.D#WEEK"),50,0),COLOR0000FF,LINETHICK2;DRAWTEXT(KCD,50,' KDJ周金叉'),COLOR0000FF;K周死叉:IF(CROSS("KDJ.D#WEEK","KDJ.K#WEEK"),50,0),COLOR00FF00,LINETHICK2;DRAWTEXT(SCD,50,' KDJ周死叉'),COLOR00FF00;KKM:="KDJ.K#MONTH",COLORRED;KDM:="KDJ.D#MONTH",COLORYELLOW;KDB:=FILTER(CROSS(KKM,KDM),0);SDB:=FILTER(CROSS(KDM,KKM),0);K月金叉:IF(CROSS("KDJ.K#MONTH","KDJ.D#MONTH"),60,0),COLOR00FFFF,LINETHICK2;DRAWTEXT(KDB,60,' KDJ月金叉'),COLOR00FFFF;K月死叉:IF(CROSS("KDJ.D#MONTH","KDJ.K#MONTH"),60,0),COLORFF6600,LINETHICK2;DRAWTEXT(SDB,60,' KDJ月死叉'),COLORFF6600;

解答：