软件名称：[B]通达信第一号选股源码[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2016-08-10 02:11:10
软件简介:

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

 

[url=http://www.70822.com/soft/sort013/sort05/down-101364.html]通达信第一号选股源码[/url]