请大侠帮忙改写一个自动交易系统

nopain

原帖由 柳长街 于 2007-10-11 11:23 发表
测试了下，成交到是非常迅速。可能是我表达的不够完整，我的意思单子应该是在收盘的时候下单，比如15分钟，应该在9.15　9.30　9.45等收盘时间下单，还有一个问题是开的空单，向上穿越牙齿后立马平了空单，开了多单，这个执行的很好，可 ...

这样就复杂很多啦。等我考虑考虑先~

yk1234

Vars
    NumericSeries MyPrice;
    NumericSeries MidPrice;        // 定义变量用于保存高低价的平均值。
    NumericSeries Value1;
    NumericSeries Value2;
Begin
    MidPrice = (High + Low)/2;
    Value1 = WAverage(MidPrice,8);
    Value2 = Value1[5];
        If(CrossOver(Close,Value2))
    {
        Buy(1,Close);
                MyPrice=Close;
    }

    If(CrossUnder(Close,Value2))
    {
        SellShort(1,Close);
                MyPrice=Close;
    }
         
        If(Permutation==1&&Myprice-Close>60)
        {  Sell(1,close) ;}
       
         If(Permutation==-1&&Close-Myprice>60)
        {  BuyToCover(1,close) ;}   
End

yk1234

原帖由 柳长街 于 2007-10-11 11:23 发表
测试了下，成交到是非常迅速。可能是我表达的不够完整，我的意思单子应该是在收盘的时候下单，比如15分钟，应该在9.15　9.30　9.45等收盘时间下单，还有一个问题是开的空单，向上穿越牙齿后立马平了空单，开了多单，这个执行的很好，可 ...

1.加入MarketPosition!=1和MarketPosition!=-1后,
Vars
    NumericSeries MyPrice;
    NumericSeries MidPrice;        // 定义变量用于保存高低价的平均值。
    NumericSeries Value1;
    NumericSeries Value2;
Begin
    MidPrice = (High + Low)/2;
    Value1 = WAverage(MidPrice,8);
    Value2 = Value1[5];

    If(MarketPosition!=1)
     {   If(CrossOver(Close,Value2))
              {Buy(1,Close);
                MyPrice=Close;}
     }

    If(MarketPosition!=-1)
    {    If(CrossUnder(Close,Value2))
         {SellShort(1,Close);
                MyPrice=Close; }
    }
  可以平单，但买卖信号反复出现，原来只设置一手合约，结果有好几手合约在帐号中．
　
　如有合约在手，必须先平合合约，后再开仓，该如何设置？

nopain

交易设置里面，不能连续开仓

柳长街

这些信号是不该有的，因为我们设置的是穿越牙齿也就是红线才产生信号的，谢谢

ilian

原帖由 柳长街 于 2007-10-11 11:23 发表
测试了下，成交到是非常迅速。可能是我表达的不够完整，我的意思单子应该是在收盘的时候下单，比如15分钟，应该在9.15　9.30　9.45等收盘时间下单，还有一个问题是开的空单，向上穿越牙齿后立马平了空单，开了多单，这个执行的很好，可 ...

Vars
        NumericSeries MidPrice;   // 定义变量用于保存高低价的平均值。
        NumericSeries myEntryPrice;     // 用来保存中间变量
Begin
        MidPrice = (High + Low)/2;

        myEntryPrice = Average(MidPrice[1],8);

        
        If(CrossOver(high, myEntryPrice[5] ))
        {
                myEntryPrice = IIF(myEntryPrice[5] < Open, Open,myEntryPrice[5]);  
                buy(1, myEntryPrice[5] );
        }

        If(CrossUnder(low, myEntryPrice[5]  ))
        {
                myEntryPrice = IIF(myEntryPrice[5] > Open, Open,myEntryPrice[5]);
                SellShort(1, myEntryPrice[5] );
        }
End

[ 本帖最后由 ilian 于 2007-10-16 15:30 编辑 ]

柳长街

原帖由 ilian 于 2007-10-16 15:28 发表



Vars
        NumericSeries MidPrice;   // 定义变量用于保存高低价的平均值。
        NumericSeries myEntryPrice;     // 用来保存中间变量
Begin
        MidPrice = (High + Low)/2;

        myEntryPric ...

谢谢，有很多信号不对啊，要求股价穿越牙齿也就是红线发出信号

ilian

原帖由 柳长街 于 2007-10-16 15:42 发表



谢谢，有很多信号不对啊，要求股价穿越牙齿也就是红线发出信号

修改了个版本，这个会精确啦 :
Vars
        NumericSeries MidPrice;   // 定义变量用于保存高低价的平均值。
        NumericSeries AvePrice;     // 用来保存中间变量
                NumericSeries EnterPoint;
                Numeric myEntryPrice ;
               
Begin
    // IF (Currentbar>9)
         //{
            MidPrice = (High[1] + Low[1])/2;

            AvePrice = Average(MidPrice,8);
     
        
             EnterPoint=AvePrice[5];
                 Commentary("触发价:"+Text(EnterPoint));
                If(CrossOver(high, EnterPoint ))
        {
                myEntryPrice = IIF(EnterPoint < Open, Open,EnterPoint);  
                buy(1, myEntryPrice);
        }

        If(CrossUnder(low, EnterPoint ))
        {
                myEntryPrice = IIF(EnterPoint > Open, Open,EnterPoint);
                SellShort(1, myEntryPrice);
        }
                //}
End

[ 本帖最后由 ilian 于 2007-10-16 19:31 编辑 ]

轮回

原帖由 nopain 于 2007-10-10 17:01 发表
偶也没有搞明白这家伙什么时候这么有钱！威望，积分都比俺高~

我也不明白,这些积分有什么用,如果有用的话还可以考虑考虑多挣点.

柳长街

原帖由 轮回 于 2007-10-16 20:34 发表


我也不明白,这些积分有什么用,如果有用的话还可以考虑考虑多挣点.

呵呵，是没有什么用，不过推广出去了知道tb的人多了，高人就多了，象我没有文化的人就有老师可以请教了