编写MACD背离预警程序需要考虑以下几个步骤：
数据准备
获取股票收盘价数据。
计算MACD值
使用软件函数计算MACD指标值，包括DIF（差离值）、DEA（讯号线）和MACD柱（柱状图）。
识别背离
比较当前周期的股价与上一周期的MACD值，判断是否出现顶背离或底背离。
顶背离：股价创出新高而MACD值未随之上升。
底背离：股价创出新低而MACD值未随之下降。
输出结果
在图表上标注背离信号，以便观察分析。
```pascal
// 计算MACD值
DIFF := EMA（CLOSE, 12） - EMA（CLOSE, 26）；
DEA := EMA（DIFF, 9）；
MACD := 2 * （DIFF - DEA）；
// 识别背离
顶背离：
REF（MACD, 1） > MACD AND CLOSE > REF（CLOSE, 1）；
底背离：
REF（MACD, 1） < MACD AND CLOSE < REF（CLOSE, 1）；
// 输出结果
DRAWICON（顶背离， MACD - 0.2, 1）；
DRAWICON（底背离， MACD + 0.2, -1）；
```
详细步骤说明：
数据准备
确保你有一个包含股票收盘价数据的列表或数据源。
计算MACD值
使用EMA函数计算短期和长期的指数平滑移动平均线。
通过两个周期的EMA相减，得到MACD值。
识别背离
比较当前周期的MACD值与上一周期的MACD值。
如果当前周期的MACD值小于上一周期的MACD值，并且当前周期的股价高于上一周期的股价，则为顶背离。
如果当前周期的MACD值大于上一周期的MACD值，并且当前周期的股价低于上一周期的股价，则为底背离。
输出结果
使用DRAWICON函数在图表上标注背离信号。顶背离用红色箭头表示，底背离用蓝色箭头表示。
注意事项：
确保数据处理的正确性和公式的准确性。
可以根据需要调整MACD周期的长度。
可以添加其他过滤条件，例如MACD柱子的最小值或最大值，以减少误报。
通过以上步骤和示例代码，你可以编写一个基本的MACD背离预警程序。根据具体需求，你可以进一步优化和扩展该程序。