管子滚花程序的编制可以采用以下步骤：
确定加工参数
工件直径：确定需要滚花的管子直径。
模数：确定滚花的模数，即螺纹的公称直径与每英寸长度的螺纹数。
节距：确定螺纹的节距，即相邻两个螺纹峰之间的距离。
头数：确定滚花刀的头数，即同时参与滚花的螺纹峰数。
导程：计算导程，即滚花刀每转一圈，工件转过的距离。
计算程序中的变量
头数：头数 = 工件直径 / 模数。
导程：导程 = 头数 * 节距。
编写程序
选择合适的编程语言和软件，如G代码（如G32）。
设置FUP函数，将小数部分变为整数并加到整数部分。
使用IF语句，根据条件判断程序的执行路径。
编写切削参数，包括切削速度、进给速度、刀具半径补偿等。
仿真和调试
将编写好的程序加载到数控机床上进行仿真，检查程序的准确性和刀具的运动轨迹是否符合要求。
进行试切加工，根据实际情况进行调整，优化刀具路径和切削参数。
批量加工
经过试切和调整后，确定最佳的编程参数，进行批量加工。
根据需要，可以复制和修改已有的程序，以提高生产效率。
```gcode
； 定义变量
1 = 40 （工件直径）
2 = 39 （车至D39，1mm的深）
3 = 80 （头数）
4 = 125.68 （导程）
； 初始化
N10 1=1-0.5 ； 变量自减
； 滚花程序
WHILE [2 GE 47.5] DO1
WHILE [1 LE 360000] DO2
X2 G32 Z-20 F125.68 Q1 ； 车螺纹
G32 Z3 F125.68 Q1 ； 滚花
1=1+3000 ； 头数增加
END2
2=2-0.1 ； 工件直径减小
END1
M30 % 结束程序
```
请注意，这只是一个示例程序，实际编程时需要根据具体的加工要求和机床性能进行调整。建议在编写程序前，仔细检查所有参数，并进行充分的仿真和调试，以确保加工效果达到预期。