function [xv yv nv nc conec R] = circuito(n,m,Rh,Rv)

% funcao que constroi o grafo de malha retangular uniforme
%  ("n" pontos horizontais "m" pontos verticais)
%
%   REDE
%
%   X-----X-----X-----X-----X-----X
%   |     |     |     |     |     |
%   X-----X-----X-----X-----X-----X
%   |     |     |     |     |     |
%   X-----X-----X-----X-----X-----X
%   |     |     |     |     |     |
%   n+1---X-----X-----X-----X-----X
%   |     |     |     |     |     |
%   1-----2-----3-----4-----5-----n
%      I    II    III
%
%   INDEXACAO da matriz conec:
%     As (n-1)*m primeiras linhas sao as conectividades horizontais.
%     Na linha (n-1)*m+1 iniciam-se as conectividades verticais,
%     dadas sequencialmente por:
%     (1,n+1), (2,n+2), ... , (n,n+n), ... , (n+1,n+n+1), ... , (n-1)*m + (m-1)*n.

nv = n*m;
nc = (n-1)*m + (m-1)*n;

for i=1:n
  for j=1:m
  xv(i,j) = i;
  yv(i,j) = j;
  end
end

for j=1:m
  for i=1:n-1
  k = (j-1)*(n-1) + i;
  conec(k,1) = (j-1)*n + i;
  conec(k,2) = (j-1)*n + i+1;
  R(k,1) = Rh;
  end
end


for i=1:n
  for j=1:m-1
  k = (n-1)*m  +  (i-1)*(m-1) + j;
  conec(k,1) = (i-1)*(m-1) + j;
  conec(k,2) = (i-1)*(m-1) + j+n;
  R(k,1) = Rv;
  end
end

return

end