我用

STKINDI的方法，或者是callstock 的方法，存在2个问题：

1、电脑在接收行情的时候，非常卡，简直是鼠标都不能动

2、在图表历史回测上，只能调用到当天14：00后的数据，再往前的数据调取不到，不知道什么原因？？开始以为是数据不全，可以不全数据，或者切换到分笔数据查看，数据是完整的。

要看你想取过来做什么了，如果盘中交易的话取最新的10笔比较容易，如果你要历史回测的话，很难

先实现简单的吧，就取来盘中交易的就好了，如何实现电脑不卡？我现在用CALLSTOCK函数，调取数据，盘中时卡的鼠标无法动作，行情基本慢了3－5秒，已经没有意义，改成调取5秒数据，也是一样。调取和实现的部份代码如下：

（只做股指，程序是调取多秒－5秒过去的11个最高值）

TBUF:DYNAINFO(207)-(INTPART(DYNAINFO(207)/100)) *100,nodraw; //当前秒数

if (holding <=0 && enterbars >= 1  ) then begin  //调取5秒周期的过去11个周期的最高值
  Fh0:callstock(\'IF00\',vthigh,12,0),nodraw; 
  Fh1:callstock(\'IF00\',vthigh,12,-1),nodraw;  
  Fh2:callstock(\'IF00\',vthigh,12,-2),nodraw;
  Fh3:callstock(\'IF00\',vthigh,12,-3),nodraw;
  Fh4:callstock(\'IF00\',vthigh,12,-4),nodraw;
  Fh5:callstock(\'IF00\',vthigh,12,-5),nodraw;
  Fh6:callstock(\'IF00\',vthigh,12,-6),nodraw;
  Fh7:callstock(\'IF00\',vthigh,12,-7),nodraw;
  Fh8:callstock(\'IF00\',vthigh,12,-8),nodraw;
  Fh9:callstock(\'IF00\',vthigh,12,-9),nodraw;
  Fh10:callstock(\'IF00\',vthigh,12,-10),nodraw;
  Fh11:callstock(\'IF00\',vthigh,12,-11),nodraw;  
  
  if barstatus = 2 then begin                                        //判断当前1分钟有多少次5秒周期最高值突破指标 Preac8a
     if Fh0>Preac8a && Tbuf>=5 then Hcount:=(Hcount+1);
     if Fh1>Preac8a && Tbuf>=10  then Hcount:=(Hcount+1);
     if Fh2>Preac8a && Tbuf>=15  then Hcount:=(Hcount+1);
     if Fh3>Preac8a && Tbuf>=20  then Hcount:=(Hcount+1);
     if Fh4>Preac8a && Tbuf>=25  then Hcount:=(Hcount+1);
     if Fh5>Preac8a && Tbuf>=30  then Hcount:=(Hcount+1);
     if Fh6>Preac8a && Tbuf>=35 then Hcount:=(Hcount+1);
     if Fh7>Preac8a && Tbuf>=40 then Hcount:=(Hcount+1);
     if Fh8>Preac8a && Tbuf>=45 then Hcount:=(Hcount+1);
     if Fh9>Preac8a && Tbuf>=50 then Hcount:=(Hcount+1);
     if Fh10>Preac8a && Tbuf>=55  then Hcount:=(Hcount+1);  
   end 
 end

高突破次数:Hcount,nodraw;

   …… （省去中间部份代码）

 if 平空条件 then begin 

    逃空:SELLSHORT(BARSTATUS<2 && HOLDING<0  ,ORDVOL,limitr,PKprice);   
    SELLSHORT(BARSTATUS=2 && HOLDING<0 && Tbuf>5 && Hcount > 2,ORDVOL,limitr,PKprice);   //实盘中，如果5秒最高突破2次则平空
    DAYTRADE:=(DAYTRADE + 1);  //统计当天交易次数

end

原理：作用在行情1分钟固定1秒轮询方式下，做空时，5秒周期最低价向下突破2次就立刻平仓。

请指点，如何修正，电脑才不卡？（注意：电脑已经设置只有360内存周期，只连接唯一的期货行情，图表仅有唯一框架，没有附图，程序也做了相应的优化 ）

1.参与运算的数据多,可考虑使用  快速 将使用的数据周期缩短

详见此帖方法3 http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=3286

2.秒及分钟以上K线,历史回测的就是图上显示的数据

   请参考此处16楼回帖http://www.weistock.com/bbs/dispbbs.asp?boardid=4&id=55104&authorid=0&page=0&star=2

首先建立一个自定义函数

Function LOADDATADEMO(Formula,N)
    Set Grid = Formula.ParentGrid
    Set MinuteData = Grid.GetMinuteData
   
    if MinuteData.Count >= N then
        LOADDATADEMO=MinuteData.NewPrice(MinuteData.Count-N)
    else
        LOADDATADEMO=-1 \'没有这么多数据返回－1
    End if

End Function

然后PEL公式这样调用即可

//只有在最后周期才进行调用的
if ISLASTBAR THEN
BEGIN
dd1:LOADDATADEMO(1);//调取最近1笔
dd10:LOADDATADEMO(10);//调取最近10笔
END;