SHARE
TWEET

Untitled

a guest Jun 20th, 2019 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. disp("1")
  2. disp("a")
  3.  
  4. A = -19:34
  5. B = []
  6.  
  7. for p = -40:70
  8.     for q = 1:3
  9.         B($+1) = p/q;
  10.     end
  11. end
  12. disp(A)
  13. disp(B)
  14. disp("b")
  15.  
  16. uniaoAB = union(A,B);
  17. interAB = intersect(A,B);
  18.  
  19. C = setdiff(uniaoAB,interAB);
  20.  
  21. disp(C)
  22. disp("2")
  23.  
  24. n=1;
  25. while abs(((1+(5/n))^n)-exp(5))>= 10^(-1) then
  26.     n=n+1;
  27. end
  28. disp(n);
  29.  
  30.  
  31. disp("3")
  32. disp("a")
  33. disp("i.")
  34.  
  35. sheet = readxls("Material/Data.xls")
  36.  
  37. MS = sheet(1).value;
  38.  
  39.  
  40. disp("ii.")
  41.  
  42. function output = issimetrica(A)
  43.     [a,b] = size(A);
  44.     output = %t;
  45.  
  46.     for i = 1:a
  47.         for j = 1:b
  48.             if A(i,j)<>A(j,i) then
  49.                 output = %f;
  50.             end
  51.         end
  52.     end
  53. endfunction
  54.  
  55. disp(issimetrica(MS))
  56. disp("b")
  57.  
  58. function output = grau_out(Adj,vert)
  59.     [a,b] = size(Adj);
  60.     output = 0;
  61.     for i = 1:b
  62.        
  63.         if Adj(vert,i)<>0 then
  64.             output = output+1;
  65.         end
  66.     end
  67. endfunction
  68.  
  69.  
  70. [a,b] = size(MS);
  71. for i = 1:b
  72.     lista($+1) = grau_out(MS,i);
  73. end
  74. disp(lista);
  75.  
  76. disp("c")
  77.  
  78. T = zeros(a, b)
  79. for i = 3:6
  80.     T = T + MS^i
  81. end
  82. disp(T);
  83. caminhos = T(7,4);
  84. disp("O número de caminhos de comprimento 3 do vertice 7 para o 4 é "+string(caminhos));
  85.  
  86. disp("d");
  87.  
  88. exec("Material/Algoritmo_1.sce");
  89.  
  90. P = Warshall(MS)
  91. disp("Não é fortemente conexo pois P9 contém zeros.")
  92. Uni = bool2s(P+P');
  93. disp(Uni)
  94. disp("Não é unilateralmente conexo pois P9+P9´ contém zeros fora da diagonal principal.")
  95.  
  96. A1 = MS+MS';
  97. P2 = Warshall(A1);
  98. disp("É fracamente conexo pois a matriz P2 = (MS+MS´)^1+(MS+MS´)^2+(MS+MS´)^3... contém todos os elementos nao nulos")
  99.  
  100. disp("e)")
  101. pesos = sheet(2).value;
  102. exec("Material/Algoritmo_Warshall_MIN.sce");
  103. Warshall_MIN(pesos)
  104.  
  105. disp("i.")
  106. disp("O peso mínimo do caminho minimo de 9 para 3 é de 10. Matriz Q8(9,3)")
  107. disp("ii.")
  108. disp("O peso mínimo do caminho minimo de 9 para 3 é de 10. Matriz Q8(9,3). Este caminho passa nos vértices: 9-8-2-1-3 (M8(9,3)), ou seja, também passa no vértice 2")
  109. disp("f)")
  110. function L=Algoritmo2(A,vi)
  111.  
  112.     [u,v]=size(A)
  113.    
  114.     Estado=ones(1,u)
  115.    
  116.     conjunto=list(vi);
  117.     Estado(vi) = 2;
  118.    
  119.    
  120.     Vvisitado=list();
  121.    
  122.     while length(conjunto)<>0
  123.    
  124.     Vvisitado($+1)=conjunto(1)
  125.    
  126.     Estado(conjunto(1))=3;
  127.    
  128.     for j=1:u
  129.           if A(conjunto(1),j) == 1 & Estado(j)==1 then
  130.               conjunto($+1)=j;
  131.               Estado(j)=2;
  132.           end
  133.     end
  134.    
  135.     conjunto(1)=null()
  136.    
  137.     end
  138.    
  139.     L=string(Vvisitado(1))
  140.     for i=2:length(Vvisitado)
  141.          L=L+" -> "+string(Vvisitado(i))
  142.     end
  143.    
  144. endfunction
  145.  
  146. disp(Algoritmo2(MS,5))
  147.  
  148. disp("4")
  149. disp("a")
  150.  
  151. Arv = [54 32 66 0 38 0 85 0 0 35 0 0 0 80 0]
  152.  
  153. disp("b")
  154. exec("Material/Algoritmo_3.sce");
  155. exec("Material/tree_plot.sce");
  156. valores = sheet(3).value;
  157.  
  158.  
  159. for i = 1:size(valores,2)
  160.     [pos,encontrado]=localiza(Arv,valores(i))
  161.     if encontrado<>%t then
  162.         Arv(pos) = valores(i);
  163.     end
  164. end
  165.  
  166.  
  167. tree_plot(Arv)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top