開拓者trad交易模型源碼[開拓者公式]

Vars
    Numeric cnt;
        Numeric llon;
        Numeric starttime;
        Numeric price;
      //程序化交易 www.miao-tiao.com
Begin
    /*
        GlobalVar(1) llon
        GlobalVar(3) starttime
        */
    llon=GetGlobalVar(1);
      
    If(llon==InvalidNumeric)
        {
            llon=0;
                SetGlobalVar(1,llon);
                starttime=Date+time;
                SetGlobalVar(3,starttime);
                FileAppend("E:\\TB\\t_trad.txt","llon="+Text(llon));
        }
        FileAppend("E:\\TB\\time.txt","starttime="+DateTimeToString(GetGlobalVar(3))+"  time="+DateTimeToString(date+time));
        If(llon == 0 && A_GetOpenOrderCount()==0)
        {
            price=open;
                A_SendOrder(Enum_Buy,Enum_Entry,1,price);              
                FileAppend("E:\\TB\\t_trad.txt","llon="+Text(llon));
                FileAppend("E:\\TB\\t_trad.txt","Datetime= "+DateTimeToString(Date+time)+" Open= "+Text(Open)+" High= "+Text(High)
                +" Low= "+Text(Low)+" Close="+Text(Close)+" CurrentBar= "+Text(CurrentBar)+" Barstatus= "+Text(BarStatus));
                FileAppend("E:\\TB\\t_trad.txt","賬號 "+A_AccountID()+" 合同號 "+A_OrderContractNo(0)+" 商品 IF1303"+" 多開倉"
                +" 數量 "+Text(A_OrderLot(0))+" 狀態 "+Text(A_OrderStatus(0))+" 委托價格 "+Text(A_OrderPrice(0))
                +" 委托時間 "+DateTimeToString(A_OrderTime(0))+ "平開倉狀態 "+Text(A_OrderEntryOrExit(0)));              
        }
      
      
        If(llon>0)
        {
            price=open;
                A_SendOrder(Enum_Buy,Enum_Exit,1,price);              
                FileAppend("E:\\TB\\t_trad.txt","llon="+Text(llon));
                FileAppend("E:\\TB\\t_trad.txt","Datetime= "+DateTimeToString(Date+time)+" Open= "+Text(Open)+" High= "+Text(High)
                +" Low= "+Text(Low)+" Close="+Text(Close)+" CurrentBar= "+Text(CurrentBar)+" Barstatus= "+Text(BarStatus));
                FileAppend("E:\\TB\\t_trad.txt","賬號 "+A_AccountID()+" 合同號 "+A_OrderContractNo(0)+" 商品 IF1303"+" 多開平"
                +" 數量 "+Text(A_OrderLot(0))+" 狀態 "+Text(A_OrderStatus(0))+" 委托價格 "+Text(A_OrderPrice(0))
                +" 委托時間 "+DateTimeToString(A_OrderTime(0))+ "平開倉狀態 "+Text(A_OrderEntryOrExit(0)));      
        }// www.miao-tiao.com
      
        If(A_OrderFilledLot(0)<>0)
        {
            llon=llon+A_OrderFilledLot(0);
                SetGlobalVar(1,llon);
                FileAppend("E:\\TB\\t_trad.txt","llon="+Text(llon));
                FileAppend("E:\\TB\\t_trad.txt","Datetime= "+DateTimeToString(Date+time)+" Open= "+Text(Open)+" High= "+Text(High)
                +" Low= "+Text(Low)+" Close="+Text(Close)+" CurrentBar= "+Text(CurrentBar)+" Barstatus= "+Text(BarStatus));
                FileAppend("E:\\TB\\t_trad.txt","賬號 "+A_AccountID()+" 合同號 "+A_OrderContractNo(0)+" 商品 IF1303"+" 多開倉"
                +" 數量 "+Text(A_OrderLot(0))+" 狀態 "+Text(A_OrderStatus(0))+" 委托價格 "+Text(A_OrderPrice(0))
                +" 委托時間 "+DateTimeToString(A_OrderTime(0))+" 成交數量 "+Text(A_OrderFilledLot(0))
                +" 成交價格 "+Text(A_OrderFilledPrice(0))+" 滑價 "+Text(A_OrderFilledPrice(0)-A_OrderPrice(0))
                +" 獲利 "+Text(A_PositionProfitLoss()));
        }

End