Advertisement
thethawaves

Dodatni zadaci (Uvod u MatLab)

Oct 19th, 2014
281
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 3.57 KB | None | 0 0
  1. ********************************************************************************************
  2.  
  3. 1. ZADATAK
  4.  
  5. function b=zadatak1(A);
  6. [n,m]=size(A);                    
  7.     for i = 1 : m
  8.         A1=sort(A(:,i));                     %izdvajamo odgovarajuću kolonu matrice A sortiramo njegove elemente(rastuće)
  9.         minimalni = A1(1,1);                 %minimalni element će se nalaziti na početku vektora A1
  10.                 for j = 1 : n  
  11.                     if (A(j,i) == minimalni) %trazimo min el. vektora A1 u odgovarajućoj koloni u matrici A
  12.                         b(1,i) = j;          %smestamo indeks njegovog reda u b
  13.                     end
  14.                 end
  15.     end
  16. end
  17.        
  18.  
  19. ********************************************************************************************
  20.  
  21. 2. ZADATAK
  22.  
  23. function b=zadatak2(A);
  24. [n,n]=size(A);
  25.     for k=1:n
  26.         b(k,1)= sum(sum(A(k,:))) - A(k,n-k+1);
  27.     end
  28. end
  29.  
  30.  
  31. ********************************************************************************************
  32.  
  33. 3. ZADATAK
  34.  
  35. function b=zadatak3(A);
  36. [n,n]=size(A);
  37.     A1=A;                       %matrica za glavnu dijagonalu matrice A
  38.     A1=sum(A1.*eye(n));
  39.     A2=A;                       %matrica za sporednu dijagonalu matrice A  
  40.     A2=sum(fliplr(A2).*eye(n));
  41.     c=zeros(1,2*n);             %vektor za smestanje elemenata ovih dijagonala
  42.    
  43.     for k = 1 : n
  44.         c(1,k)=A1(1,k);
  45.         c(1,n+k)=A2(1,k);
  46.     end
  47.    
  48.     minimalni=min(c);            %minimalni element među elementima obe dijagonale matrice A
  49.    
  50.     for i = 1 : n
  51.         for j = 1 : n
  52.             if (A(i,j)==minimalni)
  53.                 b=[i,j];
  54.             end
  55.         end
  56.     end
  57. end
  58.  
  59.  
  60. *********************************************************************************************
  61.  
  62. 4. ZADATAK
  63.  
  64. function A=zadatak4(A);
  65. [m,n]=size(A);
  66.     for i = 1 : 2 : m
  67.         A(i,:)=fliplr(A(i,:));
  68.     end
  69. end
  70.        
  71.  
  72. **********************************************************************************************
  73.  
  74. 5. ZADATAK
  75.  
  76. function b=zadatak5(A);
  77. [n,m]=size(A);                    
  78.     for i = 1 : n
  79.         A1=sort(A(i,:));                      %izdvajamo odgovarajući red matrice A sortiramo njegove elemente(rastuće)      
  80.         maksimalni = A1(1,m);                 %maksimalni element će se nalaziti na kraju vektora A1
  81.                 for j = 1 : m  
  82.                     if (A(i,j) == maksimalni) %trazimo maks el. vektora A1 u odgovarajućem redu u matrici A
  83.                         b(i,1) = j;           %smestamo indeks njegove kolone u b
  84.                     end
  85.                 end
  86.     end
  87. end
  88.        
  89.  
  90. ************************************************************************************************
  91.  
  92. 6. ZADATAK
  93.  
  94. function A=zadatak6(A);
  95. [n,n]=size(A);
  96.     A1=A;                      
  97.     A1=sum(A1.*eye(n));         %vektor za el. glavne dijagonale matrice A
  98.     A2=A;                        
  99.     A2=sum(fliplr(A2).*eye(n)); %vektor za el. sporedne dijagonale matrice A
  100.    
  101.     for i = 1 : n
  102.         A(i,i) = A2(1,i);
  103.         A(n-i+1,i) = A1(1,n-i+1);
  104.     end
  105. end
  106.  
  107.  
  108. *************************************************************************************************
  109.  
  110. 7. ZADATAK
  111.  
  112. function A=zadatak7(A);
  113. [m,n]=size(A);
  114.     for i = 1 : 2 : n
  115.         A1=A(:,i);            %izolovanje odgovarajuće neparne kolone
  116.         [k,l]=size(A1);    
  117.             for j= 1 : m
  118.                 A(j,i)=A1(k-j+1,1);
  119.             end
  120.     end
  121. end
  122.      
  123.  
  124. **************************************************************************************************
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement