欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 【新手上路】报错说缺少分号,我逐行检查过了,每一行都有,想问一下是什么情况

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3031人关注过本帖平板打印复制链接

主题:【新手上路】报错说缺少分号,我逐行检查过了,每一行都有,想问一下是什么情况

帅哥哟,离线,有人找我吗?
QuantMe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:27 积分:0 威望:0 精华:0 注册:2017/5/22 10:09:51
  发帖心情 Post By:2017/6/5 10:51:08    Post IP:180.169.105.40[只看该作者]

 
IF position = 1      AND     BARPOS > t20     AND     H > L      THEN BEGIN
    
    WHILE ( H > myEntryPrice + 0.5 * N ) AND ( turtleUnits < 4 ) DO BEGIN    // 加仓
        myEntryPrice := IF( OPEN > myEntryPrice + 0.5 * N , OPEN , myEntryPrice + 0.5 * N ) ;
        myEntryPrice := CEILING( myEntryPrice / MINDIFF ) * MINDIFF ;
        posNum         := FLOOR( onePercentAssest / N ) ;
        BUY( _debug , posNum , LIMITR , myEntryPrice ) ;
        turtleUnits  := turtleUnits + 1 ;
        buyOrderThisBar := 1 ;
    END
    
    LONGEXIT1 := LOW < t10L ;
    IF LONGEXIT1 AND buyOrderThisBar = 0 THEN BEGIN
        myExitPrice := IF( OPEN < t10L - MINDIFF , OPEN , t10L - MINDIFF ) ;
        SELL( _debug , 0 , LIMITR , myExitPrice ) ;
        position     := 0 ;
        turtleUnits := 0 ;
    END
    
    LONGEXIT2 := LOW < myEntryPrice - 2 * N ;
    IF LONGEXIT2 AND POSITION = 1 AND buyOrderThisBar = 0 THEN BEGIN
        myExitPrice    := IF( OPEN < myEntryPrice - 2 * N , OPEN , myEntryPrice - 2 * N ) ;
        myExitPrice := FLOOR( myExitPrice / MINDIFF ) * MINDIFF ;
        SELL( _debug , 0 , LIMITR , myExitPrice ) ;
        position     := 0 ;
        turtleUnits := 0 ;
    END
    
    
END
ELSE
IF position = -1    AND     BARPOS > t20    AND        H > L     THEN BEGIN

    WHILE  LOW < myEntryPrice - 0.5 * N  AND    BARPOS > t20 AND     H > L DO BEGIN
        myEntryPrice    := IF( OPEN < myEntryPrice - 0.5 * N , OPEN , myEntryPrice - 0.5 * N  ) ;
        myEntryPrice    := FLOOR( MYENTRYPRICE /  MINDIFF ) * MINDIFF ;
        posNum            := FLOOR( onePercentAssest / N ) ;
        BUYSHORT( _debug , posNum , LIMITR , myEntryPrice ) ;
        turtleUnits     := turtleUnits + 1 ;
        buyOrderThisBar    := 1 ;
    END
    
    SHORTEXIT1 := HIGH > t10H ;
    IF SHORTEXIT1     AND buyOrderThisBar = 0 THEN BEGIN
        myExitPrice     := IF( OPEN > t10H + MINDIFF , OPEN , t10H + MINDIFF ) ;
        SELLSHORT(    _debug , 0 , LIMITR , myExitPrice ) ;
        postiion        := 0 ;
        turtleUnits        := 0 ;
    END
    
    SHORTEXIT2 := HIGH > myEntryPrice + 2 * N ;
    IF SHORTEXIT2    AND position = -1    AND buyOrderThisBar = 0 THEN BEGIN
        myExitPrice        := IF( OPEN > myEntryPrice + 2 * N  , OPEN , myEntryPrice + 2 * N  ) ;
        myEntryPrice    := CEILING( myEntryPrice / MINDIFF ) * MINDIFF ;
        SELLSHORT(    _debug , 0 , LIMITR , myExitPrice ) ;
        position         := 0 ;
        turtleUnits        := 0 ;
    END
    
    
END


CONTINUELINE@
资产        : ASSET , LINETHICK0 ;
可用现金    : CASH(0) , LINETHICK0 ;
持仓量        : HOLDING , LINETHICK0 ;
交易次数    : TOTALDAYTRADE , LINETHICK0 ;

IF _DEBUGOUT>0 THEN BEGIN

    DEBUGFILE2('C:\DEBUGFILE.TXT','BARPOS=%.0F' ,BARPOS,NT ) ;
    DEBUGFILE2('C:\DEBUGFILE.TXT','T20HI=%.2F' ,T20HI ,NT) ;
    DEBUGFILE2('C:\DEBUGFILE.TXT','N=%.2F' ,N ,NT) ;
    DEBUGFILE2('C:\DEBUGFILE.TXT','CLOSE=%.2F' ,C ,NT) ;
    DEBUGFILE2('C:\DEBUGFILE.TXT','POSITION=%.0F' ,POSITION,NT ) ;
    DEBUGFILE2('C:\DEBUGFILE.TXT','TURTLEUNITS=%.0F' ,TURTLEUNITS,NT ) ;
    DEBUGFILE2('C:\DEBUGFILE.TXT','MYENTRYPRICE=%.0F' ,MYENTRYPRICE ,NT) ;
    DEBUGFILE2('C:\DEBUGFILE.TXT','MYEXITPRICE=%.0F' ,MYEXITPRICE ,NT) ;
    
END //IF

当前持仓    : HOLDING , COLORGRAY , LINETHICK0 ;
当前资产    : ASSET , NOAXIS , COLORGRAY ;

 回到顶部