欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件交易策略发布专区 → [交易系统]动态突破系统

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有14150人关注过本帖树形打印复制链接

主题:[交易系统]动态突破系统

帅哥哟,离线,有人找我吗?
z7c9
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小飞侠 帖子:1882 积分:3310 威望:0 精华:15 注册:2010/3/15 13:11:56
[交易系统]动态突破系统  发帖心情 Post By:2011/10/3 12:48:44 [只看该作者]

图片点击可在新窗口打开查看

 

runmode:0;

input:ceilingamt(60),flooramt(20),bolbandtrig(2);

variable:lookbackdays=20;

todayvolatility:=std(close,30);
yesterdayvolatility:=std(ref(close,1),30);

deltavolatility:=(todayvolatility-yesterdayvolatility)/todayvolatility;

lookbackdays:=lookbackdays*(1+deltavolatility);
lookbackdays:=round(lookbackdays);
lookbackdays:=min(lookbackdays,ceilingamt);
lookbackdays:=max(lookbackdays,flooramt);

mid:=ma(close,lookbackdays);
upband:=mid+bolbandtrig*std(close,lookbackdays);
dnband:=mid-bolbandtrig*std(close,lookbackdays);

buypoint:=ref(hhv(high,lookbackdays),1);
sellpoint:=ref(llv(low,lookbackdays),1);

longliqpoint:=ma(close,lookbackdays);
shortliqpoint:=ma(close,lookbackdays);

if holding=0 then begin
 if close>upband then
  buy(1,1,limitr,max(open,buypoint));
end

if holding=0 then begin
 if close<dnband then
  buyshort(1,1,limitr,min(open,sellpoint));
end

if holding>0 then begin
 if close<dnband then begin
  sell(1,holding,limitr,min(open,sellpoint));
  buyshort(1,1,limitr,min(open,sellpoint));
 end
 
 if low<=longliqpoint then
  sell(1,holding,limitr,min(open,longliqpoint));
end

if holding<0 then begin
 if close>upband then begin
  sellshort(1,holding,limitr,max(open,buypoint));
  buy(1,1,limitr,max(open,buypoint));
 end
 
 if high>=shortliqpoint then
  sellshort(1,holding,limitr,max(open,shortliqpoint));
end

盈亏:asset-50000,noaxis,colorred,linethick2;


 回到顶部
帅哥哟,离线,有人找我吗?
lilieddove
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:58 积分:423 威望:0 精华:0 注册:2011/3/1 11:18:30
  发帖心情 Post By:2011/10/12 13:12:04 [只看该作者]

if close>upband then
buy(1,1,limitr,max(open,buypoint));
end

使用了未来数据,按收盘价判断条件,却以开盘价来确定开仓价。


 回到顶部
帅哥哟,离线,有人找我吗?
淡定688
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:80 积分:277 威望:0 精华:0 注册:2011/2/14 21:50:41
  发帖心情 Post By:2011/10/31 17:46:39 [只看该作者]

有哪个好心人请帮忙添加注释!

input:ceilingamt(60,15,80,5){????},flooramt(20,5,40,5){???},bolbandtrig(2,1,5,0.5){???};

variable:lookbackdays=20;       //突破周期

todayvolatility:=std(close,30);                    //30周标准差
yesterdayvolatility:=std(ref(close,1),30);     //前周标准差

deltavolatility:=(todayvolatility-yesterdayvolatility)/todayvolatility;   //估算差波动率

lookbackdays:=lookbackdays*(1+deltavolatility);    //突破周期*波动率
lookbackdays:=round(lookbackdays); 
lookbackdays:=min(lookbackdays,ceilingamt);   //    跟下一句可能有冲突????
lookbackdays:=max(lookbackdays,flooramt);     //  ???????

mid:=ma(close,lookbackdays);        
upband:=mid+bolbandtrig*std(close,lookbackdays);
dnband:=mid-bolbandtrig*std(close,lookbackdays);

buypoint:=ref(hhv(high,lookbackdays),1);
sellpoint:=ref(llv(low,lookbackdays),1);

longliqpoint:=ma(close,lookbackdays);
shortliqpoint:=ma(close,lookbackdays);


 回到顶部