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


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

   

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


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

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

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 14:19:33 [显示全部帖子]

问题正在解决中

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 15:12:32 [显示全部帖子]

1,9点30分后才开仓,当价格高于前面30根的最高价时开多单,上涨到50个点减掉30%仓位,再上涨到100点减掉30%仓位,剩余40%要么收盘前一分钟全部平仓,要么涨停板全部平仓; 2,第一个信号是多单,后来下跌低于前30分钟的最低价就反手开空单,其余空单条件和多单相反; 3,1分钟周期就可

variable:fk=0,ff=-1;
bh:HHVBARS(h ,30 ),linethick0;
if time>093000 then
begin
   if c>ref(hhv(h,30),1) then
   begin
     sellshort(holding<0,0,market);
     buy(holding=0,10,market);
     fk:=c;
     ff:=0;
   end
   if close<ref(llv(l,30),1) then
   begin
     sell(holding>0,0,market);
     buyshort(holding,10,market);
     fk:=c;
     ff:=3;
   end
  
   if ff=0 and c-fk>=50*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=1;
   end
   if ff=1 and c-fk>=100*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=-1;
   end
   if ff=3 and fk-c>=50*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=4;
      end
   if ff=4 and fk-c>=100*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=-1;
      end
   //if CLOSE>DYNAINFO( 54) then sell(holding>0,0,market);
   //if close<DYNAINFO( 55) then sellshort(holding<0,0,market);
   if time>=145900 then
   begin
    sell(holding>0,0,market);
    sellshort(holding<0,0,market);
   end

end

[此贴子已经被作者于2011-11-30 15:19:36编辑过]

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 16:00:36 [显示全部帖子]

关于ATR 的止损条件请说明确。

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 16:13:39 [显示全部帖子]

ATR根据最近两月平均振幅怎么计算?

请指明一下。大于ATR就平多 小于就平空

[此贴子已经被作者于2011-11-30 16:16:33编辑过]

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 16:27:31 [显示全部帖子]

开多 开空的止损价都是 止损价=进场价-ATR 吗?

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 16:32:22 [显示全部帖子]

ATR信号不对我不会改,

我只会用,

我就用下面的公式 不知道行不行?

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:MA(TR1,144*60);


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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 16:53:20 [显示全部帖子]

基本上都一样,就是多了两句止损

 

 

variable:fk=0,ff=-1;
bh:HHVBARS(h ,30 ),linethick0;

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:MA(TR1,144*60);
if time>093000 then
begin
   if c>=ref(hhv(h,30),1) then
   begin
     sellshort(holding<0,0,market);
     buy(holding=0,10,market);
     fk:=c;
     ff:=0;
     sell(holding>0,0,limit,c-ATR);//ATR 止损挂单
   end
   if close<ref(llv(l,30),1) then
   begin
     sell(holding>0,0,market);
     buyshort(holding,10,market);
     fk:=c;
     ff:=3;
     sellshort(holding<0,0,limit,c-ATR);//ATR 止损挂单
   end
  
   if ff=0 and c-fk>=50*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=1;
   end
   if ff=1 and c-fk>=100*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=-1;
   end
   if ff=3 and fk-c>=50*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=4;
      end
   if ff=4 and fk-c>=100*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=-1;
      end
   if CLOSE>DYNAINFO( 54) then sell(holding>0,0,market);
   if close<DYNAINFO( 55) then sellshort(holding<0,0,market);
   if time>=145900 then
   begin
    sell(holding>0,0,market);
    sellshort(holding<0,0,market);
   end

end

[此贴子已经被作者于2011-11-30 17:00:55编辑过]

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 17:18:08 [显示全部帖子]

你没说单边下跌 要怎么做!

满足了开多的条件,就执行改条件里的语句。

开多判断优先,


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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/30 17:30:48 [显示全部帖子]

明天再修改。

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/12/1 10:01:47 [显示全部帖子]

修改了你在看看

1 分钟 主力合约,非主力合约,数据不保证每分钟数据都有,

有些交易没有提示(涨跌停有提示),不好看出是什么操作,仔细的想想。

 

variable:f=0,fk=0,ff=-1,hh=0,ll=0;

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,144*60);
h1:=ref(hhv(h,30),1);
l1:=ref(llv(l,30),1);
if ref(date,31)<>ref(date,30) then
begin
   hh:=h1;
   ll:=l1;
   f:=1;
   ff:=-1;
end
s:hh;
ss:ll;
sf:f,linethick0;
sff:ff,linethick0;
if f=1 then
begin
   if ff=-1 and c>=hh then
   begin
     sellshort(holding<0,0,market);
     buy(holding=0,10,market);
     fk:=c;
     ff:=0;
     sell(holding>0,0,limit,c-ATR);//ATR 止损挂单
   end
   if ff=-1 and c<ll then
   begin
     sell(holding>0,0,market);
     buyshort(holding,10,market);
     fk:=c;
     ff:=3;
     sellshort(holding<0,0,limit,c-ATR);//ATR 止损挂单
   end
  
   if ff=0 and c-fk>=50*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=1;
   end
   if ff=1 and c-fk>=100*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=-2;
   end
   if ff=3 and fk-c>=50*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=4;
      end
   if ff=4 and fk-c>=100*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=-2;
      end
   if CLOSE>DYNAINFO( 54) then
   begin
   sell(holding>0,0,market);
   DRAWTEXT(1,h,'涨停' );
   end
   if close<DYNAINFO( 55) then
   begin
   sellshort(holding<0,0,market);
   DRAWTEXT(1,l,'跌停' );
   end
   if time>=151400  then
   begin
    sell(holding>0,0,market);
    sellshort(holding<0,0,market);
    f:=0;
   end
   if time>=145900  then
   begin
    sell(holding>0,0,market);
    sellshort(holding<0,0,market);
    f:=0;
   end
end

[此贴子已经被作者于2011-12-1 10:30:00编辑过]

 回到顶部
总数 12 1 2 下一页