Ex 2.8

clear

% Alternativ 1 (med symboliska variabler)
syms H;
ekv = H^2 + H^2/(H-2)^2 - 25;
ekv = simplify(ekv*(H-2)^2);
sol = solve(ekv);
nsol = eval(sol);

% Alternativ 2 (med handräkning)
c = [1 -4 -20 100 -100];
H = roots(c);

% Hitta rätt lösning
H1 = H(H>2 & H<5)