WOLFRAM

Wolfram 语言与系统参考资料中心

分配问题

某个数学系希望能提供7门课程. 共有8名教授，每位愿意担任某门课程的教学. 找出所有教授与其有兴趣授教课程的最大匹配.

    
构建一个关于教授和其有兴趣授教课程的二分图.
Wolfram Language code: g = [image];
匹配通过从全部教授到课程的最大流量显示.
Wolfram Language code: flowgraph = EdgeAdd[g, Union[Flatten[EdgeList[g] /. {a_b_ :> {"s"a, b"t"}}]]];
Wolfram Language code: VertexDelete[FindMaximumFlow[flowgraph, "s", "t", "FlowGraph"], {"s", "t"}]