?

?來源:CXH99.COM

1. //------------------------------------------------------------------------
   
2. // 簡稱: SettlePrice
   
3. // 名稱: 求當日的近似結算價格
   
4. // 類別: 用戶函數
   
5. // 類型: 用戶函數
   
6. // 輸出: 數值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Vars
   
10. ? ? ? ? Series<Numeric> TotalAmount;
    
11. ? ? ? ? Series<Numeric> TotalVol;
    
12. ? ? ? ? series<numeric> SettlePrice;
    
13. Begin
    
14. ? ? ? ? if (CurrentBar==0 or date!=Date[1])
    
15. ? ? ? ? {
    
16. ? ? ? ? ? ? ? ? TotalAmount = Close * Vol;
    
17. ? ? ? ? ? ? ? ? TotalVol = Vol;
    
18. ? ? ? ? }else
    
19. ? ? ? ? {
    
20. ? ? ? ? ? ? ? ? TotalAmount = TotalAmount[1] + Close * Vol;
    
21. ? ? ? ? ? ? ? ? TotalVol = TotalVol[1] + Vol;
    
22. ? ? ? ? }? ? ? ?
    
23. ? ? SettlePrice = TotalAmount / TotalVol;
    
24. ? ? ? ? return SettlePrice;
    
25. End

?