五里头五号星日同辉公式的共振选股

编写要求：

源码如下：天:80,COLORBLUE,LINETHICK4,POINTDOT;海:20,COLORFF00FF,LINETHICK4,POINTDOT;ZKK:"KD.K#WEEK"(9,3,3),COLORRED;ZKD:"KD.D#WEEK"(9,3,3),COLORYELLOW;KCD:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)<30,13);KCD1:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)>30,13);DRAWICON(KCD1,ZKD,23);XG1:=KCD;STICKLINE(XG1,20,10,4,0),COLOR000099;STICKLINE(XG1,20,10,2,0),COLOR0000BB;STICKLINE(XG1,20,10,1,0),COLOR0000DD;STICKLINE(XG1,0,20,0.3,0),COLOR0000FF;DRAWTEXT(XG1,20,'K买'),COLOR0000FF;SCD:=FILTER(CROSS(ZKD,ZKK) AND REF(ZKK,1)>78,13);STICKLINE(SCD,90,80,4,0),COLOR009900;STICKLINE(SCD,90,80,2,0),COLOR00BB00;STICKLINE(SCD,90,80,1,0),COLOR00DD00;STICKLINE(SCD,100,80,0.3,0),COLOR00FF00;DRAWTEXT(SCD,95,'K卖'),COLOR00FF00;DIFW:="MACD.DIF#WEEK"(12,26,9);DEAW:="MACD.DEA#WEEK"(12,26,9);FCA:=FILTER(CROSS(DIFW,DEAW) AND REF(DEAW,1)<0,13);XG2:=FCA;STICKLINE(XG2,10,20,4,0),COLOR990099;STICKLINE(XG2,10,20,2,0),COLORBB00BB;STICKLINE(XG2,10,20,1,0),COLORDD00DD;STICKLINE(XG2,10,20,0.3,0),COLORFF00FF;DRAWTEXT(XG2,10,'M买'),COLORFF00FF;SCA:=FILTER(CROSS(DEAW,DIFW) AND REF(DIFW,1)>0,13);STICKLINE(SCA,90,80,4,0),COLOR999900;STICKLINE(SCA,90,80,2,0),COLORBBBB00;STICKLINE(SCA,90,80,1,0),COLORDDDD00;STICKLINE(SCA,90,80,0.3,0),COLORFFFF00;DRAWTEXT(SCA,83,'M卖'),COLORFFFF00;STICKLINE(XG1 AND XG2,20,80,0.1,0 ),COLORFF00FF;DRAWTEXT(XG1 AND XG2,50,'K.M买'),COLORRED;DRAWTEXT(XG1 AND XG2,43,'全仓'),COLORRED;STICKLINE(SCD AND SCA,20,80,0.1,0 ),COLOR00FF00;DRAWTEXT(SCD AND SCA,50,'K.M卖'),COLORFF0000;DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIFF,9);TJ1:=DIFF>DEA;SA1:=DIFFD;SA2:=KRSI2;SA3:=RSI1LWR2;SA4:=LWR1BBI;SA5:=CMMM;SA6:=MMS

解答：

 ZKK:="KD.K#WEEK"(9,3,3);
ZKD:="KD.D#WEEK"(9,3,3);
KCD:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)<30,13);
XG1:=KCD;
DIFW:="MACD.DIF#WEEK"(12,26,9);
DEAW:="MACD.DEA#WEEK"(12,26,9);
FCA:=FILTER(CROSS(DIFW,DEAW) AND REF(DEAW,1)<0,13);
XG2:=FCA;
RSV:=(CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100;
K:=SMA(RSV,3,1);
KM:=XG1 AND XG2;
全仓:=XG1 AND XG2;
M买:=XG2,10;
K买:=XG1,20;
KM AND 全仓 AND M买 AND K买;