请帮忙编写一段程序

在1分钟周期下。

单边上涨买进。

开市15分钟后，始终保持在开市价之上，使用可用资金的一半买进，直至收市前一分钟平仓。

单边下跌卖出。

开市15分钟后，始终保持在开市价之下，使用可用资金的一半卖出，直至收市前一分钟平仓。

SETDEALPERCENT(50);

N:=BARSLAST(DATE<>REF(DATE,1))+1;//N为开盘到当前K线的周期数。