公式动态 News
联系方式 Contact

云指标公式网

淘宝：iyungs.taobao.com

电话：18020657357

微信：396950280

Q Q：332879389

点击这里给我发消息

网址：www.yzhibiao.com

搜索 Search
你的位置：首页 > 公式动态 > 通达信公式

通达信第一号选股源码

2016-8-10 13:34:24点击：
周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 周或前一周金;