Lennert! We like programmed a lot of crap this time Math sux. Just try and catch the error
function y=p3extra(mat)
eigw=eig(mat);
n=rank(mat);
error=0;
if n==2
for i=1:2
if eigw(i)^2 -trace(mat)*eigw(i)+det(mat)~= 0
disp('Error: karakteristieke vergelijking niet voldaan')
error=1;
break;
elseif mat^2 -trace(mat)*mat+det(mat)~= 0
disp('Error: karakteristieke vergelijking niet voldaan')
error=1;
break;
end;
end;
else
disp('Error: rang moet 2 zijn')
error=1;
end;
if error ~= 1
disp('Karakteristieke vergelijking voldaan')
end;