筹码集中度的编程可以通过不同的编程语言和工具来实现，例如在通达信等股票分析软件中，可以使用其提供的API函数来获取筹码集中度数据。以下是一个基于通达信的筹码集中度编程示例：
```pascal
{ 获取筹码集中度数据 }
P1:=90； { 高位线 }
F:=COST（5）； { 5日成本 }
J:=COST（95）； { 95日成本 }
M:=COST（15）； { 15日成本 }
N:=COST（85）； { 85日成本 }
{ 计算获利比例 }
获利比例：WINNER（CLOSE）*100,NODRAW；
{ 绘制筹码集中度线 }
STICKLINE（获利比例，获利比例，0,2,1）,COLORLIGRAY；
STICKLINE（获利比例>=70，获利比例，0,1,0）,COLORLIGRAY；
STICKLINE（获利比例>=80，获利比例，0,1,0）,COLORGREEN；
STICKLINE（获利比例>=90，获利比例，0,1,0）,COLORRED；
{ 计算筹码集中度 }
A:=P1+（100-P1）/2；
B:=（100-P1）/2；
CC:=COST（A）；
DD:=COST（B）；
筹码集中度：（CC-DD）/（CC+DD）*100,NODRAW；
{ 绘制筹码集中度线 }
STICKLINE（筹码集中度<=10，获利比例/2,0,1,0）,COLORYELLOW；
```
代码解释：
获取成本信息
`COST（5）`、`COST（95）`、`COST（15）`、`COST（85）` 分别表示 5 日、95 日、15 日、85 日的成本线。
计算获利比例
`WINNER（CLOSE）*100` 计算当前价格下的获利比例，`NODRAW` 表示不绘制该线。
绘制筹码集中度线
使用 `STICKLINE` 函数绘制不同获利比例的线，颜色分别为浅灰色、绿色和红色。
计算筹码集中度
`A` 和 `B` 分别表示高位线和低位线的位置。
`CC` 和 `DD` 分别表示高位线和低位线的成本值。
`（CC-DD）/（CC+DD）*100` 计算筹码集中度，`NODRAW` 表示不绘制该线。
绘制筹码集中度线
使用 `STICKLINE` 函数绘制筹码集中度线，颜色为黄色，当筹码集中度小于等于 10 时显示。
注意事项：
代码中的 `COST` 函数用于获取股票的成本信息，`WINNER` 函数用于计算获利比例。
实际应用中，可能需要根据具体的数据格式和需求进行调整。
该代码适用于通达信等支持 API 的股票分析软件。
希望这个示例能帮助你理解如何在通达信中编写筹码集中度的编程代码。如果有其他编程语言或工具的需求，请提供更多信息以便进一步协助。