function [M]=funkcja25(a)
%%funkcja tworzy macierz o w wierszach i k kolumnach
%%element Mij ma wartosc i/sqrt(5)*((1+sqrt(j+i))/j)^2
%%parametr a okresla sposob tworzenia elementow macierzy;
%%p - przy pomocy petli, w - wektorowo
w=0;
k=0;
w=input('podaj ilosc wierszy: ')
k=input('podaj ilosc kolumn: ')
M=zeros(w,k);
disp(sprintf('teraz licze poszczegolne elementy macierzy %dx%d \n', w, k));
switch a
    case 'p'
        disp('przy pomocy petli'); tic;,for i=(1:w), 
              for j=(1:k), 
              M(i,j)=i/sqrt(5)*((1+sqrt(j+i))/j)^2;
              end
        end, toc;
    case 'w' 
        disp('wektorowo');,tic;, M=1/sqrt(5)*(((1+sqrt(ones(1,w)'*(1:k)+(1:w)'*ones(1,k)))./(ones(1,w)'*(1:k)))^2).*((1:w)'*ones(1,k));,toc;
    otherwise
        disp('zly parametr sposobu');, return;
end
