%%
%% Listing 7.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 y = Hequation(x)
% x może być wektorem lub macierzą

global c;
global S;

y = x - 1.0./(1.0 - c*S*x);
end
