chry132
In[1]:= Minimize[{6 a11 + 2 a12 + 9 a13 + 7 a14 + 5 a21 + 3 a22 + 4 a23 + 12 a24 + 2 a31 + 8 a32 + 7 a33 + 10 a34， a11 + a21 + a31 == 15， a12 + a22 + a32 == 10， a13 + a23 + a33 == 17，a14 + a24 + a34 == 8， 10 == a11 + a12 + a13 + a14， 25 == a21 + a22 + a23 + a24， 15 == a31 + a32 + a33 + a34， a11 >= 0， a12 >= 0， a13 >= 0， a14 >= 0， a21 >= 0， a22 >= 0， a23 >= 0， a24 >= 0， a31 >= 0， a32 >= 0， a33 >= 0， a34 >= 0}， {a11， a12， a13， a14， a21， a22， a23， a24， a31， a32， a33， a34}]Out[1]= {182， {a11 -> 0， a12 -> 2， a13 -> 0， a14 -> 8， a21 -> 0， a22 -> 8， a23 -> 17， a24 -> 0， a31 -> 15， a32 -> 0， a33 -> 0， a34 -> 0}}结果是A3全部刚好全部销往BB3市场的全部来自A2，A2的余下部分全部销往B2市场，B4市场的全部来自A1，A1的余下部分全部销往B2市场。我用的是Mathematica来求解的。 
最大元素法 。选最大的数，但是最后检验数要小于等于零，才是最优解
改变目标函数中系数的符号，最大化问题化成最小化问题，采用位势法即可
