Fixato bugs su gauss, aggiunto check per numeri molto vicini a 0 su gauss, aggiunto esercizi
This commit is contained in:
44
exercises/metodi_diretti_ex3_10.m
Normal file
44
exercises/metodi_diretti_ex3_10.m
Normal file
@@ -0,0 +1,44 @@
|
||||
U=[1.2,2.1,4.5;1.1,1.4,2.7;0.11,0.7,1.8]
|
||||
b=[7.8;5.2;2.61]
|
||||
|
||||
exact=[1,1,1];
|
||||
|
||||
%verifica singoalarita
|
||||
if det(U) ~= 0
|
||||
disp('non singolare')
|
||||
else
|
||||
disp('singolare')
|
||||
end
|
||||
|
||||
|
||||
% 3 equazioni, 3 incognite
|
||||
if det(U) ~= 0
|
||||
disp('ammette singola soluzione')
|
||||
else
|
||||
disp('nessuna o infinite soluzioni')
|
||||
end
|
||||
|
||||
%verifica condizionamento
|
||||
condition= cond(U)
|
||||
|
||||
|
||||
|
||||
%applico gauss naif
|
||||
[x1,y1]=convert_matrix_to_triangular_matrix_gauss_naif(U,b)
|
||||
s1=[linear_system_resolver_triangular_matrix(x1,y1)]
|
||||
|
||||
|
||||
%applico gauss parziale
|
||||
[x2,y2]=convert_matrix_to_triangular_matrix_gauss_pivoting(U,b)
|
||||
s2=[linear_system_resolver_triangular_matrix(x2,y2)]
|
||||
|
||||
|
||||
|
||||
% verifico errore tra soluzione calcolata e esatta
|
||||
error_s1= norm(s1-exact,inf)/norm(exact,inf)
|
||||
error_s2= norm(s2-exact,inf)/norm(exact,inf)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user