1. Params
   
2.     Numeric offSet(1);                    // 委托價格偏移，為了保證成交
   
3.     Numeric BeforeMins(5);                // 收盤前幾分鐘開始操作
   
4. Vars
   
5.     Numeric tempPos; // 倉位                                
   
6.     Numeric DeleteOrderTickCounter;    //Tick計數器
   
7.     Numeric HasSendOrder(0);          //撤單標志
   
8. Begin
   
9.     If(BarStatus == 0)     //第一個bar時，對Tick計數器、撤單標志初始化、并存放全局變量
   
10.     {
    
11.         DeleteOrderTickCounter = 9999;
    
12.         HasSendOrder = 0;
    
13.         SetGlobalVar(0,DeleteOrderTickCounter);
    
14.         SetGlobalVar(1,HasSendOrder);
    
15.     }Else          //其他bar、從全局變量中讀取撤單tick計數器撤單標志的值
    
16.     {
    
17.         DeleteOrderTickCounter = GetGlobalVar(0);
    
18.         HasSendOrder = GetGlobalVar(1);
    
19.     }
    
20. 
    
21.     If(CurrentTime > (0.1459 - 0.0001*(BeforeMins-1)) && BarStatus == 2 && HasSendOrder == 0)
    
22.     {
    
23.         If(Data0.Close != InvalidNumeric && Data0.A_GetOpenOrderCount()>0) // 商品0全部撤單
    
24.         {
    
25.             Data0.A_DeleteOrder();
    
26.             DeleteOrderTickCounter = 1;
    
27.         }
    
28.    
    
29.         DeleteOrderTickCounter = DeleteOrderTickCounter + 1;
    
30.         SetGlobalVar(0,DeleteOrderTickCounter);
    
31. 
    
32.         If(DeleteOrderTickCounter < 5) Return; // 撤單后需要延遲幾個Tick才平倉（Tick開始計數，為了延遲5個Tick后的平倉用）
    
33. 
    
34.         tempPos = Data0.A_BuyPosition();
    
35.         If(tempPos > 0) // 平多單
    
36.         {
    
37.             Data0.A_SendOrder(Enum_Sell,Enum_Exit,tempPos,Data0.Q_BidPrice-offSet*Data0.MinMove*Data0.PriceScale);
    
38.         }
    
39.         tempPos = Data0.A_SellPosition();
    
40.         If(tempPos > 0) //平空單
    
41.         {
    
42.             Data0.A_SendOrder(Enum_Buy,Enum_Exit,tempPos,Data0.Q_AskPrice+offSet*Data0.MinMove*Data0.PriceScale);
    
43.         }
    
44. 
    
45.       
    
46.         HasSendOrder = 1;
    
47.         SetGlobalVar(1,HasSendOrder);
    
48.     }
    
49. End
    
50. 誰能說說 If(DeleteOrderTickCounter < 5) Return;這條語句return返回到哪嗎？是不是返回程序的第一行，如果是的話那豈不是如果條件不滿足的時候會一直撤單，還有一個問題就是，比如說在15分鐘線上執行程序，在某一根bar上檢測到撤單信號，但是這跟bar要過15分鐘才轉到下一根bar那么這個程序在這跟bar是不是來回的執行？

小米 發表于 2014-8-28 15:33
執行到return，那么后面的語句就不再執行。待下一個tick或K線進來，從頭開始新一輪的運算。
撤單執行后，那 ...

yekunpeng 發表于 2014-8-28 16:12
我的意思是，15分鐘的bar不是要在一根bar上執行15分鐘嗎，比如說在這根bar一開始就已經撤單，是不是這個 ...

小米 發表于 2014-8-28 16:15
整個公式是要不停地一遍又一遍地運算的。