通达信第一号选股源码

以下是通达信第一号选股源码

周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 周或前一周金;