% EX 2.8

% Bestäm nollställena till P(H) = H^4 - 4H^3 - 20H^2 + 100H - 100 mha roots

ns = roots([1 -4 -20 100 -100]);

disp('De fyra rötterna till ekv för stegens höjd:')
disp(num2str(ns, '%0.4f'))


% Körning:
% >> EX_28
% De fyra rötterna till ekv för stegens höjd:
% -4.9490
%  4.6857
%  2.6129
%  1.6503
