金字塔K逐線模式下 自編的函數是否正確？動態止盈止損功能有時好用有時不好用 沒有規律。。。。請高手指點錯誤在哪?　[金字塔]

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

    '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍，因此設計時應該注重程序的執行效率，不要重復的執行一些沒必要的代碼
   
    If order.Holding2=0 Then
     Exit Function
    End If

    
 DTZYZS=1
 W=abs(W)
 ' 得到框架名稱為"Technic"，窗格名稱為"Main"的窗格對象
 Set Grid = Technic.GetGridByName("Main")
 
 '最新價格取得
 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) & ":【止盈】委托價:" & 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) & ":【止盈】委托價:" & 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) & ":【止損】委托價:" & 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) & ":【止損】委托價:" & NewPrice+F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 4 '價格收陽止盈
   If NewPrice >= D Then
    call order.Sell(0,W,NewPrice-F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托價:" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 5 '價格收陰止盈
   If NewPrice <= D Then
    call order.SellShort(0,W,NewPrice+F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托價:" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
 End Select

End Function

1.金字塔K逐線模式下 自編的函數是否正確？
2.動態止盈止損功能有時好用有時不好用 沒有規律。。。。請高手指點錯誤在哪?

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

那我用什么方法實現動態止盈止損？。。。謝謝