设为首页收藏本站
切换到窄版

 找回密码
 注册
返回列表 发新帖
查看: 2692|回复: 7
打印 上一主题 下一主题

程序调试有问题 [复制链接]

13302164608

Rank: 4

精华
0
UID
5941
积分
285
帖子
33
主题
14
阅读权限
50
注册时间
2009-11-21
最后登录
2017-3-11
跳转到指定楼层
1#
发表于 2010-7-24 14:27:18 |只看该作者 |倒序浏览
开仓条件：在2950点下买入一手，每降30点买一手，以此类推
平仓条件：单笔持仓盈利30点即平仓，以此类推
遇的问题：1、同一点位重复开仓
希望您帮我将程序调试一下
Vars
    NumericSeries conFailureCnt(0);
    Numeric WinDots(300);
    Numeric LossDots(300);
    Numeric qsjg(2950); //起始价
    Numeric Type(1);
        Numeric lots(1);
    Numeric MoneyProfit(300);
    Bool         ExitPosition(false);
Begin
    If(BarStatus==0)
    {
        conFailureCnt = 0;
    }else
    {
        conFailureCnt = conFailureCnt[1];
    }
    If(Close < qsjg && MarketPosition == 0)
   {
       conFailureCnt = conFailureCnt  + 1;
       Buy(lots,high,true);
    }
Else  {
                If(close < (qsjg - conFailureCnt*LossDots))
        {
              conFailureCnt = conFailureCnt  + 1;
              Buy(lots,high,true);
        }else
         {SetProfitTarget(Type,MoneyProfit,ExitPosition);
         conFailureCnt = conFailureCnt  - 1;  
    }
        }

End

使用道具 举报

13302164608

Rank: 4

精华
0
UID
5941
积分
285
帖子
33
主题
14
阅读权限
50
注册时间
2009-11-21
最后登录
2017-3-11
2#
发表于 2010-7-26 14:15:23 |只看该作者

求助

程序调试有问题
开仓条件：在2950点下买入一手，每降30点买一手，以此类推
平仓条件：单笔持仓盈利30点即平仓，以此类推
遇的问题：1、同一点位重复开仓
希望您帮我将程序调试一下
Vars
    NumericSeries conFailureCnt(0);
    Numeric WinDots(300);
    Numeric LossDots(300);
    Numeric qsjg(2950); //起始价
    Numeric Type(1);
        Numeric lots(1);
    Numeric MoneyProfit(300);
    Bool         ExitPosition(false);
Begin
    If(BarStatus==0)
    {
        conFailureCnt = 0;
    }else
    {
        conFailureCnt = conFailureCnt[1];
    }
    If(Close < qsjg && MarketPosition == 0)
   {
       conFailureCnt = conFailureCnt  + 1;
       Buy(lots,high,true);
    }
Else  {
                If(close < (qsjg - conFailureCnt*LossDots))
        {
              conFailureCnt = conFailureCnt  + 1;
              Buy(lots,high,true);
        }else
         {SetProfitTarget(Type,MoneyProfit,ExitPosition);
         conFailureCnt = conFailureCnt  - 1;  
    }
        }

End

使用道具 举报

lh948

Rank: 10Rank: 10Rank: 10

精华
2
UID
4130
积分
20906
帖子
6519
主题
17
阅读权限
200
注册时间
2009-4-15
最后登录
2019-4-12
3#
发表于 2010-7-26 14:38:24 |只看该作者
把这一句    If(Close < qsjg && MarketPosition == 0)
改成                If(Close < qsjg && close >= (qsjg - conFailureCnt*LossDots) && MarketPosition == 0)

使用道具 举报

13302164608

Rank: 4

精华
0
UID
5941
积分
285
帖子
33
主题
14
阅读权限
50
注册时间
2009-11-21
最后登录
2017-3-11
4#
发表于 2010-7-26 15:41:43 |只看该作者
3# lh948

使用道具 举报

13302164608

Rank: 4

精华
0
UID
5941
积分
285
帖子
33
主题
14
阅读权限
50
注册时间
2009-11-21
最后登录
2017-3-11
5#
发表于 2010-7-26 15:42:28 |只看该作者
3# lh948
多谢指教，但经调试还是重复发买单

使用道具 举报

13302164608

Rank: 4

精华
0
UID
5941
积分
285
帖子
33
主题
14
阅读权限
50
注册时间
2009-11-21
最后登录
2017-3-11
6#
发表于 2010-7-27 19:58:17 |只看该作者
3# lh948
请老大再帮我看看，多谢

使用道具 举报

13302164608

Rank: 4

精华
0
UID
5941
积分
285
帖子
33
主题
14
阅读权限
50
注册时间
2009-11-21
最后登录
2017-3-11
7#
发表于 2010-7-30 10:59:22 |只看该作者
改后测试还是重复发单，盼给调调。

使用道具 举报

lh948

Rank: 10Rank: 10Rank: 10

精华
2
UID
4130
积分
20906
帖子
6519
主题
17
阅读权限
200
注册时间
2009-4-15
最后登录
2019-4-12
8#
发表于 2010-7-31 21:19:02 |只看该作者
conFailureCnt不需要初始化
加仓与开仓可以写在一起，如下：
        If(Close < qsjg && close >= (qsjg - conFailureCnt*LossDots)  && MarketPosition == 0)
        {
                conFailureCnt = conFailureCnt  + 1;
                Buy(lots,high,true);
                qsjg=qsjg - conFailureCnt*LossDots;
        }
每开一次仓后，将起始价格下调conFailureCnt*LossDots，这样就可以做到每跌30点，加仓一次

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698 )    

GMT+8, 2024-5-25 19:18

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部