各位大神可以帮我编写自动交易程序吗。谢谢

没走完的棋局

就是这个意思

技术006

以下是多头部分的实现方式，采用全局变量进行记录。你可以参考学习。

[PEL] 复制代码

//1、当K线整体上穿5日均线就自动买入3手多单。//2、当K线整体下穿5日均线就自动买入3手空单。
//3、多单或者空单当浮动价格每盈利2个点，系统就自动买入1手。
//4、或当浮动价格每亏损2个点系统就自动卖出1手。
//5、直到亏损6个点止损，或者盈利6个点止盈。

VARIABLE:BASE_PRICE=0,GRID_NUM=0,WIN_PRICE=0,STOP_PRICE=0;
ma5:MA(LOW,5);

IF cross(low,MA5)=1 and  holding=0 THEN BEGIN
	BUY(1,3,LIMITR,close);
	BASE_PRICE:=close;
	//记录当前开多时的止损价格
    STOP_PRICE:=BASE_PRICE-6*MINDIFF;
    WIN_PRICE:=BASE_PRICE+6*MINDIFF;
END



//当前最新价与止损价之间的价格差
OFFSET:CLOSE-BASE_PRICE;

//相对于基准的格子数
BASE_GRID:INTPART(OFFSET/(2*MINDIFF));


IF HOLDING>0 AND BASE_GRID-GRID_NUM>=1  and BASE_GRID<3 and BASE_GRID>0 THEN BEGIN
        BUY(1,BASE_GRID-GRID_NUM,MARKETR);
        GRID_NUM:=BASE_GRID;
END


IF HOLDING>0 AND BASE_GRID-GRID_NUM<=-1  and BASE_GRID>-3  and BASE_GRID<0 THEN BEGIN
        sell(1,abs(BASE_GRID-GRID_NUM),MARKETR);
        GRID_NUM:=BASE_GRID;
        if HOLDING=0 then BEGIN
        	BASE_PRICE:=0;
			GRID_NUM:=0;
			STOP_PRICE:=0;
			WIN_PRICE:=0;
        end
END


//止盈止损
IF close>WIN_PRICE and  HOLDING>0 then BEGIN
	sell(1,HOLDING,MARKETR);
	BASE_PRICE:=0;
	GRID_NUM:=0;
	STOP_PRICE:=0;
	WIN_PRICE:=0;
	
end

IF close<STOP_PRICE and  HOLDING>0 then BEGIN
	sell(1,HOLDING,MARKETR);
	BASE_PRICE:=0;
	GRID_NUM:=0;
	STOP_PRICE:=0;
	WIN_PRICE:=0;
end

没走完的棋局

技术006 发表于 2024-6-6 11:04
那不就是以首次开仓价为基准，每上涨2个价位就加仓，反之减仓吗？

就是这个意思。

没走完的棋局

技术006 发表于 2024-6-7 09:17
以下是多头部分的实现方式，采用全局变量进行记录。你可以参考学习。

[mw_shl_code=pel,true]//1、当K线 ...

非常感谢老师，您真有耐心。

没走完的棋局

1，当每次开盘10分钟系统自动买入3手多单

技术006

自己根据当前运行的周期执行k线实现。这语句话，可以直接参考这个修改。把它换成todaybar=第几根k。比如在1分钟上，todaybar=10，5分钟上todaybar=2

IF cross(low,MA5)=1 and  holding=0 THEN BEGIN
    BUY(1,3,LIMITR,close);
END

没走完的棋局

没走完的棋局 发表于 2024-6-7 14:07
1，当每次开盘10分钟系统自动买入3手多单

对不起，我发错了！

没走完的棋局

技术006 发表于 2024-6-7 09:17
以下是多头部分的实现方式，采用全局变量进行记录。你可以参考学习。

[mw_shl_code=pel,true]//1、当K线 ...

谢谢老师，想再次麻烦你能将这个代码改成空头部分的实现方法，其他所有条件不变。谢谢

技术006

空头部分建议你学习完成多头部分自行实现。实现的过程中遇到具体问题我们可以协助处理。

没走完的棋局

VARIABLE:BASE_PRICE=0,GRID_NUM=0,WIN_PRICE=0,STOP_PRICE=0; ma5:MA(LOW,5);  IF cross(MA5,low)=1 and  holding=0 THEN BEGIN     SELLSHORT(1,3,LIMITR,close);  //改为卖出空头     BASE_PRICE:=close;     //记录当前开空时的止损价格     STOP_PRICE:=BASE_PRICE+6*MINDIFF;  //方向改变，止损价格计算也改变     WIN_PRICE:=BASE_PRICE-6*MINDIFF;  //方向改变，止盈价格计算也改变 END  //当前最新价与止损价之间的价格差 OFFSET:CLOSE-BASE_PRICE;  //相对于基准的格子数 BASE_GRID:INTPART(OFFSET/(2*MINDIFF));  IF HOLDING<0 AND BASE_GRID-GRID_NUM>=1  and BASE_GRID<3 and BASE_GRID>0 THEN BEGIN         SELLSHORT(1,BASE_GRID-GRID_NUM,MARKETR);  //卖出空头操作         GRID_NUM:=BASE_GRID; END  IF HOLDING<0 AND BASE_GRID-GRID_NUM<=-1  and BASE_GRID>-3  and BASE_GRID<0 THEN BEGIN         BUYCOVER(1,abs(BASE_GRID-GRID_NUM),MARKETR);  //改为买入平仓         GRID_NUM:=BASE_GRID;         if HOLDING=0 then BEGIN             BASE_PRICE:=0;             GRID_NUM:=0;             STOP_PRICE:=0;             WIN_PRICE:=0;         end END  //止盈止损 IF close<WIN_PRICE and  HOLDING<0 then BEGIN     BUYCOVER(1,HOLDING,MARKETR);     BASE_PRICE:=0;     GRID_NUM