欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 后台程序编写,帮看看那里有问题。

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2812人关注过本帖平板打印复制链接

主题:后台程序编写,帮看看那里有问题。

帅哥哟,离线,有人找我吗?
系统使用者
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:808 积分:667 威望:0 精华:0 注册:2011/4/9 16:17:57
后台程序编写,帮看看那里有问题。  发帖心情 Post By:2014/5/8 12:09:05    Post IP:182.149.139.184[只看该作者]

根据阿火:后台下单模板;编写的模型。
if holding=0 then 
buy(val1>0,100,LIMIT,O,0);
buyshort(val1>0,100,LIMIT,O,0);
ee:=enterprice;
 //多头平仓 
IF (h-ee)>3 and (h-ee)<50 THEN SELL(1,10,LIMIT,ee+3,0),ORDERQUEUE;
  SELL(1,10,LIMIT,EXITPRICE+3,0),ORDERQUEUE;
IF (ee-l)>1 and (ee-l)<50 THEN SELL(1,10,LIMIT,ee-1,0),ORDERQUEUE;
  SELL(1,10,LIMIT,EXITPRICE-3,0),ORDERQUEUE;  
IF TSELLHOLDING(1)>0 THEN BEGIN 
 //空头平仓
 IF (h-ee)>1 and (h-ee)<50 THEN SELLSHORT(1,10,LIMIT,ee+1,0),ORDERQUEUE;
  SELLSHORT(1,10,LIMIT,EXITPRICE+3,0),ORDERQUEUE;
 IF (ee-l)>3 and (ee-l)<50 THEN SELLSHORT(1,10,LIMIT,ee-3,0),ORDERQUEUE;
  SELLSHORT(1,10,LIMIT,EXITPRICE-3,0),ORDERQUEUE;
tm:=50;//撤单时间
cc800988:=holding;
drawtextex(1,1,800,0,'虚拟持仓为:'+numtostr(cc800988,0));//在图表上输入虚拟持仓监控
if not(islastbar) or workmode<>1 then exit;
xiadan800988:=cc800988-hold;
if xiadan800988>0.5 and tsubmit(0)>tm then tcancelex(0,0,cc800988,stklabel);//撤单功能。
tsell(1,10,mkt);
tsellshort(1,10,mkt);
if xiadan800988>0.5 then begin
 cang:=min(xiadan800988,abs(hold));
 
 if hold<0 then begin
  if (h-ee)>1 and (h-ee)<50 then
  tsellshort(1,10,LMT,tenterprice+1,0,'800988'),ALLOWREPEAT;
  tsellshort(1,10,LMT,TEXITPRICE+3,0,'800988'),ALLOWREPEAT;
  if (ee-l)>3 and (ee-l)<50 then
  tsellshort(1,10,LMT,tenterprice-3,0,'800988'),ALLOWREPEAT;
  tsellshort(1,10,LMT,TEXITPRICE-3,0,'800988'),ALLOWREPEAT;
  debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平空 %.0f',cang);
 end
 cang:=xiadan800988+min(hold,0);
 if cang>0 then begin
  if (TIME>=085600 AND TIME<=90000) then  
  tbuy(1,100,LMT,DYNAINFO(54),0,'800988');
  if (currenttime>=93000 and currenttime>=144000) then 
  tbuy(1,100,LMT,O,0,'800988'),ALLOWREPEAT;
  debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开多 %.0f',cang);
 end
end
if xiadan800988<-0.5 then begin
 cang:=min(abs(xiadan800988),abs(hold));
 if hold>0 then begin
  if (h-ee)>3 and (h-ee)<50 then
  tsell(1,10,LMT,tenterprice+3,0,'800988'),ALLOWREPEAT;
  tsell(1,10,LMT,TEXITPRICE+3,0,'800988'),ALLOWREPEAT;
  if (ee-l)>1 and (ee-l)<50 then
  tsell(1,10,LMT,tenterprice-1,0,'800988'),ALLOWREPEAT;
  tsell(1,10,LMT,TEXITPRICE-3,0,'800988'),ALLOWREPEAT;
  debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 平多 %.0f',cang);
 end
 cang:=abs(xiadan800988)-max(hold,0);
 if cang>0 then begin
  if (TIME>=085600 AND TIME<=90000) then  
  tbuyshort(1,100,LMT,DYNAINFO(55),0,'800988');
  if (currenttime>=93000 and currenttime>=144000) then 
  tbuyshort(1,100,LMT,O,0,'800988'),ALLOWREPEAT;
  debugfile('D:\800988.txt',numtostr(hold,0)+' '+numtostr(cc800988,0)+' 开空 %.0f',cang);
  end
 end
end
hold:=cc800988;


在图上看不到与阿火一样的标示。
请问那里出了问题。


 回到顶部