当日历史成交均价怎么获取

 来源: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