%%
%% Listing 5.4 w książce "Obliczenia inżynierskie i naukowe", PWN 2011
%% (C) Piotr Krzyżanowski, 2011
%%
%% Możesz używać tego kodu zgodnie z licencją Creative Commons BY-SA, 
%% zob. http://creativecommons.org/licenses/by-sa/3.0/pl/
%%

function L = invlap1d(N)
% funkcja invlap1d - generuje macierz odwrotną do 1-wym laplasjanu 
% z warunkami Dirichleta z lewego i Neumanna z prawego krańca odcinka
%
% wywołanie: L = invlap1d(N)
%
% N - wymiar macierzy
% L - macierz odwrotna laplasjanu

L = zeros(N,N);
for i=1:N
	L(i,i:N) = L(i:N,i) = i;
end
end
