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

開拓者盈多虧交易策略源碼[開拓者公式]

 

//------------------------------------------------------------------------
// 簡稱: JY
// 名稱:盈多虧少
// 類別: 公式應用
// 類型: 用戶應用
// 輸出: www.tumamayizhan.com
//------------------------------------------------------------------------

Params
    Bool bInitStatus(false);   
    Numeric InitMP(0);
    Numeric MidLinel(5600);
    Numeric MidLineLength(250);
    Numeric FirstGrid(3);
    Numeric TotalGrids(10);
    Numeric GridInterval(3);
    Numeric WinGrid(3);   
    Numeric EveryLots(1);   
    Numeric MidLineWeieht(1);
    Numeric ExitOnCloseMins(14.50);
        
Vars
    Numeric MidLineWeight;
    NumericSeries midline;   
    Numeric MinPoint;   
    Numeric AvgOfClose;   
    Numeric AskLine;     
    Numeric BidLine;     
    NumericSeries RealMidLine;     
    Numeric MyRealMp(0);     
    Numeric TmpGridIndex;     
    Numeric TmpPrice;
        Numeric TmpPriee;
        Numeric OpenDPrice;
        
Begin

     OpenDPrice= opend;
    if(day<>day[1])     
      {
             midline=OpenDPrice;
          }Else         
         {
                    midline=midline[1];
                 }
        MinPoint=MinMove*PriceScale;
        MyRealMp=GetGlobalvar (0);
        AvgOfClose =AverageFC(Close, MidLineLength);     
    If (BarStatus== O)   
      {
            If(MyRealMp  ==  InvalidNumeric || bInitStatus)
            {
                           MyRealMp=InitMP;
                           SetGlobalVar(0,MyRealMp);
                        }Else
                        If(BarStatus==2&&A_AccountID!="")
               {
                              If(Q_AskPrice <= 0||Q_BidPrice <=0 )
                                  Return;
                           }
          }
        
         If(Q_BidPrice==Q_UpperLimit||Q_AskPrice==Q_LowerLimit)
        {
               Return;
                }      
    If ((Time==0.0900||Time==0.1030||Time==0.1330)&&(High ==Low))
         {
               Return;
                }            
    If (CurrentTime<ExitOnCloseMins/100)
        {
                   RealMidLine=MidLine*MidLineWeight+AvgOfClose*(1-MidLineWeight);

               AskLine=Q_AskPrice;
               BidLine=Q_BidPrice;
               Commentary ("中線="+Text (RealMidLine));
               Commentary ("叫賣價="+Text (Askline));
               Commentary ("叫買價"+Text (BidLine) );
        If (MyRealmP<=0 &&BidLine>RealMidLine+FirstGrid*MinPoint)
           {
                  TmpPrice=RealMidLine+FirstGrid*MinPoint+Abs (MyRealMp)* (GridInterval*MinPoint);
              TmpPriee=Ceiling (TmpPrice, Minpoint);   
              Commentary ("開倉價="+text (TmpPrice));   
              TmpGridIndex=1- IntPart   ((BidLine-RealMidLine -FirstGrid*MinPoint)/(GridInterval*MinPoint));
                        If(TmpGridIndex<MyRealMp&&TmpGridIndex>=-1*TotalGrids)
                 {
                                     MyRealMp=MyRealMp-1; A_SendOrder (Enum_Buy, Enum_Entry, EveryLots, BidLine);
                                 }//來源: www.tumamayizhan.com
                  }Else
                  If(MyRealMp>=0 && AskLine<RealMidLine- FirstGrid*MinPoint)
         
            {
                            TmpPrice=RealMidLine -FirstGrid*MinPoint -Abs(MyRealMp)*(GridInterval*MinPoint);
                TmpPrice= Floor (TmpPrice, MinPoint);               
                                Commentary ("開倉價="+Text (TmpPrice));                              
                TmpGridIndex=1+Intpart ((RealMidLine- FirstGrid*MinPoint- AskLine)/(GridInterval*MinPoint));
              If(TmpGridIndex>MyRealMp && TmpGridIndex<=TotalGrids)               
                 {
                                   MyRealMp=MyRealMp+1;
                                   A_SendOrder(Enum_Sell, Enum_Entry, EveryLots, AskLine);
                                 }
             }                                 
                  If (MyRealMp>O)                                                
                     {
                                             TmpPrice=RealMidLine-FirstGrid*MinPoint - (Abs (MyRealMp) -1) * (GridInterval*MinPoint) +WinGrid*MinPoint;
                         TmpPrice = Ceiling(TmpPrice, MinPoint);
                         Commentary ("平倉價 ="+Text (TmpPriee));                           
                    }Else
                                        If (MyRealMp<O)
                       {
                                              TmpPrice=RealMidLine+FirstGrid*MinPoint +(Abs (MyRealMp)- 1 )*(GridInterval*MinPoint) -WinGrid*MinPoint;  
                                                 TmpPriee = Floor (TmpPrice, MinPoint);                              
                          Commentary ("平倉價="+Text (TmpPrice));
                                           }                           
                       TmpGridIndex=-1- IntPart((AskLine-FirstGrid*MinPoint+WinGrid*MinPoint-RealMidLine)/(GridInterval*MinPoint));      
                       TmpGridIndex=min (0, TmpGridIndex);
                       If(TmpGridIndex>MyRealMp)  
                          {
                                                     MyRealMp=MyRealMp+1;
                                                         A_SendOrder (Enum_Sell, Enum_Exit, EveryLots,AskLine);   
                             TmpGridIndex=1+IntPart((RealMidLine-FirstGrid*MinPoint+WinGrid*MinPoint-BidLine)/(GridInterval*MinPoint));         
                                                         TmpGridIndex=max (0, TmpGridIndex);
                                                  }
                                          If(TmpGridIndex < MyRealMp)  
                          {
                                                        MyRealMp=MyRealMp-1;
                                                        A_SendOrder (Enum_sell, Enum_Exit, EveryLots,BidLine);
                                                  }
                                                  
          }Else
                  If(CurrentTime> ExitOnCloseMins/100)                                         
             {
                           If(MyRealMp>0)
                    {
                                           MyRealMp=MyRealMp-1;A_SendOrder(Enum_Sell,Enum_Exit,EveryLots,BidLine);
                                        }Else
                                        If(MyRealMp<0)
                                           {
                                              MyRealMp=MyRealMp+1;A_SendOrder(Enum_Buy,Enum_Exit,EveryLots,AskLine);
                                           }
            }
                        SetGlobalVar(0,MyRealMp);
            Commentary("實際倉位="+Text(MyRealMp));
            Commentary("當前時間="+Text(Q_LastTime));
        if(Q_LastTime >0.145000 and CurrentTime<0.150000)
      {
            A_SendOrder(Enum_Sell,Enum_Exit,1,Q_BidPrice);

        A_SendOrder(Enum_Buy,Enum_Exit,1,Q_AskPrice);
         }

End




//------------------------------------------------------------------------
// 編譯版本        GS2010.12.08
// 用戶版本        2012/09/10 11:16
// 版權所有        www.tumamayizhan.com
// 更改聲明        TradeBlazer Software保留對TradeBlazer平臺
//                        每一版本的TrabeBlazer公式修改和重寫的權利
//------------------------------------------------------------------------

 

有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

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

 


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

相關文章

    沒有相關內容
  主站蜘蛛池模板: 一个人www免费看的视频| 亚洲av福利天堂一区二区三| 一本丁香综合久久久久不卡网站| 日韩精品无码免费一区二区三区| 亚洲最大激情中文字幕| 特级毛片www| 免费看男女下面日出水视频| 野花香社区在线视频观看播放| 国产极品视觉盛宴| **肉体一级毛片| 国产高清视频在线| gav男人天堂| 好男人资源视频在线播放| 中文字幕1区2区| 无码av大香线蕉伊人久久| 久久九九国产精品怡红院| 波多野结衣cesd—819高清| 免费超爽大片黄| 精品欧美日韩一区二区三区| 国产精品观看在线亚洲人成网| chinese体育男白袜videogay| 岛国视频在线观看免费播放| 亚洲乱码国产乱码精品精| 毛片免费视频在线观看| 人人妻人人狠人人爽| 看欧美黄色大片| 国产人妖视频一区二区破除| 91麻豆最新在线人成免费观看| 天天躁狠狠躁狠狠躁性色av| 久久中文字幕久久久久91| 日韩在线第二页| 亚洲第一区视频在线观看| 真实国产乱子伦对白视频| 免费高清a级毛片在线播放| 91香蕉在线看私人影院| 波多野结衣中出在线| 又黄又爽的视频免费看| 翁与小莹浴室欢爱51章| 啊灬啊灬啊灬深灬快用力| 精精国产XXXX视频在线| 午夜毛片不卡高清免费|