| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (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 -- 不考虑你的思路和逻辑,只看代码规范的话。直接运行倒是没什么问题。  |