运输问题西北角法

function [Xb]=NorthWest（SupplyDemand）
m=length（Supply）;
n=length（Demand）;
i=1;
j=1;
X=zeros（mn）;b=zeros（mn）;
while （（i<=m）&&（j<=n））
    if Supply（i）        X（ij）=Supply（i）;