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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 盈利加仓

   

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

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

主题：盈利加仓
帅哥哟，离线，有人找我吗？
FireScript
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18 		  发帖心情 Post By：2021/4/20 9:48:18    Post IP：58.246.57.26[只看该作者]

 EXTGBDATASET('CT1_'+S2,ct1+1);//S2第一次加多仓

这个s2是什么？它是一个变量还是一个固定值得东西。 我前面是用品种代码拼接的，就是为了没个品种独立开的。

命数如织，当如磐石。
 回到顶部
帅哥哟，离线，有人找我吗？
fxrock4
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：663 积分：0 威望：0 精华：0 注册：2015/4/15 11:40:17 		  发帖心情 Post By：2021/4/20 9:54:35    Post IP：117.181.240.31[只看该作者]

if STKLABEL='ZC00' then S2:=2;
S2是指定品种ZC开仓2手的
 回到顶部
帅哥哟，离线，有人找我吗？
FireScript
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18 		  发帖心情 Post By：2021/4/20 9:58:46    Post IP：58.246.57.26[只看该作者]

 这个变量ct1  是在哪里定义的。是就靠在这个if前面吗？你贴下代码  我看下你怎么取值的。


命数如织，当如磐石。
 回到顶部
帅哥哟，离线，有人找我吗？
fxrock4
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：663 积分：0 威望：0 精华：0 注册：2015/4/15 11:40:17 		  发帖心情 Post By：2021/4/20 10:10:08    Post IP：117.181.240.31[只看该作者]

if STKLABEL='ZC00' then S1:=1;
if STKLABEL='ZC00' then S2:=2;
ct1:=EXTGBDATA('CT1_'+S1);
ct2:=EXTGBDATA('CT2_'+S2);
IF byk>0.002 and ct1<=1 and TBUYHOLDINGEX(ZH1,'',1)>0 THEN begin 
    TBUY(kd1 and cd and TBUYHOLDINGEX(ZH1,'' ,1)>1,S1,LMT,CLOSE,1,ZH1,'');
    EXTGBDATASET('CT1_'+S2,ct1+1);//S2第一次加多仓
    end
是这样排队的
 回到顶部
帅哥哟，离线，有人找我吗？
fxrock4
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：663 积分：0 威望：0 精华：0 注册：2015/4/15 11:40:17 		  发帖心情 Post By：2021/4/20 10:13:38    Post IP：117.181.240.31[只看该作者]

if STKLABEL='ZC00' then S1:=1;
if STKLABEL='ZC00' then S2:=2;
ct1:=EXTGBDATA('CT1_'+S1);
ct2:=EXTGBDATA('CT2_'+S2);
    BBj:=TAVGENTERPRICEEX2(ZH1,'',0);//多头持仓均价 
    Byk:=100*(DYNAINFO(7)-BBj)/BBj;//按照持仓成本计算的盈亏率
    IF byk>0.05 and ct1<=1 and TBUYHOLDINGEX(ZH1,'',1)>0 THEN begin 
    TBUY(kd1 and not(kd2) and cd and TBUYHOLDINGEX(ZH1,'' ,1)>1,S1,LMT,CLOSE,1,ZH1,'');
    EXTGBDATASET('CT1_'+S1,ct1+1);//第一次加多仓
    end
TSELL(pd,TBUYHOLDINGEX(ZH1,'',1),MKT,1，ZH1,''); 
   if pd then EXTGBDATASET('CT1_'+S1,0); //平仓时候重置 超全局变量  
   if kk1 and not(kk2)  then  begin 
Tbuyshort(kk1 and cd and TSELLHOLDINGEX(ZH1,'',1)<1,S1,LMT,CLOSE,1,ZH1,'');
    end
是这样排队的
 回到顶部
帅哥哟，离线，有人找我吗？
FireScript
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18 		  发帖心情 Post By：2021/4/20 10:16:22    Post IP：58.246.57.26[只看该作者]

 你这个是用2个全局变量分别限制每次的加仓吗？

ct1:=EXTGBDATA('CT1_'+S1);
ct2:=EXTGBDATA('CT2_'+S2);
IF byk>0.002 and ct1<=1 and TBUYHOLDINGEX(ZH1,'',1)>0 THEN begin 
    TBUY(kd1 and cd and TBUYHOLDINGEX(ZH1,'' ,1)>1,S1,LMT,CLOSE,1,ZH1,'');
    EXTGBDATASET('CT1_'+S2,ct1+1);//S2第一次加多仓
    end

1.你这里判断的是ct1_1 但是赋值的地方是 ct1_2
2.如果全局变量是从0开始。加仓一次 应该是ct1<=0   1的话就是2次加仓了。

命数如织，当如磐石。
 回到顶部
帅哥哟，离线，有人找我吗？
fxrock4
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：663 积分：0 威望：0 精华：0 注册：2015/4/15 11:40:17 		  发帖心情 Post By：2021/4/20 10:44:17    Post IP：117.181.240.31[只看该作者]

第一次加仓用CT1
第二次加仓用CT2
第一和第二次加仓量都只用S1，如ZC=1手
 回到顶部
帅哥哟，离线，有人找我吗？
fxrock4
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：663 积分：0 威望：0 精华：0 注册：2015/4/15 11:40:17 		  发帖心情 Post By：2021/5/13 15:51:29    Post IP：117.181.240.149[只看该作者]

如果KD1发生的开仓，则加仓用X3
如果KD2发生的开仓，则加仓用X4
那么图表程序怎么改写呢，多谢
if bj5=0 and cd and mark=0 and holding>0 and (c-AvGENTERPRICE)/AvGENTERPRICE>=0.05  then begin//
bj5:=5;
mark:=1;
buy(1,x3,market);//pertrader;     
end
 回到顶部
帅哥哟，离线，有人找我吗？
FireScript
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18 		  发帖心情 Post By：2021/5/13 16:00:32    Post IP：58.246.57.26[只看该作者]

没其他办法，用全局变量纪录开仓是哪个语句触发的。
差不多是这样子的操作就行了：
VARIABLE:x:=0;

if  开仓条件1  and  holding=0 then
begin
buy(1,1,market);
x:=1;   
end

if  开仓条件2  and  holding=0 then
begin
buy(1,1,market);
x:=2;   
end

if x=1 and holding>0 and 加仓条件1 then buy(1,1,market);
if x=2 and holding>0 and 加仓条件2 then buy(1,1,market);

命数如织，当如磐石。
 回到顶部
总数 39 上一页 1 2 3 4
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.09375 秒, 6 次数据查询