以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请问老师代码错在那里？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=64174)
--  作者：雪球
--  发布时间：2014/4/21 10:46:05
--  请问老师代码错在那里？

variable:n1=0,n2=0;
VARIABLE:HIGHPRICE=0,LOWPRICE=0;
B:=REF(MA(C,20),1),PRECISION1,LINETHICK0;
KD1:=CROSS(MA(CLOSE,5),MA(CLOSE,30));
Kk1:=CROSS(MA(CLOSE,30),MA(CLOSE,5));
KD2:=CROSS(MA(CLOSE,10),MA(CLOSE,30));
Kk2:=CROSS(MA(CLOSE,30),MA(CLOSE,10));
KD:=(KD1 and n1=0 )OR( KD2 and n1=0 );
KK:=(KK1 and n2=0) OR( KK2 and n2=0);

t1:=currenttime>=t0totime(timetot0(closetime(0))-2*60);//

IF HOLDING<0   THEN BEGIN
IF (t1 AND CLOSE>B and n2=0  and islastbar )or (not(islastbar) and  CLOSE>B and n2=0)  THEN BEGIN  
 
 SELLSHORT(1,1,marketr);

 n2:=1;
 END
 IF H>=ENTERPRICE*(1+0.02) and n2=0  THEN BEGIN
 
 SELLSHORT(1,1,marketr);
 
  n2:=1;
 END
  IF L<LOWPRICE THEN LOWPRICE:=L;
 
   
  IF ENTERPRICE-LOWPRICE>=30 THEN BEGIN
   IF  H >=LOWPRICE*(1+5/1000)and n2=0 THEN BEGIN  
    
   SELLSHORT(1,1,MARKET);
    n2:=1;
   END
  END
 END 
 
 IF HOLDING=0 THEN BEGIN
  IF ( t1 AND KK and islastbar )or (not(islastbar) and  kk)THEN BEGIN
   BUYSHORT(1=1,1,marketr);
   LOWPRICE:=ENTERPRICE;
  END
END

if dynainfo(207) =closetime(0) then begin//currenttime

    n1:=0;
    n2:=0;
end

 

上述代码加在日K线上，信号没有，发现每根K的n2都为1（说明最后收盘n2归0不起作用），请问老师代码错在那里？
--  作者：lichenghu
--  发布时间：2014/4/21 10:55:43
--  

dynainfo(207) 取的是最新行情时间,没有历史值

改成time把

 

 
--  作者：雪球
--  发布时间：2014/4/21 11:20:15
--  
谢谢
已解决