金字塔K逐線模式下 自編的函數(shù)是否正確？動態(tài)止盈止損功能有時(shí)好用有時(shí)不好用 沒有規(guī)律。。。。請高手指點(diǎn)錯(cuò)誤在哪?　[金字塔]

Function DTZYZS(Formula,T,K,D,F,W)
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '函數(shù)機(jī)能:動態(tài)止盈止損
 '參數(shù)說明:T 0:收陽止盈 1:收陰止盈 2:收陽止損 3:收陰止損 4:價(jià)格收陽止盈 5:價(jià)格收陰止盈
 '         K 持倉價(jià)
 '         D 指定值
 '         F 浮動點(diǎn)
 '         W 委托量  
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    '系統(tǒng)會在逐K線模式解釋公式時(shí)的每個(gè)周期都會調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼
   
    If order.Holding2=0 Then
     Exit Function
    End If

    
 DTZYZS=1
 W=abs(W)
 ' 得到框架名稱為"Technic"，窗格名稱為"Main"的窗格對象
 Set Grid = Technic.GetGridByName("Main")
 
 '最新價(jià)格取得
 Set Report1=marketdata.GetReportData(Grid.StockLabel,Grid.Market)
 NewPrice=Report1.NewPrice

 '分別處理
 Select Case T
  Case 0 '收陽止盈
   If NewPrice >= K + D Then
    call order.Sell(0,W,NewPrice-F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托價(jià):" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 1 '收陰止盈
   If NewPrice <= K - D Then
    call order.SellShort(0,W,NewPrice+F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托價(jià):" & NewPrice+F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 2 '收陽止損
   If NewPrice <= K - D Then
call order.Sell(0,W,NewPrice-F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止損】委托價(jià):" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 3 '收陰止損
   If NewPrice >= K + D Then
    call order.SellShort(0,W,NewPrice+F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止損】委托價(jià):" & NewPrice+F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 4 '價(jià)格收陽止盈
   If NewPrice >= D Then
    call order.Sell(0,W,NewPrice-F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托價(jià):" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 5 '價(jià)格收陰止盈
   If NewPrice <= D Then
    call order.SellShort(0,W,NewPrice+F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托價(jià):" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
 End Select

End Function

1.金字塔K逐線模式下 自編的函數(shù)是否正確？
2.動態(tài)止盈止損功能有時(shí)好用有時(shí)不好用 沒有規(guī)律。。。。請高手指點(diǎn)錯(cuò)誤在哪?

首先我們給出的建議是，自定義函數(shù)中盡量不要去用逐k線，這樣容易導(dǎo)致問題。具體問題可能還要經(jīng)過測試才知道。

那我用什么方法實(shí)現(xiàn)動態(tài)止盈止損？。。。謝謝