9. Anexos.

%Vector -> Array (Vx3) con arcos no dirigidos y su peso.
%origen -> Nodo Origen
[archivo]=textread('PrimeraSol.txt','%s',1);
archivo=str2mat(archivo);
[N,V]=textread(archivo,'%u %u',1);
[Vector(:,1),Vector(:,2),Vector(:,3)]=textread(archivo,'%u %u %u',V,'headerlines',1);
[NumTerminales]=textread(archivo,'%u',1,'headerlines',V+1);
[NodosTerminalesCell]=textread(archivo,'%s',1,'delimiter','\n','headerlines',V+2);
NodosTerminales=str2num(str2mat(NodosTerminalesCell));
[PrimeraSol(:,1),PrimeraSol(:,2),PrimeraSol(:,3)]=textread('PrimeraSol.txt','%u %u %u',V,'headerlines',1);
origen=NodosTerminales(1);
%MatAdy -> Matriz (NxN) con elemento ij igual al coste Cij
MatAdy=zeros(N);
for k=1:1:V;
end
MatAdy(Vector(k,1),Vector(k,2))=Vector(k,3);
MatAdy(Vector(k,2),Vector(k,1))=Vector(k,3);
%VectorDir -> Array (2*V x 3) con arcos dirigidos y peso
VectorDir=[Vector;Vector(:,2),Vector(:,1),Vector(:,3)];
%Xij0 -> Solucion Inicial( incluyendo arcos con trafico nulo)
Xij0=zeros(2*V,1);
for k=1:1:size(PrimeraSol,1)
end
for j=1:1:size(VectorDir,1)
end
if (PrimeraSol(k,1)==VectorDir(j,1) & PrimeraSol(k,2)==VectorDir(j,2))
end
Xij0(j)=PrimeraSol(k,3);
% Aeq * x = beq -> Implementan restricciones X(j,N)-X(N,j)=...
Aeq=zeros(N,size(VectorDir,1));
beq=zeros(N,1);
Anexos.
11