KDB加权中位数

KDB是一种流行的数据库，常在金融领域应用。实现KDB加权中位数的方法如下：

/ 计算KDB加权中位数
weighted_median:{[weights;values]
   / 将权重和值重新排序
   sorted_vals_weights:asc each (values;weights);
   sorted_vals:sorted_vals_weights[0];
   sorted_weights:sorted_vals_weights[1];

   total_weight:sum sorted_weights;

   mid_ind:ceiling total_weight%2;
   mid_sum:first n?sum)/2+mid_ind; / 计算中间位置的权重和

   / 逐步累加权重并寻找中位数
   weight_sum:0;
   median_val:0;
   i:-1;
   while[weight_sum<mid_sum;
          i:i+1;
          weight_sum+:sorted_weights[i];
          median_val:sorted_vals[i]];
   median_val}

使用以上代码，可以传入权重值和对应的数值序列，得到KDB加权中位数。