股票开不了仓？

技术008

input:n(2,1,100,10),p1(2,2,40,4),p2(2,2,40,4)；//参数设置
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K2:SMA(RSV,2,1);
D2:SMA(K2,2,1);
J2:3*K2-2*D2,NODRAW;
kdjjc:cross(k2,d2),NODRAW;//kdj金叉
kdjsc:cross(d2,k2),NODRAW;
   
GLOBALVARIABLE:t:=0,currentC:=0;
  
timecd:CURRENTTIME>=093000 and CURRENTTIME<=095500;//时间条件
  
Dc:CALLSTOCK(''vtCLOSE,6,-1);//昨日收盘价
if (CURRENTTIME-t>=10)  then //每10秒更新一次记录
begin
t:=CURRENTTIME;
currentC:=c;
end
DEBUGFILE('D:\TEST.TXT',stklabel&'currentC=  %.2f',currentC);
DEBUGFILE('D:\TEST.TXT',stklabel&'tC=  %.2f',t);
SS1:=Intpart(20000/(c*100))*100;//开仓手数，按照2w算的。
if currentC<Dc*0.01 and (DYNAINFO(7)-Dc)/Dc>=0.01 and  kdjjc and timecd  and CURRENTTIME-t<10 and TBUYHOLDINGEX('','',2)=0
then
begin
tbuy(1,SS1,mkt);
end

技术009

因为开仓时间限制了啊。你最开始需求是限制了开仓时间的啊。你不去掉开仓时间限制，当然没办法开仓啦。
timecd  这个你改下或者去掉。

技术008

2022-03-15 13:40:18.827    000001currentC=  13.82
2022-03-15 13:40:18.833    000001tC=  134014.00
2022-03-15 13:40:20.832    000001currentC=  13.82
2022-03-15 13:40:20.832    000001tC=  134014.00
2022-03-15 13:40:22.836    000001currentC=  13.82
2022-03-15 13:40:22.836    000001tC=  134014.00
2022-03-15 13:40:24.845    000001currentC=  13.82
2022-03-15 13:40:24.846    000001tC=  134024.00


要学会去看输出的是多少，工作人员没有办法帮您去调试的，你必须自己学会去调试数据

技术010

1、你这个DC的引用写错了，少了个逗号，应该是Dc:CALLSTOCK('',vtCLOSE,6,-1);//昨日收盘价
2、要跟踪为什么不开仓的原因，可以参考8楼的debugfile范例，把debugfile代码加入到策略中，输出你的各个开仓条件到D盘的TSET文本文件中，例如：
DEBUGFILE('D:\TEST.TXT','品种代码='&STKLABEL&'  currentC为%.2f',currentC);//输出currentc的值到D盘的test文本文件中

李斌业

我用15分钟来测，设置涨幅大于0.1%，很小了，还是没有出现开仓的股票。5分钟的资料补了元月到今天的。大师，帮忙看下，谢谢！

input:n(2,1,100,10),p1(2,2,40,4),p2(2,2,40,4)；//参数设置

RSV:=(CLOSE-LLV(LOW,2))/(HHV(HIGH,2)-LLV(LOW,2))*100;
K2:SMA(RSV,2,1);
D2:SMA(K2,2,1);
J2:3*K2-2*D2,NODRAW;
kdjjc:cross(k2,d2),NODRAW;//kdj金叉
kdjsc:cross(d2,k2),NODRAW;
   
GLOBALVARIABLE:t:=0,currentC:=0;
  
timecd:CURRENTTIME>=093000 and CURRENTTIME<=150000;//时间条件
  
Dc:CALLSTOCK('',vtCLOSE,3,-1);//前一个15分钟收盘价
if (CURRENTTIME-t>=10)  then //每10秒更新一次记录
begin
t:=CURRENTTIME;
currentC:=c;
end
  
SS1:=Intpart(20000/(c*100))*100;//开仓手数，按照2w算的。
if currentC<Dc*0.001 and (DYNAINFO(7)-Dc)/Dc>=0.001 and  kdjjc and timecd  and CURRENTTIME-t<10 and TBUYHOLDINGEX('','',2)=0
then
begin
tbuy(1,SS1,mkt);
end

技术009

currentC<Dc*1.001 and (DYNAINFO(7)-Dc)/Dc>=1.001

数值这里有误。此外就你这个条件必须满足当前周期kdjjc才行。