TRABALHO DE REDES

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

nos = 10;
ma = zeros(nos,nos);
for i = 1:nos
 for j = 1:nos
 ma(i,j) = ma(j,i);
 if i == j-1
 ma(i,j) = 1;
 end
 end
 if (i == 1)&& (j == nos)
 ma(i,j) = 1;
 end 
end
% ----- Representando o grafo:
cm = ma;
ids = [];
bg2 = biograph(cm,ids,'LayoutType','equilibrium','ShowArrow','off');
get (bg2.nodes,'ID');
view(bg2)
%Matriz de Grau%
 
NumConx = sum(ma,2);
Grau = diag(NumConx);
%Matriz Laplaciana%
Laplace = Grau - ma;
%Matriz de Menores Caminhos (Saltos)%
DG=sparse(ma);% 
MCS=graphallshortestpaths(DG);
%Matriz de Menores Caminhos (Distancia)%
DG=sparse(ma)*10;% 
MCD=graphallshortestpaths(DG);
% ----Conectividade Algébrica
autovalores = eig(Laplace);
% ----Conectividade Algébrica
Conectividade=autovalores(2,1);
% ---Raio Espectral
RaioEspectral=autovalores(10,1);
% ---Diâmetro do Grafo
Di=max(MCS);
DiametroGrafo=0;
for i=1:10;
 if Di(1,i)>DiametroGrafo
 DiamentroGrafo=Di(1,i);
 end
end
DiametroGrafo = DiametroGrafo;
%---Calculo do Menor Caminho Médio
MenorCaminhoMedio = ((10*25))/((100)-10);
%----Histograma dos Menores Caminhos
 figure
 bar(MCS)%Define as variaveis dos eixos
 title({'Histograma de Menores Caminhos'});%Dá o titulo a grafico
 xlabel({'Menores Caminhos'});% Denominação do eixo X
 ylabel({'Frequência'});% Denominação do eixo Y
 
 %Gerando a matriz D:
 AB=sum(ma,2); %Soma as colunas
 D=diag(AB); %Cria uma matriz cuja a diagnonal e os valores de AB, outros valores são zeros.
%Entropia:
 EN=0;
 BC=AB';
 for j=1:nos %Inicia um for para a linha, que vai de 1 ate o valor setado "nos"
 EN=BC(1,j)*log2(BC(1,j))+EN;
 end %Fim do for
	%Mostrando as matrizes e métricas:
	disp('Matriz adjacência:');
	disp(ma);
	disp('Matriz de grau:');
	disp(Grau);
	disp('Matriz laplaciana:');
	disp(Laplace);
	disp('Autovalores:');
	disp(autovalores);
	disp('Conectividade algébrica:');
	disp(Conectividade);
	disp('Raio espectral:');
	disp(RaioEspectral);
 disp('Matriz de menores caminhos:');
	disp(MCS);
	disp('Matriz de menores caminhos:');
	disp(MCD);
	disp('Diâmetro do grafo:');
	disp(DiametroGrafo);
	disp('Menor caminho médio:');
	disp(MenorCaminhoMedio);
 disp('Entropia:');
 disp(-EN);