mathematica写一个，背包问题求解程序

以下是一个基于动态规划的背包问题求解程序，使用Mathematica编写：

(* 背包问题求解程序 *)

(* 输入数据 *)
n = 5; (* 物品数量 *)
m = 10; (* 背包容量 *)
w = {2, 2, 6, 5, 4}; (* 物品重量 *)
v = {6, 3, 5, 4, 6}; (* 物品价值 *)

(* 初始化 *)
f = Table[0, {i, 0, n}, {j, 0, m}];

(* 动态规划求解 *)
For[i = 1, i <= n, i++,
For[j = 1, j <= m, j++,
If[w[[i]] > j,
f[[i, j]] = f[[i - 1, j]],
f[[i, j]] = Max[f[[i - 1, j]], f[[i - 1, j - w[[i]]]] + v[[i]]]
]
]

(* 输出结果 *)
f[[n + 1, m + 1]]