Transportation problem: Difference between revisions
Content added Content deleted
(added pascal implementation) |
|||
Line 921:
Sb:longint=0;
Type
Var A,B,alfa,beta,B_d,x:
c,p:
f,f0,x_min,Sp:longint;
Nt,x_p,r,r_min,ki,kj,Na,Nb,h,l,i,j:byte;
Line 931:
u:Array[1..N*N] of byte;
Procedure Nul (var a:
var i:byte;
Begin
Line 1,042:
End;
Procedure EnterIntoTheTable (var a:
var i,l,m:byte;
Begin
Line 1,076:
Function CalculatingThePotentials:boolean; { Calculating the potentials }
var k,i,j:byte;
Z_a,Z_b:
d:boolean;
Begin
|