通达信筹码集中度公式源码

通达信筹码集中度公式的源码如下：

// 筹码集中度（Concentration of Chips）
// 输入参数：vol，v[1]，v[2]，v[3]，v[4]，v[5]，v[6]，v[7]，v[8]，v[9]，v[10]
// 输出参数：CC
var
    i: integer;
    sum_vol, sum_v, avg_v: double;
begin
    sum_vol := 0;
    sum_v := 0;
    for i := 1 to 10 do
    begin
        sum_vol := sum_vol + vol[i];
        sum_v := sum_v + vol[i] * v[i];
    end;
    avg_v := sum_v / sum_vol;
    CC := 0;
    for i := 1 to 10 do
    begin
        CC := CC + vol[i] * sqr(v[i] - avg_v);
    end;
    CC := CC / sqr(sum_vol);
end;

其中，`vol` 代表成交量，`v` 代表价格。函数返回的结果为筹码集中度（CC）。