用mathematica写一个，车间调度模型。

以下是一个简单的车间调度模型的Mathematica代码：

(*定义车间任务*)

tasks = {{"Task 1", 3, 1}, {"Task 2", 5, 2}, {"Task 3", 2, 3}, {"Task 4", 4, 4}, {"Task 5", 6, 5}, {"Task 6", 1, 6}};

(*定义车间机器*)

machines = {{"Machine 1", 2}, {"Machine 2", 4}, {"Machine 3", 5}};

(*定义任务时间矩阵*)

taskTimes = Table[0, {i, Length[tasks]}, {j, Length[machines]}];

(*计算任务时间*)

For[i = 1, i <= Length[tasks], i++,
For[j = 1, j <= Length[machines], j++,
taskTimes[[i, j]] = tasks[[i, 2]]*machines[[j, 2]];
]
]

(*定义车间调度模型*)

model = LinearProgramming[Flatten[taskTimes],
Table[Flatten[taskTimes][[i]] >= 0, {i, Length[Flatten[taskTimes]]}],
Table[Total[taskTimes[[All, j]]] <= machines[[j, 2]], {j, Length[machines]}],
Table[Flatten[taskTimes][[i]] >= 0, {i, Length[Flatten[taskTimes]]}]];

(*输出结果*)

Print["任务时间矩阵："];
MatrixForm[taskTimes]
Print["车间调度模型结果："];
Print[model]