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

《日內交易策略--谷物期貨交易實戰指南》中的策略 [開拓者 TB]

  • 咨詢內容: 《日內交易策略--谷物期貨交易實戰指南》中提到的策略。
    缺點:有時因r比較小,止損會很小;在有日內明顯趨勢的時候,因為止盈,而僅賺到比較小的部分。
    怎么改呢?給點意見唄
    1. Params

    2. vars

    3.   Bool     buycon;               //開多條件
    4.   Bool     sellcon;              //開空條件
    5.   Bool     specialbuy;
    6.   Bool     specialsell;
    7.   Numeric  r;
    8.   Numeric  temp;
    9.   Numeric  MyEntryPrice;
    10.   String   sFileName;
    11.   Numeric  BST;  
    12.   Numeric  HD;
    13.   Numeric  LD;
    14.   Numeric  N;
    15.   Numeric  i;
    16.   
    17. begin
    18.   BST=BarsSinceToday+1;
    19.   sFileName="d:\\my_TB\\RetracementBreakupBT"+Text(CurrentDate)+".log";
    20.   PlotString("barnum",Text(BST),low-5);

    21.   N=BST;                     //求從開始到前一根K線的最大值最小值,Lowest和LowD求最值都包含了這個K線的最值。
    22.   LD=Low[1];
    23.   For i = 1 To N-1
    24.   {
    25.     temp=LD;
    26.     LD=Min(Low[i],temp);
    27.   }
    28.   
    29.   HD=High[1];
    30.   For i = 1 To N-1
    31.   {
    32.     temp=HD;
    33.     HD=Max(High[i],temp);
    34.   }
    35.   
    36.   FileAppend(sFileName, "\n進入第"+Text(BST)+"跟K線");
    37.   FileAppend(sFileName, "\n已知最低點"+Text(LD)+"  GetGlobalVar(0)"+Text(GetGlobalVar(0))+"  GetGlobalVar(1)"+Text(GetGlobalVar(1))+"  GetGlobalVar(2)"+Text(GetGlobalVar(2)));

    38. If(Date != Date[1] || BarStatus == 0)   
    39. {
    40.    SetGlobalVar(0,0);      //用全局變量0來做趨勢的指標,1為向上,0為中立,-1為向下
    41.    SetGlobalVar(1,0);      //用全局變量1來表示高點
    42.    SetGlobalVar(2,0);      //用全局變量2來表示低點
    43.    SetGlobalVar(3,0);      //用全局變量3來表示無持倉的高低點出現在當日第幾根K線
    44.    SetGlobalVar(4,0);      //用全局變量4來表示孕線數
    45.    SetGlobalVar(5,0);      //用全局變量5來表示回撤激值點
    46.    SetGlobalVar(6,0);      //用全局變量6來表示r
    47.    FileAppend(sFileName, "\n 全局變量初始化");  
    48.    return;                 //當日的第一根K線,推出、不交易  
    49. }
    50.   
    51.   If(GetGlobalVar(0)==0)         
    52.   {
    53.     if (close[1] > open[1])
    54.     {  
    55.           SetGlobalVar(0,1);
    56.           SetGlobalVar(1,HD);
    57.           SetGlobalVar(2,LD);
    58.           SetGlobalVar(3,BST-1);
    59.           FileAppend(sFileName,"在第"+Text(BST-1)+"跟K線,確定最初看漲趨勢");
    60.           return;
    61.     }
    62.         else if (close[1] < open[1])
    63.     {
    64.          SetGlobalVar(0,-1);
    65.          SetGlobalVar(1,HD);
    66.          SetGlobalVar(2,LD);
    67.          SetGlobalVar(3,BST-1);
    68.          FileAppend(sFileName,"在第"+Text(BST-1)+"跟K線,確定最初看跌趨勢");
    69.      return;
    70.         }
    71.         else return;
    72.   }
    73.   

    74.   
    75.   //四種出現新高新低的新情況
    76.   If(GetGlobalVar(0)==1 And High[1]>GetGlobalVar(1) And MarketPosition==0)   
    77.   {
    78.         SetGlobalVar(1,High[1]);
    79.         SetGlobalVar(4,0);
    80.         SetGlobalVar(5,0);
    81.         FileAppend(sFileName,"在上一根K線,有新高點產生,看漲傾向不變。");
    82.   }
    83.   
    84.   If(BST==4) FileAppend(sFileName,"看看第四個K線到不到這【1】"+Text(Low[1])+"  "+Text(GetGlobalVar(2))+"  "+Text(GetGlobalVar(0)));
    85.   
    86.   If(GetGlobalVar(0)==1 And Low[1]<GetGlobalVar(2) )
    87.   {
    88.     If(BST==4) FileAppend(sFileName,"看看第四個K線進不進來");
    89.         SetGlobalVar(0,-1);
    90.         SetGlobalVar(2,Low[1]);
    91.         SetGlobalVar(4,0);
    92.         SetGlobalVar(5,0);
    93.         FileAppend(sFileName,"在上一根K線,有新低點產生,由看漲傾向變成看跌傾向。");
    94.   }
    95.   If(GetGlobalVar(0)==-1 And Low[1]<GetGlobalVar(2) And MarketPosition==0)
    96.   {
    97.     SetGlobalVar(2,Low[1]);
    98.         SetGlobalVar(4,0);
    99.         SetGlobalVar(5,0);
    100.         FileAppend(sFileName,"在上一根K線,有新低點產生,看跌傾向不變。");
    101.   }
    102.    If(GetGlobalVar(0)==-1 And High[1]>GetGlobalVar(1) )
    103.   {
    104.     SetGlobalVar(0,1);
    105.         SetGlobalVar(1,High[1]);
    106.         SetGlobalVar(4,0);
    107.         SetGlobalVar(5,0);
    108.         FileAppend(sFileName,"在上一根K線,有新高點產生,由看跌傾向變成看漲傾向。");
    109.   }
    110.   
    111.   
    112.    If( MarketPosition==0)
    113.   {
    114.     If( High[1] < GetGlobalVar(1) And Low[1] >GetGlobalVar(2) )  //孕線
    115.    {
    116.      temp=GetGlobalVar(4)+1;
    117.          SetGlobalVar(4,temp);
    118.          FileAppend(sFileName,"上一根K線為孕線,此時孕線數為"+Text(GetGlobalVar(4)));
    119.    }
    120.    If(GetGlobalVar(0)==1 And High[1]<High[2] And Low[1]<Low[2])    //看漲時的回撤極值點
    121.    {
    122.      SetGlobalVar(5,Low[1]);
    123.          FileAppend(sFileName,"看漲傾向下有新回撤極值點");
    124.    }
    125.    If(GetGlobalVar(0)==-1 And High[1]>High[2] And Low[1]>Low[2])   //看跌時的回撤極值點
    126.    {
    127.      SetGlobalVar(5,High[1]);
    128.          FileAppend(sFileName,"看跌傾向下有新回撤極值點");
    129.    }
    130.   }
    131.   
    132.   
    133.   specialbuy = (GetGlobalVar(0)==1 And GetGlobalVar(4)==1 And BST==3 And High> GetGlobalVar(1) );         
    134.   specialsell= (GetGlobalVar(0)==-1 And GetGlobalVar(4)==1 And BST==3 And Low < GetGlobalVar(2) );
    135.   
    136.   buycon = ( GetGlobalVar(0)==1  And GetGlobalVar(4)>= 2 And High > GetGlobalVar(1));
    137.   sellcon= ( GetGlobalVar(0)==-1 And GetGlobalVar(4)>= 2 And Low < GetGlobalVar(2) );
    138.          
    139.   If((buycon || specialbuy) And MarketPosition==0)
    140.   {
    141.      temp=GetGlobalVar(1);
    142.          Buy(1,temp);
    143.          FileAppend(sFileName,"");
    144.   }  
    145.   
    146.   If((sellcon||specialsell) And MarketPosition==0)
    147.   {
    148.      temp=GetGlobalVar(2);
    149.      SellShort(1,temp);
    150.   }

    151.   If(GetGlobalVar(1) == 0) FileAppend(sFileName,"計算r時高點為0,異常!");
    152.   If(GetGlobalVar(2) == 0) FileAppend(sFileName,"計算r時低點為0,異常!");
    153.    
    154.   If(GetGlobalVar(5)==0)
    155.       r=GetGlobalVar(1)-GetGlobalVar(2);
    156.   Else If(GetGlobalVar(0)==1)
    157.       r=GetGlobalVar(1)-GetGlobalVar(5);
    158.   Else If(GetGlobalVar(0)==-1)
    159.       r=GetGlobalVar(5)-GetGlobalVar(2);
    160.   FileAppend(sFileName,"計算得出的r為"+Text(r));
    161.   
    162.   
    163.   //止損止盈部分
    164.   MyEntryPrice=AvgEntryPrice;
    165.   If(MarketPosition==1 And BarsSinceEntry>=1)
    166.   {
    167.     If(High>=MyEntryPrice + 2*r)
    168.     {
    169.            temp=MyEntryPrice+2*r;
    170.            If(Open>temp) temp=Open;
    171.            Sell(1,temp);
    172.            SetGlobalVar(4,0);
    173.            SetGlobalVar(1,HD);
    174.            SetGlobalVar(2,LD);
    175.         }Else If(Low<MyEntryPrice-r)
    176.         {
    177.            temp=MyEntryPrice-r;
    178.            If(Open<temp) temp=Open;
    179.            Sell(0,temp);
    180.            SetGlobalVar(1,HD);
    181.            SetGlobalVar(2,LD);
    182.            SetGlobalVar(4,0);
    183.         }
    184.   }Else If(MarketPosition==-1 And BarsSinceEntry>=1)
    185.   {
    186.      If(Low<MyEntryPrice-2*r)
    187.         {
    188.            temp=MyEntryPrice-2*r;
    189.            If(Open<temp) temp=Open;
    190.            BuyToCover(1,temp);
    191.            SetGlobalVar(1,HD);
    192.            SetGlobalVar(2,LD);
    193.            SetGlobalVar(4,0);
    194.         }Else If(High>MyEntryPrice+r)
    195.         {
    196.            temp=MyEntryPrice+r;
    197.            If(Open>temp) temp=Open;
    198.            BuyToCover(1,temp);
    199.            SetGlobalVar(1,HD);
    200.            SetGlobalVar(2,LD);
    201.            SetGlobalVar(4,0);
    202.         }
    203.    }
    204.    
    205.    //尾盤平倉
    206.    If((Date[-1] != InvalidInteger && Date != Date[-1]) || (Date[-1]==InvalidInteger && Date<CurrentDate))  
    207.    {
    208.      Sell(1,Close);
    209.          BuyToCover(1,Close);
    210.    }          
    211.           
    212. end   

     

  • TB技術人員: 可否不設止盈,改用跟蹤止損,比如用吊燈止損或棘輪止損,這樣就能讓利潤奔跑.
    這是棘輪止損的鏈接:http://bbs.tb18.net/thread-19775-1-1.html

     

  • TB客服: 剛到論壇這么短的時間,能寫出這個,真是挺不一般的人物呀。

 

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

可聯系技術人員 QQ: 1145508240  點擊這里給我發消息進行 有償 編寫!不貴!點擊查看價格!


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 另类人妖与另类欧美| 国产男女爽爽爽爽爽免费视频| 91精品国产自产在线观看永久∴| 尹人久久久香蕉精品| 高h视频在线免费观看| 美女被免费视频网站| 男人j桶进女人j的视频| 欧美中文字幕视频| 日本欧美视频在线观看| 性欧美18-19sex性高清播放| 国产麻豆欧美亚洲综合久久| 国产在线拍揄自揄视精品不卡| 又污又爽又黄的网站| 亚洲小视频网站| 中文字幕在线观看不卡视频| 99精品热这里只有精品| 国产精品大片天天看片| 精品乱码久久久久久中文字幕| 欧美日韩国产专区| 无码日韩精品一区二区三区免费| 女人扒开双腿让男人捅| 国产成人黄色在线观看| 八戒网站免费观看视频| 亚洲av午夜福利精品一区| 一级毛片大全免费播放下载| **aaaaa毛片免费同男同女| 美女福利视频一区二区| 欧美多人换爱交换乱理伦片| 成人自拍视频网| 国产男女爽爽爽免费视频| 免费A级毛片在线播放不收费| 五月天婷婷在线视频国产在线| yw193龙物视频永不失联| 高清色本在线www| 欧美视频免费在线| 成人中文乱幕日产无线码| 国产欧美日产中文| 亚洲精品国产精品乱码不99| 中文字幕日韩精品无码内射| 欧美亚洲日本另类人人澡gogo| 男女超级黄aaa大片免费|