通达信第一号选股源码
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
N:=DATETODAY(DATE);
W:=WEEKDAY<REF(WEEKDAY,1) OR N-REF(N,1)>6;
周KD金:=(周K>周D AND REF(周K<周D,(BARSLAST(W)+1)))
OR (周K>周D AND REF(周K<周D,(BARSLAST(W)+2)))
OR (周K>周D AND REF(周K<周D,(BARSLAST(W)+3)))
OR (周K>周D AND REF(周K<周D,(BARSLAST(W)+4)))
OR (周K>周D AND REF(周K<周D,(BARSLAST(W)+5)))
OR REF(周K>周D,(BARSLAST(W)+5)) AND REF(周K<周D,(BARSLAST(W)+6));
周MAC金:=(周DIF>周DEA AND REF(周DIF<周DEA,(BARSLAST(W)+1)))
OR (周DIF>周DEA AND REF(周DIF<周DEA,(BARSLAST(W)+2)))
OR (周DIF>周DEA AND REF(周DIF<周DEA,(BARSLAST(W)+3)))
OR (周DIF>周DEA AND REF(周DIF<周DEA,(BARSLAST(W)+4)))
OR (周DIF>周DEA AND REF(周DIF<周DEA,(BARSLAST(W)+5)))
OR REF(周DIF>周DEA,(BARSLAST(W)+5)) AND REF(周DIF<周DEA,(BARSLAST(W)+6));
周金:=周KD金 OR 周MAC金;
周或前一周金:=周KD金 OR 周MAC金;
A0:=MACD.DIF;
A1:=MACD.DEA;
A2:=MACD.MACD;
T:=BARSLAST(A0<0 AND A1<0 AND CROSS(A0,A1));
TJ:=EVERY(A2>0,3) AND A2>REF(A2,1) AND REF(A2,1)<REF(A2,2) AND A0>0 AND A1>0 AND A2>0;
XG:COUNT(TJ,T)=1 AND TJ AND 周或前一周金;
