以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  策略编写求助区  (http://222.73.7.161/bbs/list.asp?boardid=11)
----  求 帮忙编程  (http://222.73.7.161/bbs/dispbbs.asp?boardid=11&id=63906)
--  作者：yhl99414
--  发布时间：2014/4/14 16:52:17
--  求 帮忙编程
价格突破当日开盘价+n个点做多x手，突破开盘价-n个点开空x手，止损为n个点，盈利2*n个点平总仓位的1/2，剩余1/2提高止损为开仓价，没止损平仓为收盘价平仓
--  作者：yhl99414
--  发布时间：2014/4/14 16:57:13
--  
加一个条件：一天最多为一单
--  作者：yhl99414
--  发布时间：2014/4/15 11:00:12
--  
jinzhe帮忙编写下啊
--  作者：fly
--  发布时间：2014/4/15 15:45:11
--  

由于工作人员要处理的事情比较多,单纯由工作人员为您编写,可能需要您等待的时间会比较长.

 

如果您比较着急,推荐您将帖子发为金币帖.

作为对可能将要帮助到您的热心用户的一点小小的鼓励,
--  作者：yhl99414
--  发布时间：2014/4/15 16:04:56
--  
没事，我能等待，有空就给我编写个吧，我也没金币
--  作者：yhl99414
--  发布时间：2014/4/15 16:08:15
--  
这次真想做你们的程序化操作了，云服务器都联系过了
--  作者：fly
--  发布时间：2014/4/17 9:17:38
--  

那,请您耐心等待哦
--  作者：jinkehoo
--  发布时间：2014/4/21 20:11:42
--  
input:n(2,1,10,1),x(1,1,10,1);

kd:=c>="open#day"+n;
kk:=c<="open#day"-n;

if holding>=0 then begin
sell(1,holding,market);
buy(kd,x,market);
if enterprice>(close+n) then begin 
sell(1,50%,market);
end
end


//按这个思路写应该没问题的，呵呵！
--  作者：qq代人发帖
--  发布时间：2014/4/23 17:11:06
--  

如下实例只提供参考学习,如有其它需求请自行完善


kp:VALUEWHEN(TODAYBAR=1,o);
if h>kp+n*mindiff then
buy(1,x,market);
if h>kp-n*mindiff then
buyshort(1,x,market);

//止损
if ENTERPRICE>=n*mindiff+l THEN
sell(1,holding,market);
if h>=ENTERPRICE+n*mindiff THEN
sellshort(1,holding,market);
 
// 止盈1/2
if h>=ENTERPRICE+2*mindiff THEN
sell(1,1/2*holding,market);
if ENTERPRICE>=l+2*mindiff then
sellshort(1,1/2*mindiff,market);
 //开仓价止损
 if l<=ENTERPRICE then
sell(1,1/2*holding,market);
if h>=ENTERPRICE then
sellshort(1,1/2*mindiff,market);

//收盘前5分钟平仓
if time>=145500 THEN
sell(1,holding,market);
sellshort(1,holding,market);

[此贴子已经被作者于2014/4/23 17:11:24编辑过]