主题：如何实现固定时间隔小于K线周期时盘中开仓后至K线走完之间不再出现任何操作？

上图就是数据回测时的效果，但是如果K线走完就不无法实现图中的开仓点，这个开仓点与当根K线的即时close有关。就是希望可以在K线中间可以开仓，在出现情况一时需要恢复仓位，情况二时不用回复持仓。

可以假设K线中成交条件为condK=1,K线结束需要恢复仓位condS=1，不需要恢复仓位condS<>1。

谢谢提示，我原来以为数据库全局变量不太一样。我以前都是用globalvariable来定义全局变量，但发现如果给这个全局变量赋值的语句如果在if结构中，在if不被执行时是无法使用该变量，值是非法的，所以才想到数据库全局变量一旦被写入，后面任何时候都是可以被取出调用的，不知我的理解是否正确？

另外，我在2012-3-6 22:17:45中的最后两个问题可否解释一下原因，关键是在最后一根K线上看从数据库全局变量取值出来的gbtime（gbtime:EXTGBDATA('KTIME'),linethick0;）不是该K线的time而是前一根K线的，但从工具-数据-全局变量上看KTIME已经通过第一个60秒的程序执行被设置成最后一根K线的time。

谢谢admin提示，我原来以为数据库全局变量不太一样。我以前都是用globalvariable来定义全局变量，但发现如果给这个全局变量赋值的语句如果在if结构中，在if不被执行时是无法使用该变量，值是非法的，所以才想到数据库全局变量一旦被写入，后面任何时候都是可以被取出调用的，不知我的理解是否正确？

另外，我在2012-3-6 22:17:45中的最后两个问题可否解释一下原因，关键是在最后一根K线上看从数据库全局变量取值出来的gbtime（gbtime:EXTGBDATA('KTIME'),linethick0;）不是该K线的time而是前一根K线的，但从工具-数据-全局变量上看KTIME已经通过第一个60秒的程序执行被设置成最后一根K线的time。

就是要这种效果？

那很简单啊。怎么搞那么复杂？ == 给你实例

谢谢董！也就是说所有该软件上的应用都可以调用到，真是非常强大的功能。

不过我不明白的是，在我的逻辑中EXTGBDATASET('KTIME')=time显然在新的K线产生的第一个固定时间轮询时更新了数据库变量的值（在工具-数据-全局变量可以看到新的更新，即KTIME是当前K线的time），可是接下来的轮询中(当前K线还没有走完)从数据库取出的值gbtime:=EXTGBDATA('KTIME')却是前一根K线的time值？？？

这是一个具体的例子：

runmode:0;
variable:cc=0;
islast:=islastbar;
bb:=c>o+0.6;
ss:=c<o-0.6;
if cc>0 and ss then begin
 cc:=0;
end
if cc<0 and bb then begin
 cc:=0;
end
if cc=0 and bb then begin
 cc:=1;
end
if cc=0 and ss then begin
 cc:=-1;
end
lcc:=ref(cc,1);
if islast then att:=extgbdata('att');

if (lcc>0 and cc<=0) or (islast and cc<=0 and barpos>att and tbuyholding(1)>0) then begin
 exitlong:1;
 if lcc>0 and cc<=0 and islast then extgbdataset('att',barpos);
end
if (lcc<0 and cc>=0) or (islast and cc>=0 and barpos>att and tsellholding(1)>0) then begin
 exitshort:1;
 if lcc<0 and cc>=0 and islast then extgbdataset('att',barpos);
end
if (lcc<=0 and cc>0) or (islast and cc>0 and barpos>att and tbuyholding(1)=0) then begin
 enterlong:1;
 if lcc<=0 and cc>0 and islast then extgbdataset('att',barpos);
end
if (lcc>=0 and cc<0) or (islast and cc<0 and barpos>att and tsellholding(1)=0) then begin
 entershort:1;
 if lcc>=0 and cc<0 and islast then extgbdataset('att',barpos);
end

盘中出现信号即下单，次周期检查信号是否消失，如果消失补回持仓

固定轮询1秒或者高频

谢谢火哥提供例子！要仔细消化一下。

有几个问题还是要请教一下：

1.我现在是标准版，只能采用图表程式化交易，这段代码中含有tbuyholding/tsellholding后台交易函数，不知简单换成holding的判断是否可以？

2.采用islastbar的应用，是否会使前面K线的交易信号在图表上消失？

3.采用enterlong系列指令和buy系列指令的区别？