软件名称：[B]#醒目灯－（新手发原创CYC均线选股 源码）[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：7.00 KB
官方主页：Home Page
更新时间：2010-05-23 04:29:24
软件简介:

近一段大跌行情以来，小弟发现CYC成本均线是分析股票走势一个很有利的指标。CYC均线多头排列的强势股往往跌的少涨的多，即使跌了一有机会也经常大幅反弹，而CYC均线空头排列的股票则往往即使有反弹也昙花一现，紧跟着的就是更大幅度的下跌。如果再配合DDE决策中DDX/DDY的连红以及十日飘红数来判断，成功率更高。以下就给出几个CYC多头排列+DDX连红的例子：
鱼跃医疗


国电南瑞



同仁堂



洋河股份



至于空头排列，最近的大跌让绝大多数的股票（大概97%以上）都处于空头排列状态，所以例子举不胜举了，随便举两个身边的人被深套的例子吧：
新世界


巢东股份


中国联通


大家自己看图吧，反正如果股票处于“全多头排列”状态（我自己取的名字，就是说无穷成本均线在最上，五日成本均线在最下，按时间长短依次排列），股价即使是要突破五日成本均线也是很困难的。

根据这种最基本的思路，我尝试着写了有生第一个选股指标（其实对大智慧指标编辑完全没有任何研究，主要依靠着大学锻炼出来的不错的计算机编程能力才慢慢摸索出来的，对大智慧的语法完全不熟，如果有写的不对或者累赘的地方，请各位老师指正）

首先，为了提高本选股指标的灵活性（也是受计算机编程思想的影响很深），设置了很多参数，以下是每个参数的说明：

D1，D2，D3：
CYC成本均线计算的时间单位，默认分别为5，13，34

DAYS：
搜索股价上穿CYC均线或者CYC均线上穿CYC均线的时间区间，默认为5（天之内）

DTPL：(多头排列）
取值为0：选出的股票不限定是否处于多头排列状态（即忽略此过滤条件）
取值为1：CYC(5)（实际上是D1日成本均线，为简便起见以下皆称CYC(5)）> CYC(13) > CYC(34) > CYCMAX（无穷成本均线）
取值为2：CYC(13) > CYC(34) > CYCMAX
取值为3：CYC(34) > CYCMAX


NH:（均线粘合）
取值为0时，选出的股票不限定是否存在均线粘合状态，
取值为1-100（即99.99%），控制均线粘合的紧密程度。

GJSC：（股价上穿）
取值为0：选出的股票不限定是否发生股价上穿成本均线的情况
取值为1：在DAYS内有股价上穿CYC(5)
取值为2：在DAYS内有股价上穿CYC(13)
取值为3：在DAYS内有股价上穿CYC(34)
取值为4：在DAYS内有股价上穿CYCMAX

CYCSC:(均线上穿）
取值为0：选出的股票不限定是否发生成本均线上穿成本均线的情况
取值为1：在DAYS内有CYC(5)上穿CYC(13)
取值为2：在DAYS内有CYC(13)上穿CYC(34)
取值为3：在DAYS内有CYC(34)上穿CYCMAX

DDXSRPH：（DDX十日飘红）
取值为最近10日内DDX红色的天数

DDXLH：（DDX连红）
取值为DDX连红的天数（没有10日的限制）

BBISK：（BBIBOLL的收口）
取值为0时，选出的股票不限定是否存在BBIBOLL收口状态，
取值为1-100（即99.99%），控制BBIBOLL收口的紧密程度。


其中本程序中源码中的NBBIBOLL并不是自带的BBIBOLL，而是我自己进行了小改动的NBBIBOLL，代码如下：
BBI:(CYC(3)+CYC(6)+CYC(12)+cyc(24))/4,colorwhite,linethick2;
UPR:BBI+P*STD(BBI,N),colorred,linethick2;
DWN:BBI-P*STD(BBI,N),colorgreen,linethick2;

以下为指标的源代码

{#------------------------------------华丽分隔线-----------------------------------------------------------------#}
zdcyc:=MAX(cyc(D1),cyc(D2),cyc(D3),maxcyc);{cyc四均线中最大值}
zxcyc:=MIN(cyc(D1),cyc(D2),cyc(D3),maxcyc);{cyc四均线中最小值}
ifnh:=(100*(zdcyc-zxcyc)/zxcyc<NH);{NHD为粘合度（百分比），最小值为0，最大为100，默认为5}

dtpl1:=cyc(D1)>cyc(D2) and cyc(D2)>cyc(D3) and cyc(D3)>maxcyc;{cyc5>cyc13>cyc34>cycmax的多头排列}
dtpl2:=cyc(D2)>cyc(D3) and cyc(D3)>maxcyc;{cyc13>cyc34>cycmax的多头排列}
dtpl3:=cyc(D3)>maxcyc{cyc34>cycmax的多头排列};

gjsccycd1:=COUNT(cross(close,cyc(D1)),DAYS)>=1;{DAYS日内有股价上穿cyc5}
gjsccycd2:=COUNT(cross(close,cyc(D2)),DAYS)>=1;{DAYS日内有股价上穿cyc13}
gjsccycd3:=COUNT(cross(close,cyc(D3)),DAYS)>=1;{DAYS日内有股价上穿cyc34}
gjsccycmax:=COUNT(cross(close,maxcyc),DAYS)>=1;{DAYS日内有股价上穿maxcyc}

cycd1scd2:=count(cross(cyc(D1),cyc(D2)),DAYS)>=1;{DAYS日内有cyc5上穿cyc13}
cycd2scd3:=count(cross(cyc(D2),cyc(D3)),DAYS)>=1;{DAYS日内有cyc13上穿cyc34}
cycd3scmax:=count(cross(cyc(D3),maxcyc),DAYS)>=1;{DAYS日内有cyc34上穿cycmax}

ddxsrphts:=COUNT("DDX.DDX">0,10);{10日之内DDX飘红的天数}
ddxlhts:=LAST("DDX.DDX">0);{DDX连红的天数}

ifbbisk:=(100*("NBBIBOLL.UPR"-"NBBIBOLL.DWN")/"NBBIBOLL.DWN"<BBISK);{BBI收口度，最小0，最大100}

result:=1;

IF(DTPL=0) THEN result:=1;{各种多头排列}
IF(DTPL=1) THEN result:=dtpl1;
IF(DTPL=2) THEN result:=dtpl2;
IF(DTPL=3) THEN result:=dtpl3;  

IF(NH>0) THEN result:=result AND ifnh;{是否粘合}

IF(GJSC=0) THEN result:=result;{各种股价上穿cyc均线}
IF(GJSC=1) THEN result:=result AND gjsccycd1;
IF(GJSC=2) THEN result:=result AND gjsccycd2;
IF(GJSC=3) THEN result:=result AND gjsccycd3;  
IF(GJSC=4) THEN result:=result AND gjsccycmax;  

IF(CYCSC=0) THEN result:=result;{各种cyc均线上穿}
IF(CYCSC=1) THEN result:=result AND cycd1scd2;
IF(CYCSC=2) THEN result:=result AND cycd2scd3;
IF(CYCSC=3) THEN result:=result AND cycd3scmax;

result:=result AND (ddxsrphts>=DDXSRPH);
result:=result AND (ddxlhts>=DDXLH);

IF(BBISK>0) THEN result:=ifbbisk AND result;

xg:result;
{#------------------------------------华丽分隔线-----------------------------------------------------------------#}

[url=http://www.70822.com/soft/sort013/sort05/down-20600.html]#醒目灯－（新手发原创CYC均线选股 源码）[/url]