求助阿火版主帮写个日内系统 - 策略编写求助区 - 金字塔客服中心 - 专业程序化交易软件提供商

实现的是第2个,不合意之处,请自行修改

第一个其实是第2个的延伸,但要用到日线跨周期,在弄明白第2个的基础上,请尝试自行添加,具体实现会用到STKINDI函数(可参考论坛相关帖子)

//《日内30分钟翻转系统》
//适用于1分钟周期
//K线走完
//使用了涨跌停价，只可用于当日实盘交易，不可测评

//准备需要的中间变量
h30 := ref(hhv(h,30),1);
l30 := ref(llv(l,30),1);

//建立多头的进场条件
long := h>h30 and time>093000 and time<145000;
if long then
begin
sellshort(holding < 0, 0, limit, c+2*mindiff);
buy(holding = 0, 10, limit, c+2*mindiff);
end

//比开盘价高5个最小变动价位和10个变动价位之间，平30%多仓
//比开盘价高10个变动价位，平40%多仓
if holding>0 and enterbars>2 then
begin
多1:sell(c>enterprice+5*mindiff and c<enterprice+10*mindiff,30%,market);
多2:sell(c>enterprice+10*mindiff,40%,market);
end

//上涨到低于涨停板5个最小变动价位，就平掉所有多头
if holding>0 and h>DYNAINFO(54)-5*mindiff then sell(1,0,market);//要看历史交易或测评，去掉该句

//开空条件
short := l < l30 and time > 093000 and time < 145000;

if short then
begin
sell(holding > 0, 0, limit, c-2*mindiff);
buyshort(holding = 0, 10, limit, c-2*mindiff);
end

//比开盘价低5个最小变动价位和10个变动价位之间，平30%空仓
//比开盘价低10个变动价位，平40%空仓
if holding<0 and enterbars>2 then
begin
空1:sell(c>enterprice-10*mindiff and c<enterprice-5*mindiff,30%,market);
空2:sell(c<enterprice-20*mindiff,40%,market);
end

//下跌到高于跌停板5个最小变动价位，就平掉所有空头
if holding<0 and l>DYNAINFO(55)-5*mindiff then sell(1,0,market);//要看历史交易或测评，去掉该句

//收盘前1分钟平仓
if time >= 145900 then
begin
sell(holding > 0, 0,market);
sellshort(holding < 0, 0, market);
end

[此贴子已经被作者于2011-12-30 15:27:44编辑过]

主题：求助阿火版主帮写个日内系统