红外跟踪程序可以使用多种编程语言实现，包括MATLAB和C++等。以下是使用MATLAB实现红外目标跟踪的一个简单示例代码：
```matlab
% 生成待检测的图像
im1 = 0.6 * ones（128, 128）；
im1（80, 90） = 256；
im1（100, 100） = 256；
imshow（im1）；
hold on；
% 确定邻域的大小
r = 2；
k = 1；
% 调用编写的函数计算图像的局域灰度概率矩阵
P = target_detect（im1, r）；
figure；
mesh（P）；
% 在图像im1上标出检测到的奇异点
for i = 1:length（P）
plot（Pc（i）, Pr（i）, 'g+'）；
end
hold off；
% 检测下一帧图像中奇异点位置（上一帧检测到的）附近邻域是否存在奇异点
P1 = target_refine（Pr, Pc, im2, r1）；
% 确定奇异点的位置
[Prt, Pct] = find（P1 > k1 / （2 * r1 + 1）^2 + 0.1）；
```
这个示例代码包括以下几个步骤：
1. 生成一幅待检测的图像，并在图像上标出一些奇异点。
2. 确定邻域的大小，并调用`target_detect`函数计算图像的局域灰度概率矩阵。
3. 在图像上标出检测到的奇异点。
4. 检测下一帧图像中奇异点位置附近邻域是否存在奇异点，并确定奇异点的位置。
请注意，这只是一个简单的示例代码，实际的红外跟踪程序可能会更加复杂，需要考虑更多的因素，如图像预处理、目标检测算法、跟踪算法等。如果您需要更详细或更复杂的红外跟踪程序，建议参考相关的学术文献或开源项目。