您現(xiàn)在的位置:程序化交易>> 期貨公式>> 交易開拓者(TB)>> 開拓者公式>>正文內(nèi)容

完善的日內(nèi)交易系統(tǒng)框架源碼 可處理信號反復(fù)問題[開拓者公式]

  • 源碼內(nèi)容:

    //------------------------------------------------------------------------
    // 簡稱: s007
    // 名稱: 來源 www.tumamayizhan.com
    // 類別: 交易指令
    // 類型: 其他
    // 輸出:
    //------------------------------------------------------------------------
    Params
            Numeric maxLots(1);//單次開倉手數(shù)
            Numeric maxTrad(3);//最大交易次數(shù)
            Numeric splitRate(3); //交易滑點和傭金       
           
            Numeric ma1(5);
            Numeric ma2(18);
           
            Numeric tradBegin(909); //開倉時間       
            Numeric tradEnd(1440); //開倉時間       
            Numeric closeTime(1456); //bar的時間超過此值后平倉
           
            Numeric stopLoss(40); //虧損大于于此值時止損,為0不判斷
            Numeric stopProfis(200); //盈利高于此值時止贏,為0不判斷
           
            Numeric tracProfis(0); //盈利高于此值后執(zhí)行追蹤止贏,為0不判斷
            Numeric tracLoss(0); //追蹤止盈的回撤值,為0不判斷,
           
            Numeric returnProfis(70); //盈利高于此值后執(zhí)行回撤止贏,為0不判斷       
                   
            Numeric minProfis(10); //持倉bar數(shù)超過maxHoles后盈利小于此值平倉,為0不判斷
            Numeric maxHolds(7);//為0不判斷
    Vars
            String fileName;        
            String fileName2;
            String toDay;
            Numeric splitDot;        //交易滑點
           
            Bool b1(False);//開多條件
            Bool b2(False);//開多條件       
           
            Bool s1(False);//開空條件
            Bool s2(False);//開空條件       
           
            Bool bc(False);//開多條件
            Bool sc(False);//開多條件
           
            Numeric tradePrice(0);//發(fā)單的價格       
           
            StringSeries  tradMem("");//交易描述       
            Numeric tradProve(0);//可否開倉:0/禁止,1/允許
            Numeric tradNum(0);//交易次數(shù)
            Numeric tradState(0);//持倉狀態(tài):0/無,1/多,-1/空       
            Numeric tradCost(0);//持倉成本
            Numeric tradIdx(0);//持倉Bar的index
            Numeric tradCyc(0);//持倉周期
            String pKey;//
            String pKeyTradProve("TRADPROVE");//
            String pKeyTradState("TRADSTATE");//
            String pKeyTradCost("TRADCOST");//
            String pKeyTradNum("TRADNUM");//
            String pKeyTradIdx("TRADIDX");//
           
            Numeric curProfit(0);//持倉當(dāng)前浮動盈虧
            NumericSeries maxProfit(0);//持倉最大浮盈
            NumericSeries maxLoss(0);//持倉最大浮虧
           
            String  dopos("");//持倉處理代碼
            NumericSeries m1(0);
            NumericSeries m2(0);
           
    Begin
            splitDot=splitRate*MinMove();
           
            pKey=FormulaName()+SymbolName()+Text(BarType())+Text(BarInterval());
            pKeyTradProve="TRADPROVE";//
            pKeyTradState="TRADSTATE";//
            pKeyTradCost="TRADCOST";//
            pKeyTradNum="TRADNUM";//
            pKeyTradIdx="TRADIDX";//       
            //初始化
            If(BarStatus==0)
            {               
                    SetTBProfileString(pKey,pKeyTradProve,Text(1));
                    SetTBProfileString(pKey,pKeyTradState,Text(0));
                    SetTBProfileString(pKey,pKeyTradCost,Text(0));
                    SetTBProfileString(pKey,pKeyTradNum,Text(0));
                    SetTBProfileString(pKey,pKeyTradIdx,Text(0));

                    tradMem="";
                    maxProfit=0;
                    maxLoss=0;       
                    Return;
            }

            if(Day !=Day[1])
            {
                    SetTBProfileString(pKey,pKeyTradProve,Text(1));
                    SetTBProfileString(pKey,pKeyTradState,Text(0));
                    SetTBProfileString(pKey,pKeyTradCost,Text(0));
                    SetTBProfileString(pKey,pKeyTradNum,Text(0));
                    SetTBProfileString(pKey,pKeyTradIdx,Text(0));
                   
                    tradMem=" ";               
                    maxProfit=0;
                    maxLoss=0;               
            }       
            Else
            {
                    //獲取交易狀態(tài)
                    tradProve=Value(GetTBProfileString(pKey,pKeyTradProve));
                    tradState=Value(GetTBProfileString(pKey,pKeyTradState));
                    tradCost=Value(GetTBProfileString(pKey,pKeyTradCost));
                    tradNum=Value(GetTBProfileString(pKey,pKeyTradNum));
                    tradIdx=Value(GetTBProfileString(pKey,pKeyTradIdx));
                   
                    tradMem=" ";               
                    maxProfit=maxProfit[1];
                    maxLoss=maxLoss[1];

                    m1=iTodayEMA(Open,ma1);//指標(biāo)
                    m2=iTodayEMA(Open,ma2);//指標(biāo)

                    //開倉條件
                    //跌停板附近不開多倉,漲停附近不開空倉
                    if(BarStatus==2)
                    {
                            b1=Close>(Q_LowerLimit()+15*MinMove());
                            s1=Close<(Q_UpperLimit()-15*MinMove()) ;
                    }
                    Else
                    {       
                            b1=Not(High==Low And High==Close Or High[1]==Low[1] );
                            s1=Not(High==Low And High==Close Or High[1]==Low[1] );
                    }               
                           
                    If(tradNum<=maxTrad And Time>=0.0001*tradBegin And Time<=0.0001*tradEnd)
                    {
                            //開倉條件
                            bc=CrossOver(m1,m2) And b1 ;//
                            sc=CrossUnder(m1,m2) And b1 ;//                                               
                    }               
           
                    // 當(dāng)前無倉-----------------------------------------------------------------Begin
                    if(tradState==0 )
                    {               
                            // 當(dāng)前無倉,開始建立多頭
                            if(bc)
                            {
                                    if(BarStatus==2)        tradePrice= Q_AskPrice +splitDot; Else tradePrice=Open+splitDot;                               
                                    If(Buy(maxLots,tradePrice))
                                    {
                                            SetTBProfileString(pKey,pKeyTradProve,Text(0));
                                            SetTBProfileString(pKey,pKeyTradState,Text(1));
                                            SetTBProfileString(pKey,pKeyTradCost,Text(tradePrice));
                                            SetTBProfileString(pKey,pKeyTradNum,Text(1+tradNum));
                                            SetTBProfileString(pKey,pKeyTradIdx,Text(CurrentBar()));               
                                            tradMem="開多-"+Text(tradePrice);
                                            Commentary(tradMem);                                                                               
                                    }
                            }
                            Else
                            // 當(dāng)前無倉,開始建立空頭
                            If(sc)
                            {
                                    if(BarStatus==2)tradePrice= Q_BidPrice -splitDot; Else tradePrice=Open-splitDot;                               
                                    If(SellShort(maxLots,tradePrice))
                                    {
                                            SetTBProfileString(pKey,pKeyTradProve,Text(0));
                                            SetTBProfileString(pKey,pKeyTradState,Text(-1));
                                            SetTBProfileString(pKey,pKeyTradCost,Text(tradePrice));
                                            SetTBProfileString(pKey,pKeyTradNum,Text(1+tradNum));
                                            SetTBProfileString(pKey,pKeyTradIdx,Text(CurrentBar()));                                                               
                                            tradMem="開空-"+Text(tradePrice);
                                            Commentary(tradMem);                                       
                                    }
                            }
                    }
                    // 當(dāng)前無倉-----------------------------------------------------------------end
                    // 當(dāng)前有倉-----------------------------------------------------------------begin
                    Else
                    {
                            //計算當(dāng)前盈虧和最大浮動盈虧
                            curProfit=tradState*(Close-tradCost);                       
                            If(BarStatus==2)
                            {                               
                                    If(curProfit>maxProfit)        maxProfit=curProfit;
                                    If(curProfit<maxLoss)                maxLoss=curProfit;
                            }
                            Else
                            {
                                    If(tradState==1)
                                    {
                                            If((High-tradCost)>maxProfit) maxProfit=(High-tradCost);
                                            If((Low-tradCost)<maxLoss)                maxLoss=(Low-tradCost);
                                    }
                                    If(tradState==-1)
                                    {
                                            If((tradCost-Low)>maxProfit)        maxProfit=tradCost-Low;
                                            If((tradCost-High)<maxLoss)        maxLoss=tradCost-High;       
                                    }
                            }                       
                           
                            //平多反空
                            If(tradState==1 And sc And tradNum<maxTrad And Time>=0.0001*tradBegin And Time<=0.0001*tradEnd)
                            {
                                    if(BarStatus==2)tradePrice= Q_BidPrice -splitDot; Else tradePrice=Open-splitDot;       
                                    If(SellShort(maxLots,tradePrice))
                                    {
                                            tradMem="平多反空-"+Text(tradePrice);Commentary(tradMem);
                                            SetTBProfileString(pKey,pKeyTradProve,Text(1));
                                            SetTBProfileString(pKey,pKeyTradState,Text(-1));
                                            SetTBProfileString(pKey,pKeyTradCost,Text(tradePrice));
                                            SetTBProfileString(pKey,pKeyTradNum,Text(1+tradNum));
                                            SetTBProfileString(pKey,pKeyTradIdx,Text(CurrentBar()));
                                            maxProfit=0;
                                            maxLoss=0;       
                                            curProfit=0;
                                    }
                            }
                            //平空反多
                            If(tradState==-1 And bc And tradNum<maxTrad And Time>=0.0001*tradBegin And Time<=0.0001*tradEnd)
                            {
                                    if(BarStatus==2)        tradePrice= Q_AskPrice +splitDot; Else tradePrice=Open+splitDot;       
                                    If(Buy(maxLots,tradePrice))
                                    {
                                            tradMem="平空反多-"+Text(tradePrice);Commentary(tradMem);
                                            SetTBProfileString(pKey,pKeyTradProve,Text(1));
                                            SetTBProfileString(pKey,pKeyTradState,Text(1));
                                            SetTBProfileString(pKey,pKeyTradCost,Text(tradePrice));
                                            SetTBProfileString(pKey,pKeyTradNum,Text(1+tradNum));
                                            SetTBProfileString(pKey,pKeyTradIdx,Text(CurrentBar()));
                                            maxProfit=0;
                                            maxLoss=0;
                                            curProfit=0;                                       
                                    }
                            }       
                           
                            tradCyc=(CurrentBar()-tradIdx);
                            tradMem="浮盈:"+Text(curProfit)+",最大浮盈:"+Text(maxProfit)+",倉期:"+Text(tradCyc);Commentary(tradMem);
                            dopos="";
                            //開倉BAR的處理
                            if(tradCyc==0)
                            {
                           
                            }                       
                            //持倉BAR的處理
                            Else
                            if(tradCyc>0)
                            {
                                    //開倉后第一根BAR的處理-應(yīng)對bar走完后的信號消失問題**********************************************                               
                                    if(tradCyc==1)
                                    {
                                          。。。。。
                                    }               
                                    Else                               
                                    dopos=DoPosition(tradState,tradCyc,curProfit,maxProfit,stopLoss,stopProfis,tracProfis,tracLoss,returnProfis,minProfis,maxHolds,closeTime);
                            }
                           
                            dopos=DoPosition(tradState,tradCyc,curProfit,maxProfit,stopLoss,stopProfis,tracProfis,tracLoss,returnProfis,minProfis,maxHolds,closeTime);
                            //統(tǒng)一的平倉處理-------------------------------------------------------------------------------------------
                            if(Len(dopos)>2)
                            {
                                    //處理交易價格,叫賣叫買價加上滑點,便于成交
                                    if(BarStatus==2)
                                    {
                                            If(tradState==1)         tradePrice= Q_BidPrice -splitDot;
                                            If(tradState==-1)         tradePrice= Q_AskPrice +splitDot;
                                    }Else tradePrice=Close-tradState*splitDot;
                                   
                                    //平多
                                    If(tradState==1)
                                    {
                                            If(Sell(maxLots,tradePrice))
                                            {
                                                    tradMem=dopos+":平多-"+Text(tradePrice);
                                                    SetTBProfileString(pKey,pKeyTradProve,Text(1));
                                                    SetTBProfileString(pKey,pKeyTradState,Text(0));                                               
                                                    maxProfit=0;
                                                    maxLoss=0;
                                            }
                                    }
                                    //平空
                                    If(tradState==-1)
                                    {
                                            If(BuyToCover(maxLots,tradePrice))
                                            {
                                                    tradMem=dopos+":平空-"+Text(tradePrice);
                                                    SetTBProfileString(pKey,pKeyTradProve,Text(1));
                                                    SetTBProfileString(pKey,pKeyTradState,Text(0));                                               
                                                    maxProfit=0;
                                                    maxLoss=0;                                               
                                            }
                                    }               
                                    Commentary(tradMem);                       
                            }                       
                    }                                       
            }
    End

     

     

     

     

     

     

     

  • 補充說明: m1=iTodayEMA(Open,ma1);//指標(biāo)
    m2=iTodayEMA(Open,ma2);//指標(biāo)
    dopos=DoPosition(tradState,tradCyc,curProfit,maxProfit,stopLoss,stopProfis,tracProfis,tracLoss,returnProfis,minProfis,maxHolds,closeTime);
    是用戶函數(shù),自己編吧。

     

  •  該指令采用文件方式保存開平倉狀態(tài),可以解決開倉bar走完后,信號又消失的問題!

     

 

有思路,想編寫各種指標(biāo)公式,程序化交易模型,選股公式,預(yù)警公式的朋友

可聯(lián)系技術(shù)人員 QQ: 262069696  點擊在線交流進行 有償 編寫!不貴!點擊查看價格!

 


【字體: 】【打印文章】【查看評論

相關(guān)文章

    沒有相關(guān)內(nèi)容
  主站蜘蛛池模板: 欧美日韩高清性色生活片| 久久se精品一区二区影院| 精品久久久噜噜噜久久久| 国产成人精品久久| 91在线精品亚洲一区二区| 妞干网在线免费视频| 中文字幕永久在线观看| 最新仑乱免费视频| 亚洲校园春色另类激情| 玩弄放荡人妻少妇系列视频| 四虎国产在线观看| 青青青国产在线视频| 国产福利短视频| 800av凹凸视频在线观看| 大美女啪啪污污网站| 久久精品九九热无码免贵| 欧美成人一区二区三区| 亚洲黄色在线观看视频| 精品国产AV无码一区二区三区| 国产丫丫视频私人影院| 亚洲中文久久精品无码1| imim5.vip| 日韩欧美国产另类| 亚洲一区二区三区在线观看蜜桃| 欧美精欧美乱码一二三四区| 伊人免费在线观看| 精品人妻大屁股白浆无码| 四虎国产精品永久在线播放| 请与我同眠未删减未遮挡小说 | 精品在线一区二区| 国产一区二区三区不卡观| 野外三级国产在线观看| 国产在线19禁免费观看| julia无码人妻中文字幕在线| 欧美乱妇高清无乱码免费| 亚洲电影在线播放| 波多野结衣视频网| 人妻少妇看A偷人无码精品视频| 青青草91在线| 国产成人永久免费视频| 麻豆麻豆必出精品入口|