1. Params
   
2.                 Numeric L1(6);
   
3.                 Numeric Stoploss(4);
   
4. Vars
   
5.                 Bool        upbreak;
   
6.                 Bool        lowbreak;
   
7.                 String        orderstate;
   
8.                 Numeric protectprice;
   
9.                 Numeric Mx;
   
10.                 Numeric Mn;
    
11.                 Numeric i;
    
12. Begin
    
13.         //求最值------------------------------------------------------------------------
    
14.     Mx=High[1];
    
15.     Mn=Low[1];
    
16.     For i=2 To L1
    
17.     {
    
18.         If(High[i]>Mx)
    
19.             Mx=High[i];
    
20.         If(Low[i]<Mn)
    
21.             Mn=Low[i];
    
22.     }
    
23.     PlotNumeric("最大值",Mx);
    
24.     PlotNumeric("最小值",Mn);
    
25.        
    
26.         If(BarStatus==2)
    
27.                 {
    
28.                         orderstate=GetTBProfileString2File("C:\\breaktest.log","開倉控制","已發單");
    
29.                         Commentary("已發單："+orderstate);
    
30.                         If(orderstate=="0" Or orderstate==InvalidString)
    
31.                                 {
    
32.                                         If(Q_Last>Mx)
    
33.                                                 {
    
34.                                                         FileAppend("C:\\breaktest記錄.log",TimeToString(CurrentTime)+"，開多前orderstate為："+orderstate+"，開多前持倉為："+Text(A_TotalPosition)+"，發單價格："+Text(Q_Last));
    
35.                                                         A_SendOrder(Enum_Buy,Enum_Entry,1,Q_AskPrice);
    
36.                                                         SetTBProfileString2File("C:\\breaktest.log","開倉控制","已發單",Text(1));
    
37.                                                 }
    
38.                                         If(Q_Last<Mn)
    
39.                                                 {
    
40.                                                         FileAppend("C:\\breaktest記錄.log",TimeToString(CurrentTime)+"開空前orderstate為："+orderstate+"，開空前持倉為："+Text(A_TotalPosition)+"，發單價格："+Text(Q_Last));
    
41.                                                         A_SendOrder(Enum_Sell,Enum_Entry,1,Q_BidPrice);
    
42.                                                         SetTBProfileString2File("C:\\breaktest.log","開倉控制","已發單",Text(-1));
    
43.                                                 }
    
44.                                 }
    
45.                         If(orderstate=="1")
    
46.                                 {
    
47.                                         protectprice=A_BuyAvgPrice-Stoploss;
    
48.                                         If(Q_Last<protectprice)
    
49.                                                 {
    
50.                                                         FileAppend("C:\\breaktest記錄.log",TimeToString(CurrentTime)+"多單止損前orderstate為："+orderstate+"止損前持倉為："+Text(A_TotalPosition)+"，發單價格："+Text(Q_Last));
    
51.                                                         A_SendOrder(Enum_Sell,Enum_Exit,1,Q_BidPrice);
    
52.                                                         SetTBProfileString2File("C:\\breaktest.log","開倉控制","已發單",Text(0));
    
53.                                                 }
    
54.                                         Else If(Q_Last<Mn)
    
55.                                                 {
    
56.                                                         FileAppend("C:\\breaktest記錄.log",TimeToString(CurrentTime)+"平多前orderstate為："+orderstate+"平倉前持倉為："+Text(A_TotalPosition)+"，發單價格："+Text(Q_Last));
    
57.                                                         A_SendOrder(Enum_Sell,Enum_Exit,1,Q_BidPrice);
    
58.                                                         SetTBProfileString2File("C:\\breaktest.log","開倉控制","已發單",Text(0));
    
59.                                                 }
    
60.                                 }
    
61.                         If(orderstate=="-1")
    
62.                                 {
    
63.                                         protectprice=A_SellAvgPrice+Stoploss;
    
64.                                         If(Q_Last>protectprice)
    
65.                                                 {
    
66.                                                         FileAppend("C:\\breaktest記錄.log",TimeToString(CurrentTime)+"空單止損前orderstate為："+orderstate+"止損前持倉為："+Text(A_TotalPosition)+"，發單價格："+Text(Q_Last));
    
67.                                                         A_SendOrder(Enum_Buy,Enum_Exit,1,Q_AskPrice);
    
68.                                                         SetTBProfileString2File("C:\\breaktest.log","開倉控制","已發單",Text(0));
    
69.                                                 }
    
70.                                         Else If(Q_Last>Mx)
    
71.                                                 {
    
72.                                                         FileAppend("C:\\breaktest記錄.log",TimeToString(CurrentTime)+"平空前orderstate為："+orderstate+"平倉前持倉為："+Text(A_TotalPosition)+"，發單價格："+Text(Q_Last));
    
73.                                                         A_SendOrder(Enum_Buy,Enum_Exit,1,Q_AskPrice);
    
74.                                                         SetTBProfileString2File("C:\\breaktest.log","開倉控制","已發單",Text(0));
    
75.                                                 }
    
76.                                 }
    
77.                 }
    
78. End

zhoucx 發表于 2016-7-14 14:23
買入平倉失敗的原因是前面的開空單尚未成交，因此平倉會失敗。但是不明白為什么止損條件未達到就發了止損單 ...

小米 發表于 2016-7-14 15:19
現有的日志可以確認是滿足了哪一個條件而進行的平倉動作。
可以在日志里再加上內容，判斷當時的條件分別 ...

小米 發表于 2016-7-14 15:19
現有的日志可以確認是滿足了哪一個條件而進行的平倉動作。
可以在日志里再加上內容，判斷當時的條件分別 ...