10.05.2013 Views

Resolución de sistemas de ecuaciones - OCW

Resolución de sistemas de ecuaciones - OCW

Resolución de sistemas de ecuaciones - OCW

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

1.4. Métodos directos <strong>de</strong> resolución 3<br />

1.4. Métodos directos <strong>de</strong> resolución<br />

Vemos a continuación algunos <strong>de</strong> los métodos directos <strong>de</strong> resolución <strong>de</strong> <strong>sistemas</strong> entre los<br />

que <strong>de</strong>stacaremos el <strong>de</strong> Gauss, con alguna <strong>de</strong> sus variantes.<br />

1.4.1. Método <strong>de</strong> Gauss<br />

Se consi<strong>de</strong>ra un sistema <strong>de</strong> <strong>ecuaciones</strong> lineales <strong>de</strong> or<strong>de</strong>n n × n <strong>de</strong>scrito por la matriz A y el<br />

vector b.<br />

Ax = b<br />

La eliminación gaussiana consiste en obtener, mediante operaciones elementales, un sistema<br />

equivalente al anterior<br />

Ux = c<br />

siendo U una matriz triangular superior.<br />

Nota 2 Para la resolución <strong>de</strong>l sistema es necesario por tanto hacer una sustitución regresiva y<br />

comenzar por la última incógnita hasta finalizar por la primera.<br />

<strong>Resolución</strong> <strong>de</strong>l sistema triangular superior:<br />

Algoritmo <strong>de</strong> sustitución hacia atrás<br />

x n = b n<br />

a n n<br />

x k =<br />

1<br />

a k k<br />

⎛<br />

⎝b k −<br />

n<br />

j=k+1<br />

a k j x j<br />

Método <strong>de</strong> Gauss para resolver un sistema Ax = b<br />

⎞<br />

⎠ k = n − 1, · · · , 1<br />

function [x] = gauss(A,b)<br />

[m n] = size (A);<br />

if m ~= n, error( ´ Matriz <strong>de</strong>l sistema NO Cuadrada´ ), end<br />

if m ~= length(b), error( ´ Sistema NO Coherente´), end<br />

% transformacion <strong>de</strong>l sistema en uno triangular<br />

for i=1:n-1<br />

for k=i+1:n<br />

l=A(k,i)/A(i,i);<br />

for j=i+1:n<br />

A(k,j)=A(k,j)-l*A(i,j);<br />

end<br />

b(k)=b(k)-l*b(i);<br />

end<br />

end<br />

A=triu(A);<br />

x=resolución_triangular(A,b);<br />

Ejercicio 4 Construye la función resolución_triangular para la resolución <strong>de</strong> un sistema<br />

triangular superior.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!