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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 浮盈加仓和定额止盈没有成交记录

   

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

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

主题：浮盈加仓和定额止盈没有成交记录
帅哥哟，离线，有人找我吗？
sakya8
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：70 积分：0 威望：0 精华：0 注册：2020/1/13 20:30:29 		浮盈加仓和定额止盈没有成交记录  发帖心情 Post By：2020/11/8 22:13:29    Post IP：61.152.197.31[显示全部帖子]

浮盈加仓和定额止盈没有成交记录，请老师帮忙修改代码，尽量不要用holding函数，谢谢

INPUT : POSNUM(1,1,20,1) ;
INPUT : N(10,10,50,10) ;
VARIABLE : _DEBUG = 1 ;
VARIABLE : MYENTRYPRICE1 =0 ;
VARIABLE : ASSET1 =0 ;
VARIABLE : TURTLEUNITS1 =0 ;//多头持仓数量

//晚盘开盘和下午2点前开多仓
IF TURTLEUNITS1 := 0 AND TIME > 0100 AND TIME <1800 THEN BEGIN

BUY( _DEBUG,POSNUM,MARKET);
TURTLEUNITS1 := 1 ;
MYENTRYPRICE1 := C ;
ASSET1 := ASSET;
END

IF TURTLEUNITS1 > 0 AND  C>MYENTRYPRICE1+N*MINDIFF THEN BEGIN
BUY( _DEBUG,POSNUM,MARKET);
TURTLEUNITS1 := TURTLEUNITS1+1 ;
MYENTRYPRICE1 := C ;
ASSET1 := ASSET;
END

IF ASSET1-ASSET >200 OR TIME = 1859 THEN BEGIN
SELL(1,0,MARKET);
TURTLEUNITS1 := 0 ;

END
当前持仓:HOLDING,COLORGRAY,LINETHICK0;
当前资产:ASSET,NOAXIS,COLORGRAY;
[此贴子已经被作者于2020/11/8 22:14:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sakya8
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：70 积分：0 威望：0 精华：0 注册：2020/1/13 20:30:29 		  发帖心情 Post By：2020/11/9 11:57:26    Post IP：202.62.113.219[显示全部帖子]

我写的这段代码把那个赋值冒号去掉，不考虑盈亏，把软件设置好的前提下，仅考虑代码是否规范，是否可以直接用于图表交易？
[此贴子已经被作者于2020/11/9 11:58:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sakya8
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：70 积分：0 威望：0 精华：0 注册：2020/1/13 20:30:29 		  发帖心情 Post By：2020/11/9 12:44:03    Post IP：202.62.113.219[显示全部帖子]

代码我又修改了，不考虑盈亏，把软件设置好的前提下，仅考虑代码是否规范，是否可以直接用于图表交易？


INPUT : POSNUM(1,1,20,1) ;
INPUT : N(10,10,50,10) ;
VARIABLE : _DEBUG = 1 ;
   
VARIABLE : MYENTRYPRICE1 =0 ;
VARIABLE : ASSET1 =0 ;
VARIABLE : TURTLEUNITS1 =0 ;//多头持仓数量

//晚盘开盘和下午2点前开多仓
IF TURTLEUNITS1 = 0 AND TIME > 0100 AND TIME <1800 THEN BEGIN

   BUY( _DEBUG,POSNUM,MARKET);

   TURTLEUNITS1 := 1 ;

   MYENTRYPRICE1 := C ;
   

   ASSET1 := ASSET;
  
END

IF TURTLEUNITS1 > 0 AND C>MYENTRYPRICE1+N*MINDIFF THEN BEGIN

  

   BUY( _DEBUG,POSNUM,MARKET);

   TURTLEUNITS1 := TURTLEUNITS1+1 ;

   MYENTRYPRICE1 := C ;
  
  
END

IF ASSET-ASSET1 >200 OR TIME = 1859 THEN BEGIN

  

   SELL(1,0,MARKET);

   TURTLEUNITS1 := 0 ;

END
当前持仓:HOLDING,COLORGRAY,LINETHICK0;
当前资产:ASSET,NOAXIS,COLORGRAY;
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 08.04102 秒, 7 次数据查询