請幫忙編寫一段程序

在1分鐘周期下。

單邊上漲買進。

開市15分鐘后，始終保持在開市價之上，使用可用資金的一半買進，直至收市前一分鐘平倉。

單邊下跌賣出。

開市15分鐘后，始終保持在開市價之下，使用可用資金的一半賣出，直至收市前一分鐘平倉。

SETDEALPERCENT(50);

N:=BARSLAST(DATE<>REF(DATE,1))+1;//N為開盤到當前K線的周期數。