能否帮我检查一下，这段代码，有没有啥问题啊？

cfmx2007

Params
Numeric nMax(100000);
Numeric nMin(0);
Numeric nLots(1);
Vars
NumericSeries nP1(0);
Begin
nP1=Data0.Close-Data1.Close;
//价差太小
If(nP1<nMin)
{
        //平仓
        If(Data0.A_SellPosition>0 && Data0.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Buy,Enum_Exit,Data0.A_SellPosition,Data0.Q_BidPrice);
        }
        If(Data1.A_BuyPosition>0 && Data1.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Data1.Q_AskPrice);
        }
        //开仓
        If(Data0.A_BuyPosition==0 && Data0.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Buy,Enum_Entry,nLots,Data0.Q_AskPrice);
        }
        If(Data1.A_BuyPosition==0 && data1.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Sell,Enum_Entry,nLots,Data1.Q_BidPrice);
        }
}
//价差太大
If(nP1>nMax)
{
        //平仓
        If(Data0.A_BuyPosition>0 &&  Data0.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Sell,Enum_Exit,Data0.A_BuyPosition,Data0.Q_BidPrice);
        }
        if(Data1.A_SellPosition>0 && Data1.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Buy,Enum_Exit,Data1.A_SellPosition,Data1.Q_AskPrice);
        }
        //开仓
        If(Data0.A_SellPosition==0 && Data0.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Sell,Enum_Entry,Data0.A_BuyPosition,Data0.Q_BidPrice);
        }
        if(Data1.A_SellPosition>0 && Data1.A_GetOpenOrderCount==0)
        {
                A_SendOrder(Enum_Buy,Enum_Entry,Data1.A_SellPosition,Data1.Q_AskPrice);
        }
}
End

cfmx2007

呵呵，问题太多，我先自己检查测试一下。。。

[ 本帖最后由 cfmx2007 于 2008-11-19 10:18 编辑 ]

nopain

说一下您想实现什么啊，毫无头绪让我们怎么看

nopain

如果是想要做套利，那就肯定是不行，因为不能收盘价作为判断的标准，要以买卖盘差值进行判断

cfmx2007

呵呵，想实现的想法就是：当两个商品Data0，Data1，当（Data0-Data1）价差大于nMax时候卖出Data0，买进Data1；当（Data0-Data1）价差小于nMin时候，买进Data0，卖出Data1。。。
：-）

nopain

这就是价差套利，直接用价差下单就可以实现了。

当然程序也可以，要用买卖盘来判断，最好不要用a函数来判断，用全局变量来控制仓位

cfmx2007

呵呵，我修改了一下，老大，其他的先不管了，我慢慢调试，语法上的函数使用上的错误，帮我看看好吗？

Params
Numeric nMax(100000);
Numeric nMin(-100000);
Numeric nLots(1);
Vars
NumericSeries nP1(0);
Begin
nP1=Data0.Close-Data1.Close;
//价差太小
If(nP1<nMin)
{
        //平仓
        If(Data0.A_SellPosition>0 && Data0.A_GetOpenOrderCount==0)
        {
                Data0.A_SendOrder(Enum_Buy,Enum_Exit,Data0.A_SellPosition,Data0.Q_BidPrice);
        }
        If(Data1.A_BuyPosition>0 && Data1.A_GetOpenOrderCount==0)
        {
                data1.A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Data1.Q_AskPrice);
        }
        //开仓
        If(Data0.A_BuyPosition==0 && Data0.A_GetOpenOrderCount==0)
        {
                Data0.A_SendOrder(Enum_Buy,Enum_Entry,nLots,Data0.Q_AskPrice);
        }
        If(Data1.A_BuyPosition==0 && data1.A_GetOpenOrderCount==0)
        {
                data1.A_SendOrder(Enum_Sell,Enum_Entry,nLots,Data1.Q_BidPrice);
        }
}
//价差太大
If(nP1>nMax)
{
        //平仓
        If(Data0.A_BuyPosition>0 &&  Data0.A_GetOpenOrderCount==0)
        {
                Data0.A_SendOrder(Enum_Sell,Enum_Exit,Data0.A_BuyPosition,Data0.Q_BidPrice);
        }
        if(Data1.A_SellPosition>0 && Data1.A_GetOpenOrderCount==0)
        {
                data1.A_SendOrder(Enum_Buy,Enum_Exit,Data1.A_SellPosition,Data1.Q_AskPrice);
        }
        //开仓
        If(Data0.A_SellPosition==0 && Data0.A_GetOpenOrderCount==0)
        {
                Data0.A_SendOrder(Enum_Sell,Enum_Entry,Data0.A_BuyPosition,Data0.Q_BidPrice);
        }
        if(Data1.A_SellPosition==0 && Data1.A_GetOpenOrderCount==0)
        {
                data1.A_SendOrder(Enum_Buy,Enum_Entry,Data1.A_SellPosition,Data1.Q_AskPrice);
        }
}
End