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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 【新手上路】报错缺少分号,麻烦看一下是什么情况

   

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


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

主题:【新手上路】报错缺少分号,麻烦看一下是什么情况

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


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

 
IF ISLASTBAR THEN    // 对最后一根K线情况进行特殊处理, 因为最后一根K线数据可能是实时更新的
    BEGIN
            IF EXTGBDATA( strExitBarPos <> BARPOS ) THEN                    // 当最后一根K线未发出过出场信号时进行处理
                BEGIN
                            IF EXTGBDATA( strEntryBarPos ) = BARPOS THEN    // 当新录入数据棒的位置与之前位置相同,说明是数据实时更新,需要进行数据覆盖,避免发生错误
                                BEGIN
                                            POSITION         :=     EXTGBDATA( strPosition ) ;
                                            entryPrice        :=    EXTGBDATA( strPreEntryPrice ) ;
                                            turtleUnits     :=    EXTGBDATA( strTurtleUnits    ) ;
                                            N                :=    EXTGBDATA( preN    )    ;
                                END

                            IF POSITION = 0 THEN
                                BEGIN
                                            long  =  H > t20H ;
                                            short = L < t20L ;
                                            IF NOT ( long AND short ) THEN
                                                BEGIN
                                                
                                                    IF long THEN
                                                        BEGIN
                                                                entryPrice     :=     IF( OPEN > t20H + MINDIFF , OPEN , t20H + MINDIFF ) ;            //这个地方买价需要讨论
                                                                POSITION      :=    1 ;
                                                                turtleUnits :=  1 ;
                                                                N            :=    avgTR ;
                                                                
                                                                TBUY( _debug , posNum , LMT , entryPrice ) , ALLOWREPEAT ;
                                                                
                                                                
                                                                EXTGBDATASET( strEntryBarPos , BARPOS ) ;
                                                                EXTGBDATASET( strPosition , POSITION ) ;
                                                                EXTGBDATASET( strTurtleUnits , turtleUnits ) ;
                                                                EXTGBDATASET( strPreN , N ) ;
                                                                EXTGBDATASET( strPreEntryPrice , entryPrice ) ;
                                                        END
                                                    
                                                    IF short THEN
                                                        BEGIN
                                                                entryPrice    :=    IF( OPEN < t20L - MINDIFF , OPEN , t20L - MINDIFF  ) ;            //这个地方买价需要讨论
                                                                POSITION     :=    -1 ;
                                                                turtleUnits :=    1 ;
                                                                N            :=     avgTR ;
                                                                
                                                                TBUYSHORT(    _debug ,     posNum ,     LMT ,    entryPrice ) , ALLOWREPEAT ;    
                                                                
                                                                EXTGBDATASET( strEntryBarPos , BARPOS ) ;
                                                                EXTGBDATASET( strPosition , POSITION ) ;
                                                                EXTGBDATASET( strTurtleUnits , turtleUnits ) ;
                                                                EXTGBDATASET( strPreN , N ) ;
                                                                EXTGBDATASET( strPreEntryPrice , entryPrice ) ;
                                                        END
                                                    
                                                END
                                            

                                END

 回到顶部
总数 18 1 2 下一页