顶分型预警公式源码(修改更新)

该公式用于自己持有的股票预警，提醒已形成顶分型，注意卖出。用于选股没有什么意义。

前面的发表的公式有错误，感谢网友的提醒。这次在四款软件上通过的测试，并进行选股，没有再发现有问题。下面的公式是大智慧L2用的。其他软件最后一句要更改，具体见公式尾部替换说明。请下载过的网友重新下载。对给您带来的不便，深表歉意！2009.4.28



{顶分型 预警}
V00:= HIGH>REF(HIGH,1) AND LOW>REF(LOW,1);
V01:= HIGH<REF(HIGH,1) AND LOW<REF(LOW,1);
V02:= REF(HIGH,2) > HIGH AND REF(LOW,2) > LOW AND REF(HIGH,2) > REF(HIGH,1) AND REF(LOW,2) < REF(LOW,1);

V1:= COUNT(V00,4)>=2 AND HHVBARS(HIGH,4) = 1 AND V01;
V2:= COUNT(V00,5)>=2 AND HHVBARS(HIGH,5) = 2 AND V02;
V3:= COUNT(V00,5)>=2 AND HHVBARS(HIGH,5) = 1 AND V01;
V4:= COUNT(V00,6)>=2 AND HHVBARS(HIGH,6) = 2 AND V02;

XG:CURRENTTIME>092530 AND (V1 OR V2 OR V3 OR V4)
AND STRFIND(stkname,'ST',1)=0 AND STRFIND(stkname,'S',1)=0 AND DYNAINFO(4)<>0;



同花顺：

XG:(V1 OR V2 OR V3 OR V4) AND STRFIND(stkname,'ST',1)=0 AND STRFIND(stkname,'S',1)=0;



通达信：XG: V1 OR V2 OR V3 OR V4;



飞狐：同大智慧L2，不用替换。



动态翻译：

V00赋值: 最高价>昨日最高价 AND 最低价>昨日最低价
V01赋值: 最高价<昨日最高价 AND 最低价<昨日最低价
V02赋值: 2日前的最高价 > 最高价 AND 2日前的最低价 > 最低价 AND 2日前的最高价 > 昨日最高价 AND 2日前的最低价 < 昨日最低价
V1赋值: 统计4日中满足V00的天数>=2 AND 4日内最高价距今天数 = 1 AND V01
V2赋值: 统计5日中满足V00的天数>=2 AND 5日内最高价距今天数 = 2 AND V02
V3赋值: 统计5日中满足V00的天数>=2 AND 5日内最高价距今天数 = 1 AND V01
V4赋值: 统计6日中满足V00的天数>=2 AND 6日内最高价距今天数 = 2 AND V02
输出XG: V1 OR V2 OR V3 OR V4