九毛八公式指标
请老师做个金叉选股公式，选股条件为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;
公式模块：
difw:="macd.dif#week"; deaw:="macd.dea#week"; fca:=filter(cross(difw,deaw),0); sca:=filter(cross(deaw,difw),0); m周金叉:=cross("macd.dif#week","macd.dea#week"); difm:="macd.dif#month"; deam:="macd.dea#month"; fcb:=filter(cross(difm,deam),0); scb:=filter(cross(deam,difm),0); m月金叉:=cross("macd.dif#month","macd.dea#month"); kkw:="kd.k#week",colorred; kdw:="kd.d#week",coloryellow; kcd:=filter(cross(kkw,kdw),0); scd:=filter(cross(kdw,kkw),0); k周金叉:=cross("kdj.k#week","kdj.d#week"); kkm:="kdj.k#month",colorred; kdm:="kdj.d#month",coloryellow; kdb:=filter(cross(kkm,kdm),0); sdb:=filter(cross(kdm,kkm),0); k月金叉:=cross("kdj.k#month","kdj.d#month"); m周金叉 or m月金叉 or k周金叉 or k月金叉;
