[求助]延时模型不能开仓 - 金字塔软件问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 金字塔软件问题提交 → [求助]延时模型不能开仓

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

共有4814人关注过本帖树形打印复制链接主题：[求助]延时模型不能开仓

ccf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：95 积分：373 威望：0 精华：0 注册：2011/5/29 17:23:29

[求助]延时模型不能开仓 发帖心情

Post By：2011/7/15 10:20:01 [只看该作者]

我写了个延时测试模型，延时正确，但开不了仓。请高手指教。

//测试延时动作
//信号刷新500ms,固定时间1s
//实际延时时间约=YS/2
input:YS(10,1,100,1);
M3:MA(C,3);
C0:C;
B:=C0>M3;
S:=C0<M3;
IF NOT(B) THEN EXTGBDATASET('BC',0);
IF NOT(S) THEN EXTGBDATASET('SC',0);
BCS:EXTGBDATA('BC'),LINETHICK0,COLORWHITE;//读取'BS'值
SCS:EXTGBDATA('SC'),LINETHICK0,COLORWHITE;//读取'BS'值
IF B THEN BEGIN
   IF BCS<YS THEN BEGIN
      EXTGBDATASET('BC',BCS+1);
      EXIT;
     END
   IF BCS>=YS THEN BEGIN
     {平空}EXITSHORT:B,TFILTER;
     {开多}ENTERLONG:B,TFILTER;
       EXTGBDATASET('BC',0);
     END
END
IF S THEN BEGIN
   IF SCS<YS THEN BEGIN
      EXTGBDATASET('SC',SCS+1);
      EXIT;
     END
   IF SCS>=YS THEN BEGIN
     {平多}EXITLONG:S,TFILTER;
     {开空}ENTERSHORT:S,TFILTER;
       EXTGBDATASET('SC',0);
     END
END