以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  浮盈加仓和定额止盈没有成交记录  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=182907)

--  作者:sakya8
--  发布时间:2020/11/8 22:13:29
--  浮盈加仓和定额止盈没有成交记录
浮盈加仓和定额止盈没有成交记录,请老师帮忙修改代码,尽量不要用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编辑过]

--  作者:FireScript
--  发布时间:2020/11/9 9:23:18
--  
什么意思?你是指上面的代码单独放图表上没有信号?

--  作者:FireScript
--  发布时间:2020/11/9 9:31:06
--  
 

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

你这里改下。你写成赋值了。

--  作者:sakya8
--  发布时间:2020/11/9 11:57:26
--  
我写的这段代码把那个赋值冒号去掉,不考虑盈亏,把软件设置好的前提下,仅考虑代码是否规范,是否可以直接用于图表交易?
[此贴子已经被作者于2020/11/9 11:58:59编辑过]

--  作者:sakya8
--  发布时间:2020/11/9 12:44:03
--  
代码我又修改了,不考虑盈亏,把软件设置好的前提下,仅考虑代码是否规范,是否可以直接用于图表交易?


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;

--  作者:FireScript
--  发布时间:2020/11/9 13:11:54
--  
 不考虑你的思路和逻辑,只看代码规范的话。直接运行倒是没什么问题。