盈利后不再开仓，有地方不对，请高手,使用金字塔的全局变量数据库修改下 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

IF (DAY()<>REF(DAY(),1)) THEN BEGIN
BWINCOUNT:=0;
SWINCOUNT:=0;
END;

IF BWINCOUNT=0 THEN BEGIN
    IF BWINCOUNT=0 THEN BEGIN
       TBUY(CLOSE>HH2 AND TTYPE(1)<>1 AND TIME<145901 AND TEXITBARS<>0,N,LMT,CLOSE+MINDIFF);
         END

    IF TTYPE(1)=1 THEN BEGIN
     TSELL((CLOSE<LL1 OR TIME>145900 OR CLOSE>(TENTERPRICE+20) OR CLOSE<(TENTERPRICE-5)),N,LMT,CLOSE-MINDIFF);
        END

    IF (TTYPE(1)=2 AND TENTERPRICE<TEXITPRICE) THEN BEGIN
     BWINCOUNT:=1;
     END

END

     IF SWINCOUNT=0 THEN BEGIN
    IF SWINCOUNT=0 THEN BEGIN
       TBUYSHORT(CLOSE<LL2 AND TTYPE(1)<>3 AND TIME<145901 AND TEXITBARS<>0,N,LMT,CLOSE-MINDIFF);
    END

    IF TTYPE(1)=3 THEN BEGIN
     TSELLSHORT((CLOSE>HH1 OR TIME>145900 OR CLOSE>(TENTERPRICE+5) OR CLOSE<(TENTERPRICE-5)),N,LMT,CLOSE+MINDIFF);
     END

    IF (TTYPE(1)=4 AND TENTERPRICE>TEXITPRICE) THEN BEGIN
     SWINCOUNT:=1;
     END

     END

[此贴子已经被admin于2009-12-22 15:28:08编辑过]

主题：盈利后不再开仓，有地方不对，请高手,使用金字塔的全局变量数据库修改下