Tercera Trabajo Metodos Numericos
Tercera Trabajo Metodos Numericos
Tercera Trabajo Metodos Numericos
I. OBJETIVO:
Encontrar la mayor cantidad de algoritmos para la solución de ecuaciones
lineales.
ING. CIVIL 1
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
Como se observa los métodos numéricos son técnicas para formular problemas
y solucionarlo usando operaciones lógicas aritméticas contando como
herramienta determinante la computadora y los lenguajes de alto nivel (fortran,
Basic, Pascal, entre otros).
En un inicio podemos decir que las personas interesadas con esta área del
conocimiento solo contaban con:
1) Entre otras razones del uso de los métodos numéricos podemos citar:
ING. CIVIL 2
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
x y 4
; Entonces x 3 , y 1 es solución única
x y 2
Forma gráfica
x y 4
.
x y 2
ING. CIVIL 3
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
SISTEMAS DE ECUACIONES
Ejemplo:
x y 4
1. ; es un sistema de dos ecuaciones y 2 incógnitas que se verifican
x y 2
simultáneamente para x 3 ; y 1 .
2x y z 4
2. x y z 6 ; es un sistema de 3 ecuaciones y 3 incógnitas que se
3x y 4
verifican simultáneamente para x 2 ; y 2 ; z 2
a x a12 y b1
3. En general podemos considerar: 11 ; un sistema de 2
a 21 x a 22 y b2
ecuaciones y 2 incógnitas que se verifican simultáneamente para un número
real determinado de x , y .
4. En general se pueden considerar “m” ecuaciones y “n” incógnitas.
ING. CIVIL 4
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
Ejemplos:
x y 4
1. ; entonces x 3 , y 1 es solución única
x y 2
Forma gráfica.
x y 4
x y 2
x y 4
2. Sea ; estas dos ecuaciones son equivalentes pues una
4 x 4 y 16
ecuación depende de la otra.
ING. CIVIL 5
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
La solución es x 4 y ; es decir ( 4 y , y ) es una solución del sistema para
cualquier valor de y real. En otras palabras el sistema tiene infinitas
soluciones por decir: (4,0) (3,1) (2,2) (1,3) (0,4) ....
Forma gráfica.
Infinitas
soluciones
x y 4
4 x 4 y 16
x y 4
3. Sea el sistema: ; el sistema no tiene solución pues la primera
4 x 4 y 20
fila contradice a la segunda; es decir es un sistema inconsistente o
incompatible.
Forma gráfica.
4 x 4 y 20
x y 4
ING. CIVIL 6
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
3) SISTEMA DE “m” ECUACIONES LINEALES CON “n” INCOGNITAS
Donde:
escribir:
m n n
aij x j bi ó aij x j bi ; i 1,2,..., m
i 1 j 1 j 1
FORMA MATRICIAL
ING. CIVIL 7
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
Es decir: Ax b
Donde:
x x1 j
1 n
IR1 n ; es llamado vector de variables, entidades, incógnitas.
requerimientos.
1. METODOS DIRECTOS
ING. CIVIL 8
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
A. METODO DE GAUSS
ING. CIVIL 9
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
En donde:
a
a 'ij aij i1 a1 j
a11
2º. Eliminamos del segundo término de las ecuaciones del sistema (1)
donde la tercera ecuación hasta la última i 2 se realiza análogamente
que en la primera parte es decir: restamos la segunda ecuación del
a 'i 2
sistema multiplicada por y así continuamos eliminando los terceros
a ' 22
términos de las ecuaciones restantes, finalmente se llega a una
triangulación total; así:
ING. CIVIL 10
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
b) Un proceso de sustitución hacia atrás.
Seudocódigo
input n, (a ij ), (bi )
for k 1,2,3,4,...n 1 do
for i k 1, k 2,..., n do
t a ik / a kk
a ik 0
for j k 1, k 2,..., n do
a ij a ij t a kj
bi bi t bk
end
end
end
output (a ij , b j )
ING. CIVIL 11
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
Ejemplos:
1. Resolver el siguiente sistema usando eliminación Gaussiana.
2 x1 x2 3x3 1
x1 3x2 2 x3 12
3x1 x2 3x3 0
2 1 3 1
1 3 2 12
3 1 3 0
b) Realizando operaciones elementales de matrices según el método.
2 1 3 1 2 1 3 1
0 7 / 2 1 / 2 23 / 2 0 7 / 2 1 / 2 23 / 2
0 1 / 2 3 / 2 3 / 2 0 0 11 / 7 22 / 7
23 7
2
22
x2
2 2
x3 7 2 x3 2 , x2 3
11 7
7 2
x1 1 (2)(3) 3 / 2 x1 1
ING. CIVIL 12
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
B. METODO DE GAUSS-JORDAN
ING. CIVIL 13
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
Repetimos la operación con la segunda fila:
C. METODO DE CHOLESKI
Matriz Positiva:
ING. CIVIL 14
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
L11 0 0 0 0
L21 L22 0 0 0
L L32 L33 0 0
31
L
L Li 2 Li 3 Lii 0
i1
Ln1 Ln 2 Ln3 Lni Lnn
Observación:
4 1 2 x1 1
1 2 0 x 2
2
2 0 5 x3 4
2
L11 a11 4 L11 2 se toma el valor positivo de todas las raices
1
L11 L21 0 L21
2
L11 L31 2 L31 1
L221 L222 2 L22 2 0.25 1.32287
1
L21 L31 L22 L32 0 L32 1.32287 0.37796
2
L231 L232 L233 5 L31 5 1 0.14286 L33 1.963396
ING. CIVIL 15
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
i) Resolver el sistema LC=b
2 0 0 c1 1
0 1.32287 0 c 2
2
0 0.37796 1.96396 c 3 4
1
2
c
c1 1 / 2 , 1 1.32289 c 2 2 c 2 4 c 2 1.32287
2 1.32289
c 2 1.32287
c 3 2.0367
L11 a11
a i1
Li1 , i 2,3,...., n
L11
1
i 1
2
Lii a11 l in2 ; i 2
k 1
1 i 1
i j 1, j 2,...., n 1
Lij a ij l ik l jk
L11 k 1 j 2,3,....., n
Lij 0 i j
D. METODO MONTANTE
ING. CIVIL 16
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
15 5 0 20
5 15 5 * x 0
0 5 20 0
SOLUCION
15 5 0 20 15 5 0 20
5 15 5 0 ~ 5 200 75 100 ~
0 5 20 0 0 75 300 0
200 0 25 300 3625 0 0 5500
0 200 75 100 ~ 0 3625 0 2000 ~
0 0 3625 500 0 0 3625 500
1 0 0 1.5172
0 1 0 0.5517
0 0 1 0.1379
x1 1.5172
x 0.5517
2
x3 0.1379
2. METODOS ITERATIVOS
Los metodos iterativos son procesos donde pueden ser muy eficientes
cuando la matriz de coeficientes A, es de baja densidad, mas aún si la
evalución de productos de la forma Av no requiere la previa determinate y el
almacenamiento de A en forma explícita.
Ax = b (1)
Ax – b = 0 (2)
f (x) = 0 (3)
ING. CIVIL 17
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
El propósito es buscar una matriz B y su vector C de tal forma que la
ecuación vectorial es la siguiente:
x=Bx+C (4)
Usando:
x ( R 1) Bx ( R ) C , R 0,1,2,.....
Donde:
x ( R ) x1R , x 2R ,......, x nR T
Observación:
ING. CIVIL 18
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
b1 a12 a
De 1 tenemos que: x1 x 2 13 x3
a11 a11 a11
b2 a 21 a
x2 x1 23 x 3
a 22 a 22 a 22
. . . . . . . . . . . . . (5)
b a a
x 3 3 31 x1 32 x 2
a 33 a 33 a 33
a12 a13 b1
0
x1 a11 a11 x1 a11
a 21 a b2
x2 0 23 x2
x a 22 a 22 x a 22 . . . . . …… (6)
3 a 31 a 32 3 b3
a 0 a
33 a 33 33
x Bx C
A. METODO DE JACOBI
x1 R
R
Si x ( R ) x 2 es el vector de aproximación a la solución x
R
x3
después de R iteraciones, entonces, tendremos la siguiente
aproximación
1
(b1 a12 x 2R a13 x 3R )
x1 R 1 a11
R 1 1
x R 1 x2 (b2 a 21 x1R a 23 x 3R )
R 1 a 22
x3 1 R
a (b3 a 31 x1 a 32 x 2 )
R
33
ING. CIVIL 19
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
1 n
R
bi a i j x j , i 1,2,....., n
R 1
x i
a ii j 1
j i
B. METODO DE GAUSS-SEIDEL
Este método se diferencia del anterior en que los valores que se van
calculando en la (R + 1) – ésima iteración se usan para calcular los
valores restantes de esa misma interacción ie
1
(b1 a12 x 2R a12 x 3R )
x1R 1 a11
R 1 1
x R 1 x2 (b2 a 21 x1R 1 a 23 x 3R )
x R 1 a 22
3 1 R 1 R 1
a (b3 a 31 x1 a 32 x 2 )
33
1 n i 1
R 1
bi a i j x a i j x , 1 i n
R 1
x i R
a ii j i 1 j 1
iI j i
ING. CIVIL 20
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
Para determinar la forma matricial del método de SOR rescribimos la
relación anterior de la siguiente manera:
Notación vectorial
𝒙(𝒌) = 𝑻𝒘 𝒙(𝒌−𝟏) + 𝒄𝒘 ,
En donde:
〈𝒙, 𝒚〉 = 𝒙𝑻 𝒚 = ∑𝒏𝒊=𝟏 𝒙𝒊 𝒚𝒊 ,
Propiedades
1. 〈𝒙, 𝒚〉 = 〈𝒚, 𝒙〉,
2. 〈∝ 𝒙, 𝒚〉 =∝ 〈𝒙, 𝒚〉, 𝒑𝒂𝒓𝒂 𝒕𝒐𝒅𝒐 ∝ ,
3. 〈𝒙 + 𝒚, 𝒛〉 = 〈𝒙, 𝒛〉 + 〈𝒚, 𝒛〉,
4. 〈𝒙, 𝑨𝒚〉 = 〈𝑨𝑻 𝒙, 𝒚〉,
ING. CIVIL 21
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
Observemos que la propiedad 1 se refiere al orden de los elementos, 2, y
3 indican que se pueden invertir.
tv
x
x+ tv
𝒒(𝒙 + 𝒕𝒗) = 〈𝒙, 𝑨𝒙〉 + 𝒕〈𝒙, 𝑨𝒗〉 + 𝒕〈𝒗, 𝑨𝒙〉 + 𝒕𝟐 〈𝒗, 𝑨𝒗〉 − 𝟐〈𝒙, 𝒃〉 − 𝟐〈𝒗, 𝒃〉.
𝒅
𝒒(𝒙 + 𝒕𝒗) = 𝟐〈𝒗, 𝑨𝒙 − 𝒃〉 + 𝟐𝒕〈𝒗, 𝑨𝒗〉,
𝒅𝒕
ING. CIVIL 22
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
En donde
〈𝑽(𝑲) ,𝒃−𝑨𝒙(𝑲) 〉
𝒕𝑲 = 〈𝑽(𝑲) ,𝑨𝑽(𝑲) 〉
,
Para valores particulares del escalar tK, y los valores de vK, si ‖𝒗𝑲 ‖ = 𝟏,
entonces tk, mide la distancia que nos movemos de xK, para hasta la
obtención de xk+1, ver la siguiente figura.
ING. CIVIL 23
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
𝑡𝑘 𝑣 𝐾
𝑣𝐾
𝑋𝑘
𝑋 𝑘+1
V. PRESENTACIÓN DE RESULTADOS.
ING. CIVIL 24
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
1. OPERACIONES CON MATRICES
2. METODOS DIRECTOS
A. METODO DE GAUSS
ALGORITMO
n1=str2double(get(handles.edit1,'string'));
A=get(handles.uitable2,'Data');
if isnumeric(A)
A=A;
else
ING. CIVIL 25
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
A=str2double(A) ;
end
B=get(handles.uitable3,'Data');
if isnumeric(B)
B=B;
else
B=str2double(B);
end
n=size(A);
disp('=====================GAUSS=============0')
for i=1:n-1
for k=i+1:n
l=A(k,i)/A(i,i);
A(k,i+1:n)=A(k,i+1:n)-l*A(i,i+1:n);
B(k)=B(k)-l*B(i);
end
A(i+1:n,i)=0;
end
end
x;
set(handles.uitable1,'Data',x);
ING. CIVIL 26
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
B. METODO CHOLESKI
ALGORITMO
n1=str2double(get(handles.edit2,'string'));
A=get(handles.uitable2,'Data');
if isnumeric(A)
A=A
else
A=str2double(A)
end
B=get(handles.uitable3,'Data');
if isnumeric(B)
B=B
else
B=str2double(B)
end
NN=rank(A);
disp('=====================CHOLESKI=================')
%==============CLOLESKI
n = size(A,1);
y = zeros(n,1);
x = zeros(n,1);
u=chol(A);
y(1) = B(1)/u(1,1);
for i=2:n
y(i) = ( B(i) - u(1:i-1,i)'*y(1:i-1) )/u(i,i);
end
x(n) = y(n)/u(n,n);
for i=n-1:-1:1;
x(i) = ( y(i) - u(i,i+1:n)*x(i+1:n) )/u(i,i)
end
x;
set(handles.uitable1,'Data',x);
ING. CIVIL 27
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
C. METODO DE GAUSS-JORDAN
ALGORITMO
disp('=================gauss-jordan====================')
n1=str2double(get(handles.edit2,'string'));
A=get(handles.uitable2,'Data');
if isnumeric(A)
A=A
else
A=str2double(A)
end
B=get(handles.uitable3,'Data');
if isnumeric(B)
B=B
else
B=str2double(B)
end
Aa = [A B];
n = size(Aa,1);
for i=1:n
% Dividir renglon entre el pivote
Aa(i ,:) = Aa(i,:)/Aa(i, i );
% Hacer ceros en la columna i
for j=1:n
if i~=j
Aa(j ,:) = Aa(j,:) - Aa(i,:)*Aa(j, i );
ING. CIVIL 28
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
end
end
end
x = Aa(:,n+1)
set(handles.uitable1,'Data',x);
D. METODO MONTANTE
ALGORITMO
disp('======================METODO MONTANTE===============')
n1=str2double(get(handles.edit1,'string'));
A=get(handles.uitable2,'Data');
if isnumeric(A)
A=A;
else
A=str2double(A);
end
B=get(handles.uitable3,'Data');
if isnumeric(B)
B=B;
else
B=str2double(B);
end
%NN1=rank(A);
n=size(A);
ING. CIVIL 29
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
[n,n]=size(A);
NTOL=50;
flag=1;
k=0;
A= [A B];
n = size(A,1);
pivAnt = 1; % pivote inicial
for i=1:n
% pivote actual
piv = A(i,i );
% Hacer ceros en la columna i
for j=1:n
if j~=i
A(j ,:) = (A(j,:)*piv - A(i,:)*A(j, i ))/pivAnt;
end
end
% Guardar el pivote anterior
pivAnt = piv;
end
% Dividir entre el ultimo pivote (determinante)
A = A/piv;
x = A(:,n+1);
set(handles.uitable1,'Data',x);
ING. CIVIL 30
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
3. METODOS ITERATIVOS
A. METODO DE JACIBI
ALGORITMO
disp('====METODO DE JACOBI=====')
n1=str2double(get(handles.edit1,'string'));
A=get(handles.uitable2,'Data');
if isnumeric(A)
A=A;
else
A=str2double(A);
end
B=get(handles.uitable3,'Data');
if isnumeric(B)
B=B;
else
B=str2double(B);
end
n=size(A);
NN1=rank(A);
[n,n]=size(A);
x=zeros(n,1);
y=zeros(n,1);
error=0.0005;
NTOL=50;
flag=1;
k=0;
fprintf('%5d',k);
for m=1:n
fprintf('%10.5f',x(m));
end
i=1;
while (i<=n)&(flag==1)
suma=0;
for j=1:n
if i~=j
suma=suma+abs(A(i,j));
end
end
if abs(A(i,i))<=suma
fprintf('\nerror de diagoalizacion');
flag=0;
end
i=i+1;
if flag==0
break
end
end
while 1
flag=1;
for i=1:n
suma=0;
ING. CIVIL 31
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
for j=1:n
if i~=j
suma=suma+A(i,j)*x(j)/A(i,i);
end
end
y(i)=B(i)/A(i,i)-suma;
end
k=k+1;
fprintf('\n%5d',k);
for i=1:n
if abs(y(i)-x(i))>error
flag=0;
end
x(i)=y(i);
fprintf('%10.5f',x(i));
end
if (NTOL==k)|(flag==1)
break
end
end
set(handles.uitable1,'Data',x);
B. METODO DE GAUSS-SEIDEL
ALGORITMO
disp('==========METODO DE GAUSS-SEIDEL============')
n1=str2double(get(handles.edit1,'string'));
A=get(handles.uitable2,'Data');
if isnumeric(A)
A=A;
ING. CIVIL 32
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
else
A=str2double(A);
end
B=get(handles.uitable3,'Data');
if isnumeric(B)
B=B;
else
B=str2double(B);
end
%NN1=rank(A);
n=size(A);
error=0.0005;
w=1
NTOL=150;
flag=1;
k=0;
NN=rank(A)
n=size(A);
for k=1:NN
B(k,1)=B(k,1)/A(k,k);
A(k,:)=A(k,:)/A(k,k);
end
D=eye(NN);
L=zeros(NN);
U=zeros(NN);
A=A-D;
for k=1:NN-1
L(k:NN,k)=A(k:NN,k);
U(k,k:NN)=A(k,k:NN);
end
F=-inv(D+L)*U;
Rs=max(abs(eig(F)));
P=6;
Ni=(P*log(10))/(-log(Rs));
Nm=fix(Ni)+1;
X=zeros(NN,Nm);
X(:,1)=ones;
suma=0;
for k=2:Nm
X(:,k)=F*X(:,k-1)+inv(D+L)*B;
end
X(:,k)=F*X(:,k-1)+inv(D+L)*B
X;
xx=X'
set(handles.uitable1,'Data',xx);
ING. CIVIL 33
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
4. EIGEN PROBLEMAS
ING. CIVIL 34
UNIVERSIDAD NACIONAL DE SANCRISTOBAL DE HUAMANGA
FACULTAD : INGENIERIA DE MINAS, GEOLOGIA Y CIVIL ESCUELA : INGENIERIA CIVIL
ASIGNATURA : METODOS NUMERICOS (IC-343)
tercera PRÁCTICA DOMICILIARIA
III. CONCLUSIONES.
Se ha resuelto las ecuaciones lineales; se observo la diferencia me un metodo Directos e
Iterativos.
El método de Gauss-Seidel es usualmente más eficiente que el de Jacobi
En la actualidad los métodos iterativos estudiados en esta asignatura están
obsoletos. Los métodos más utilizados son los basados en los subespacios de
Krylov.
IV. OBSERVACIONES:
El programa tiene un pequeño defecto, cierta incovenencia: para hacer calcular en una
seccion escogida, se tiene que hacer doble eleccion la misma seccion, y luego ejecutarla.
En las secciones agregadas, “seccion compuesta” solo funciona con valores pequeños, y
ademas la velocidad sale negativa.
En la seccion “herradura” no calcula, lo unico que aparece en los cuadros de resultado
es “NaN”.
V. BIBLIOGRAFÍA
ING. CIVIL 35