初版出来后有童鞋说信号少了,经过几天的重新调试修整后增强版来了。增强版主要作了下面几项改进:
1、对底部的第一次涨停信号进行筛选,把位置好、板质高的信号作为正式的"龙抬头"信号放出,不仅大大增加了信号量,还第一时间抓住了强势股的反弹时机,不管妖
股、牛股、普通股,一一吞进,一个都不能少
2、改进了算法,选股速度大为提高
3、优化了各种系数,信号更准确
4、最最主要的,开放了源码
不改不知道,一试吓一跳。把前期的妖股们出来遛一遛,众妖们居然一一表示臣服。
各位童鞋自个儿看贴图和文件头说明文档吧:
{
{参数定义}
N:=15; {两头最大间距数}
SWITCH1:=1; {龙抬头开关}
SWITCH2:=1; {龙回头开关}
SWITCH3:=1; {再回头开关}
{涨停判断}
ZT:=C/REF(C,1)>1.095 AND C=H;
{计算涨停位置}
ZTCOUNT:=BARSLAST(ZT);
ZTPOS:=IF(ZT, 1, 0);
{寻找第一个涨停}
FIRSTZT:=IF(ZT, 1, 0);
FOR I=1 TO N DO BEGIN
IF REF(ZT, I) THEN BEGIN
FIRSTZT:=1;
BREAK;
END;
END;
{寻找第二个涨停}
SECONDZT:=0;
IF FIRSTZT=1 THEN BEGIN
FOR I=1 TO N DO BEGIN
IF REF(ZT, I) AND REF(FIRSTZT, I)=0 THEN BEGIN
SECONDZT:=1;
BREAK;
END;
END;
END;
{寻找第三个涨停}
THIRDZT:=0;
IF SECONDZT=1 THEN BEGIN
FOR I=1 TO N DO BEGIN
IF REF(ZT, I) AND REF(SECONDZT, I)=0 THEN BEGIN
THIRDZT:=1;
BREAK;
END;
END;
END;
{信号输出}
龙抬头:IF(SWITCH1=1 AND FIRSTZT=1 AND REF(FIRSTZT,1)=0, 80, 0), COLORBROWN;
龙回头:IF(SWITCH2=1 AND SECONDZT=1 AND REF(SECONDZT,1)=0, 60, 0), COLORRED;
再回头:IF(SWITCH3=1 AND THIRDZT=1 AND REF(THIRDZT,1)=0, 40, 0), COLORGREEN;
{画线}
DRAWICON(龙抬头>0, 80, 1);
DRAWICON(龙回头>0, 60, 1);
DRAWICON(再回头>0, 40, 1);
{坐标线}
DRAWTEXT(ISLASTBAR, 80, '龙抬头'), COLORBROWN;
DRAWTEXT(ISLASTBAR, 60, '龙回头'), COLORRED;
DRAWTEXT(ISLASTBAR, 40, '再回头'), COLORGREEN;