以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp) -- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5) ---- 如何才能做到一个价位不在 重复下单? (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=65242) |
-- 作者:系统使用者 -- 发布时间:2014/5/20 21:47:54 -- 如何才能做到一个价位不在 重复下单? variable:n=1; et1:=TAVGENTERPRICEEX2(\'\' , \'\', 0);//多头持仓均价 et2:=TAVGENTERPRICEEX2(\'\' , \'\', 1);//空头持仓均价 if THOLDING2>0 then begin n:=n+1; end if mod(open-(et2+1),2)=0 then tsellshort(1,5,lmt,et2+1,0); if mod(open-(et1+2),2)=0 then tsell(1,5,lmt,et1+2,0); if mod(open-(et2+n),2)=0 then tsellshort(1,5,lmt,(et2+n),0); if mod(open-((et1+n)+1),2)=0 then tsell(1,5,lmt,((et1+n)+1),0); 要求这样循环的. 初始第一次平空为et2+1,当第二次平空是(et2+1)+1,继续循环时,以此类推。 初始第一次平多为 et1+2,,当第二次平多是 (et1+2)+1,继续循环时,以此类推。 如何才能做到一个价位不在 重复下单? 用VBA可以不可以?
|
-- 作者:guotx2010 -- 发布时间:2014/5/21 15:09:52 -- 用vba是肯定可以的,使用ini文件或全局变量来标识没一个价位的交易状态。 |
-- 作者:系统使用者 -- 发布时间:2014/5/21 23:17:13 -- 帮忙写一个 |
-- 作者:系统使用者 -- 发布时间:2014/5/21 23:29:10 -- 后台交易程序: 1)当下持仓为多单100手,空单100手,对锁中。价位3130; 2)若上涨1个点位要求系统减仓5手空单,上涨3个点位要求系统自动减仓5手多单。这样的循环; 3)若下跌1个点位要求系统自动减仓5手多单,下跌3个点位要求系统自动减仓5手空单,这样的循环。 4)一直到减仓完毕。 5)挂单后40秒不成交自动撤单,并且当下价位直接平掉单腿。要求持仓同步。 -----若上涨1个点位要求系统减仓5手空单,上涨3个点位要求系统自动减仓5手多单。这样的循环; 多空点差保持2点的意思; 就是说比如:当下持仓为多单100手,空单100手,对锁中。价位3130; 3231减空单5手,涨到3233减多单5手; 3234减空单5手,涨到3236减多单5手; 3237减空单5手,涨到3239减多单5手; 多空点差保持2点的这样循环 variable:n=1; if (TIME>=085600 AND TIME<=90000) then begin tbuy(1,10,lmt,DYNAINFO(54),0); tbuyshort(1,10,lmt,DYNAINFO(55),0); end if THOLDING2<0 and (time<145000) then begin tbuy(val2>0,10,lmt,o,0); tbuyshort(val2>0,10,lmt,o,0); end et1:=TAVGENTERPRICEEX2(\'\' , \'\', 0);//多头持仓均价 et2:=TAVGENTERPRICEEX2(\'\' , \'\', 1);//空头持仓均价 if THOLDING2>0 then begin n:=n+1; end if mod(open-(et2+1),2)=0 then tsellshort(1,1,lmt,et2+1,0); if mod(open-(et1+2),2)=0 then tsell(1,1,lmt,et1+2,0); if mod(open-(et2+n),2)=0 then tsellshort(1,1,lmt,(et2+n),0); if mod(open-((et1+n)+1),2)=0 then tsell(1,1,lmt,((et1+n)+1),0); if mod((et1-1)-open,2)=0 then tsell(1,1,lmt,et1-1,0); if mod((et2-2)-open,2)=0 then tsellshort(1,1,lmt,et2-2,0); if mod((et1-n)-open,2)=0 then tsell(1,1,lmt,(et1-n),0); if mod(((et2-n)-1)-open,2)=0 then tsellshort(1,1,lmt,(et2-n)-1,0); //撤单 tm:=50;//撤单时间秒 if tisremain(0)>0 and tsubmit(0)>tm then begin tcancel(1,0); end tsell(1,1,mkt); tsellshort(1,1,mkt); //收盘平仓 if CURRENTTIME>=151300 and currenttime<=151400 then begin tsell(1,0,mkt); tsellshort(1,0,mkt); end 要求这样循环的. 初始第一次平空为et2+1,当第二次平空是(et2+1)+1,继续循环时,以此类推。 初始第一次平多为 et1+2,,当第二次平多是 (et1+2)+1,继续循环时,以此类推。 [此贴子已经被作者于2014/5/21 23:30:12编辑过]
|
-- 作者:系统使用者 -- 发布时间:2014/5/21 23:29:41 -- 做到一个价位不在 重复下单 |
-- 作者:admin -- 发布时间:2014/5/22 18:30:28 -- 您的需求超出了我们客服的能力范围。 建议您尝试自行编写一下,注意一定要学会后台程序的调试,即多使用DEBUGFILE函数调试。 或者您可以考虑一下付费的策略编写服务 |